📄 friendsiteurl.asp
字号:
<%@language="vbscript" codepage="936" %>
<%
Option Explicit
'**************************************************************
' Software name: PowerEasy SiteWeaver
' Web: http://www.powereasy.net
' Copyright (C) 2005-2008 佛山市动易网络科技有限公司 版权所有
'**************************************************************
Response.Buffer = True
%>
<!--#include file="../conn.asp"-->
<%
Call OpenConn
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
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -