open.asp

这是一个ASP+VBScript+Access开发的网上家园源程序

<!--#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
%>