downurl.asp

来自「吻宇考试管理系统源码 吻宇考试管理系统源码」· ASP 代码 · 共 22 行

<!--#include file="conn.asp"-->
<%
dim id,sql,rs
id=request.querystring("id")
sql="select * from down where id="&id
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,2,3
rs("hit")=rs("hit")+1
rs.update
if rs.eof then 
%>
<script language="vbscript">
msgbox("站长吻宇提示你非法操作~!")
window.location.href"index.asp"
</script>
<%else
response.redirect rs("downurl")
end if
rs.close
set rs=nothing
set conn=nothing
%>