click.asp

三鸟个人网站源码。

<%
set conn=server.createobject("adodb.connection")
conn.open "DBQ="&server.mappath("admin/coffeedesign.asp")&";Driver={Microsoft Access Driver (*.mdb)};"
%>
<%
sql="update wallpaper set hit=hit+1 where id="&request("id")
conn.execute(sql)
sql="select * from wallpaper where id="&request("id")
set rs=conn.execute(sql)
dim aa
aa=rs("big")
response.redirect aa
rs.close
set rs=nothing
%>