%
'**************************************************************
' Software name: PowerEasy SiteWeaver
' Web: http://www.powereasy.net
' Copyright (C) 2005-2009 佛山市动易网络科技有限公司 版权所有
'**************************************************************
Dim ID
ID = PE_CLng(Trim(request("ID")))
If ID = 0 Then
Call CloseConn
response.Redirect "index.asp"
End If
Dim sqlLink, rsLink
sqlLink = "select * from PE_FriendSite where ID=" & ID
Set rsLink = Server.CreateObject("Adodb.RecordSet")
rsLink.open sqlLink, Conn, 1, 3
If rsLink.bof And rsLink.EOF Then
FoundErr = True
ErrMsg = ErrMsg & "