<% dim Action,FoundErr,ErrMsg Action=trim(request("Action")) if EnableLinkReg="No" then FoundErr=True ErrMsg=ErrMsg & "
  • 管理员没有开放友情链接申请!
  • " call WriteErrMsg() else if Action="Reg" then dim LinkType,LinkSiteName,LinkSiteUrl,LinkLogoUrl,LinkSiteAdmin,LinkEmail,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")) 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 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 FoundErr<>True then dim sqlLink,rsLink sqlLink="select top 1 * from FriendSite where SiteName='" & dvHtmlEncode(LinkSiteName) & "' and SiteUrl='" & dvHtmlEncode(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("LinkType")=LinkType rsLink("SiteName")=dvHtmlEncode(LinkSiteName) rsLink("SiteUrl")=dvHtmlEncode(LinkSiteUrl) rsLink("LogoUrl")=dvHtmlEncode(LinkLogoUrl) rsLink("SiteAdmin")=dvHtmlEncode(LinkSiteAdmin) rsLink("Email")=dvHtmlEncode(LinkEmail) rsLink("SitePassword")=md5(LinkSitePassword) rsLink("SiteIntro")=dvHtmlEncode(LinkSiteIntro) rsLink.update rsLink.close set rsLink=nothing call WriteSuccessMsg() end if end if if FoundErr=True then call WriteErrMsg() end if else %> 申请友情链接
    申请友情链接
    链接类型: Logo链接     文字链接
    网站名称: *
    网站地址: *
    网站Logo: 大小必须是88*31
    站长姓名: *
    电子邮件: *
    网站密码: * 用于修改信息时用。
    确认密码: *
    网站简介:
     
    <% end if end if call CloseConn() sub WriteSuccessMsg() response.write "申请友情链接成功!请等待管理员审核通过。" end sub %>