<%
dim ID,Action,FoundErr,ErrMsg
ID=trim(request("ID"))
Action=trim(request("Action"))
if ID="" then
call CloseConn()
response.redirect "FriendSite.asp"
end if
dim sqlLink,rsLink
sqlLink="select * from FriendSite where ID=" & CLng(ID)
set rsLink=Server.CreateObject("Adodb.RecordSet")
rsLink.open sqlLink,conn,1,3
if rsLink.bof and rsLink.eof then
FoundErr=True
ErrMsg=ErrMsg & "
找不到站点！
"
else
if Action="Modify" then
dim LinkType,LinkSiteName,LinkSiteUrl,LinkLogoUrl,LinkSiteAdmin,LinkEmail,OldSitePassword,LinkSitePassword,LinkSitePwdConfirm,LinkSiteIntro
LinkType=trim(request("LinkType"))
LinkSiteName=trim(request("SiteName"))
LinkSiteUrl=trim(request("SiteUrl"))
LinkLogoUrl=trim(request("LogoUrl"))
LinkSiteAdmin=trim(request("SiteAdmin"))
LinkEmail=trim(request("Email"))
OldSitePassword=trim(request("OldSitePassword"))
LinkSitePassword=trim(request("SitePassword"))
LinkSitePwdConfirm=trim(request("SitePwdConfirm"))
LInkSiteIntro=trim(request("SiteIntro"))
if LinkType="" then
FoundErr=True
ErrMsg=ErrMsg & "
链接类型不能为空！
"
else
LinkType=Cint(LinkType)
if LinkType=1 and (LinkLogoUrl="" or LinkLogoUrl="http://") then
FoundErr=True
ErrMsg=ErrMsg & "
网站LOGO不能为空！
"
end if
end if
if LinkSiteName="" then
FoundErr=True
ErrMsg=ErrMsg & "
网站名称不能为空！
"
end if
if LinkSiteUrl="" then
FoundErr=True
ErrMsg=ErrMsg & "
网站地址不能为空！
"
end if
if LinkSiteAdmin="" then
FoundErr=True
ErrMsg=ErrMsg & "
站长姓名不能为空！
"
end if
if LinkEmail="" then
FoundErr=True
ErrMsg=ErrMsg & "
Email不能为空！
"
else
if IsValidEmail(LinkEmail)=false then
errmsg=errmsg & "
Email地址错误!
"
founderr=true
end if
end if
if OldSitePassword="" then
FoundErr=True
ErrMsg=ErrMsg & "
旧网站密码不能为空！
"
end if
if md5(OldSitePassword)<>rsLink("SitePassword") 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 LinkSiteIntro="" then
FoundErr=True
ErrMsg=ErrMsg & "
网站简介不能为空！
"
end if
if FoundErr<>True then
rsLink("LinkType")=LinkType
rsLink("SiteName")=dvHtmlEncode(LinkSiteName)
rsLink("SiteUrl")=dvHtmlEncode(LinkSiteUrl)
rsLink("LogoUrl")=dvHtmlEncode(LinkLogoUrl)
rsLink("SiteAdmin")=dvHtmlEncode(LinkSiteAdmin)
rsLink("Email")=dvHtmlEncode(LinkEmail)
if LinkSitePassword<>"" then
rsLink("SitePassword")=md5(LinkSitePassword)
end if
rsLink("SiteIntro")=dvHtmlEncode(LinkSiteIntro)
rsLink.update
rsLink.close
set rsLink=nothing
call CloseConn()
Response.Redirect "FriendSite.asp"
end if
end if
end if
if FoundErr=True then
call WriteErrMsg()
else
%>
修改友情链接信息
<%
end if
rsLink.close
set rsLink=nothing
call CloseConn()
%>