in_直接进入.asp

来自「it is a good thing i think you will like」· ASP 代码 · 共 20 行

<!--#include file="dbpath.asp"-->
<%dim objRS,sql,user
user = Request.QueryString("user")
Set objRS = Server.CreateObject("ADODB.RecordSet")
sql = "select * from link where user='"&user&"'"
objRS.Open sql, Conn, 3, 3
response.cookies("jypx")="ok"
if request.cookies("jypxcookies")="" and request.cookies("jypx")="ok" then
  response.cookies("jypxcookies")="yyy"
	objRS("incount").value = objRS("incount").value + 1
	objRS.Update()
Response.Redirect "index.asp?type="&objRS("type")&""
else
Response.Redirect "index.asp?type="&objRS("type")&""
end if
objRS.Close()
Set objRS = nothing
Conn.Close()
Set Conn = nothing
%>