%
dim defaultdbconn
getdefaultdbconn2()
sql="select * from forum_main as a,member as b where a.author=b.sn and a.main_sn=" & request("main_sn")
set rs=server.createobject("adodb.recordset")
rs.open sql,defaultdbconn,1,3
if rs.eof then
response.write "error."
response.end
end if
sql2="update forum_main set clicks=clicks+1 where main_sn=" & request("main_sn")
defaultdbconn.execute(sql2)
%>