<%
dim user
session("user")="zht72"
session("userlogin")="true"
%><%
dim rs,id
dim i,j
dim sql
id=request("id")
set rs=server.CreateObject("ADODB.RecordSet")
if session("id")<>id then
sql="update text1 set click=click+1 where id="&request("id")
rs.open sql,conn,1,1
end if
session("id")=id
sql="select * from text1 where id=" & request("ID")&""
rs.open sql,conn,1,1
%>
