📄 url.asp
字号:
<!--#include file="conn.asp" -->
<%
intSiteIDNo = CInt(Request.QueryString("ID"))
Set rsGetURL = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM MB_Linkun WHERE L_ID = " & intSiteIDNo & ";"
rsGetURL.CursorType = 2
rsGetURL.LockType = 3
rsGetURL.Open strSQL, my_conn
If NOT rsGetURL.EOF Then
strURL = rsGetURL("L_URL")
If Request.Cookies("RateSite")("Site" & intSiteID) <> strURL Then
rsGetURL.Fields("L_Hits") = CLng(rsGetURL("L_Hits") + 1)
End If
rsGetURL.Update
Response.Cookies("RateSite")("Site" & intSiteID) = strURL
Response.Cookies("RateSite").Expires = Now() + 1
Set rsGetURL = Nothing
Set my_conn = Nothing
Response.Redirect strURL
End If
Set rsGetURL = Nothing
Set my_conn = Nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -