<% 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 %> 修改友情链接信息
    修改友情链接信息
    链接类型: > Logo链接     > 文字链接
    网站名称: " size="30" maxlength="20"> *
    网站地址: " title="这里请输入您的网站地址,最多为50个字符,前面必须带http://"> *
    网站Logo: " title="这里请输入您的网站LogoUrl地址,最多为50个字符,如果您在第一选项选择的是文字链接,这项就不必填">
    站长姓名: " size="30" maxlength="20"> *
    电子邮件: " title="这里请输入您的联系电子邮件,最多为30个字符"> *
    原网站密码: * 必须输入
    新网站密码: 若不修改,请保持为空
    确认密码:
    网站简介:
    ">
    <% end if rsLink.close set rsLink=nothing call CloseConn() %>