📄 open.asp
字号:
<!--#include file="connect.asp" -->
<!--#include file="include\nosqlin.asp" -->
<%
ID=request("ID")
strSQL= "select * from information where id ="&ID
set rs = objCnn.Execute(strSQL)
if not rs.eof then
URL = "http://"&servername&"/"&rs("user")&"/"
set rs=nothing
strSQL="update information set AccessCount=AccessCount+1,MCount=MCount+1 where id ="&ID
objCnn.Execute(strSQL)
objCnn.close
set objCnn=nothing
response.redirect URL
else
response.write "对不起,您访问的站点不存在或是已经被管理员关闭,<a herf='VBScript:window.close'>单击此处</a>关闭窗口。"
end if
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -