<%
dim sql
dim rs
dim rstype
if not isEmpty(request("info_id")) then
info_id=request("info_id")
else
info_id=1
end if
set rs=server.createobject("adodb.recordset")
sql1="update job set click=click+1 where info_id="+cstr(info_id)+""
rs.open sql1,conn,1,1
sql="select * from job where info_id="+cstr(info_id)+""
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
%>
<%=rs("showname")%>
