"
Else
If Action = "Reg" Then
Call SaveLinkSite
Else
Call main
End If
End If
If FoundErr = True Then
Call WriteErrMsg(ErrMsg, ComeUrl)
End If
Call CloseConn
Sub main()
%>
国产成人精品高清在线观看99,韩国精品视频在线观看,亚洲欧美激情另类
"
End If
If LinkSiteUrl = "" Or LinkSiteUrl = "http://" Then
FoundErr = True
ErrMsg = ErrMsg & "
網站地址不能為空！
"
End If
If LinkSiteAdmin = "" Then
FoundErr = True
ErrMsg = ErrMsg & "
站長姓名不能為空！
"
End If
If LinkSiteEmail <> "" And IsValidEmail(LinkSiteEmail) = False Then
FoundErr = True
ErrMsg = ErrMsg & "
電子郵件地址錯誤！
"
End If
If LinkSitePassword = "" Then
FoundErr = True
ErrMsg = ErrMsg & "
網站密碼不能為空！
"
End If
If LinkSitePwdConfirm = "" Then
FoundErr = True
ErrMsg = ErrMsg & "
確認密碼不能為空！
"
End If
If LinkSitePwdConfirm <> LinkSitePassword Then
FoundErr = True
ErrMsg = ErrMsg & "
網站密碼與確認密碼不一致！
"
End If
If LinkSiteIntro = "" Then
FoundErr = True
ErrMsg = ErrMsg & "
網站簡介不能為空！
"
End If
If FriendSiteCheckCode = True then
If LinkCheckCode = "" Then
FoundErr = True
ErrMsg = ErrMsg & "
請輸入驗證碼！
"
End If
If FriendSiteCheckCode = True then
If LinkCheckCode <> Session("CheckCode") Then
FoundErr = True
ErrMsg = ErrMsg & "
您輸入的確認碼和系統產生的不一致，請重新輸入。
"
End If
End If
End If
If FoundErr = True Then
Exit Sub
End If
If LinkLogoUrl = "" Or LinkLogoUrl = "http://" Then
LinkType = 2
Else
LinkType = 1
End If
Dim sqlLink, rsLink
LinkSiteName = ReplaceBadChar(LinkSiteName)
LinkSiteUrl = ReplaceUrlBadChar(LinkSiteUrl)
sqlLink = "select top 1 * from PE_FriendSite where SiteName='" & LinkSiteName & "' and SiteUrl='" & LinkSiteUrl & "'"
Set rsLink = Server.CreateObject("Adodb.RecordSet")
rsLink.open sqlLink, Conn, 1, 3
If Not (rsLink.bof And rsLink.EOF) Then
FoundErr = True
ErrMsg = ErrMsg & "
你申請的網站已經存在！請不要重復申請！
"
Else
rsLink.Addnew
rsLink("KindID") = KindID
rsLink("SpecialID") = SpecialID
rsLink("LinkType") = LinkType
rsLink("SiteName") = LinkSiteName
rsLink("SiteUrl") = LinkSiteUrl
rsLink("LogoUrl") = ReplaceUrlBadChar(LinkLogoUrl)
rsLink("SiteAdmin") = PE_HTMLEncode(LinkSiteAdmin)
rsLink("SiteEmail") = PE_HTMLEncode(LinkSiteEmail)
rsLink("SitePassword") = MD5(LinkSitePassword, 16)
rsLink("SiteIntro") = PE_HTMLEncode(LinkSiteIntro)
rsLink("Hits") = 0
rsLink("UpdateTime") = Now
rsLink("Passed") = False
rsLink.Update
Call WriteSuccessMsg("申請友情鏈接成功！請等待管理員審核通過。", ComeUrl)
End If
rsLink.Close
Set rsLink = Nothing
End Sub
Function GetLogo(LogoWidth, LogoHeight)
Dim strLogo, strLogoUrl
If LogoUrl <> "" Then
If LCase(Left(LogoUrl, 7)) = "http://" Or Left(LogoUrl, 1) = "/" Then
strLogoUrl = LogoUrl
Else
strLogoUrl = InstallDir & LogoUrl
End If
If LCase(Right(strLogoUrl, 3)) = "swf" Then
strLogo = ""
Else
strLogo = ""
strLogo = strLogo & " 0 Then strLogo = strLogo & " width='" & LogoWidth & "'"
If LogoHeight > 0 Then strLogo = strLogo & " height='" & LogoHeight & "'"
strLogo = strLogo & " border='0'>"
strLogo = strLogo & ""
End If
End If
GetLogo = strLogo
End Function
Function GetFsKind_Option(iKindType, KindID)
Dim sqlFsKind, rsFsKind, strOption
strOption = ""
ElseIf iKindType = 2 Then
strOption = strOption & ">不屬于任何專題"
End If
sqlFsKind = "select * from PE_FsKind"
If iKindType > 0 Then
sqlFsKind = sqlFsKind & " where KindType=" & iKindType
End If
sqlFsKind = sqlFsKind & " order by KindID"
Set rsFsKind = Conn.Execute(sqlFsKind)
Do While Not rsFsKind.EOF
If rsFsKind("KindID") = KindID Then
strOption = strOption & ""
Else
strOption = strOption & ""
End If
rsFsKind.movenext
Loop
rsFsKind.Close
Set rsFsKind = Nothing
GetFsKind_Option = strOption
End Function
%>