openurl.asp

基于asp的 班级同学录主页源代码

<!--#include file="conn.asp"-->
<%if session("user")="" then
response.redirect "../err.asp"
end if%>
<% if request("linkid")="" then
response.write "对不起，你执行了非法操作"
else
set rs=server.createobject("adodb.recordset")
rs.open"select * from link where id="&request("linkid"),conn,1,1
if rs.eof then
response.write "<p align='center'>对不起，此id无效</p>"
else
conn.execute "update link set hits=hits+1 where id="&request("linkid")
url=rs("linkurl")
response.redirect "http://"&url
end if
end if
rs.close
conn.close%>