friendsiteurl.asp

来自「江西旅行网整站源码下载 希望对大家有用 经过测试 安全可用」· ASP 代码 · 共 18 行

<!--#include file="../conn.asp"-->
<%
Dim ID
ID = Trim(Request("ID"))
If ID <> "" And IsNumeric(ID) Then
    ID = CLng(ID)
    Conn.Execute ("update PE_FriendSite set Hits=Hits+1 where ID=" & ID)
    Dim rsFriendSite, FriendSiteUrl
    Set rsFriendSite = Conn.Execute("select SiteUrl from PE_FriendSite where ID=" & ID)
    If Not (rsFriendSite.bof And rsFriendSite.EOF) Then
        FriendSiteUrl = rsFriendSite("SiteUrl")
    End If
    rsFriendSite.Close
    Set rsFriendSite = Nothing
    If FriendSiteUrl <> "" Then Response.Redirect (FriendSiteUrl)
End If
Call CloseConn
%>