<% Action=trim(request("Action")) if EnableLinkReg=0 then FoundErr=True ErrMsg=ErrMsg & "
  • 管理员没有开放友情链接申请！
    • " else if Action="Reg" then Call SaveLinkSite() else Call main() end if end if if FoundErr=True then call WriteErrMsg() end if call CloseConn() sub main() %> <% =GetSkin_CSS() %> 申请友情链接
    本站链接信息
    本站名称： <%=SiteName%>
    本站地址： <%=SiteUrl%>
    本站Logo：
    站长姓名： <%=WebmasterName%>
    电子邮件： <%=WebmasterEmail%>
    本站简介： 请申请链接的同时做好本站的链接。

    申请友情链接
    链接类型： Logo链接     文字链接
    网站名称： *
    网站地址： *
    网站Logo： 大小必须是88*31
    站长姓名： *
    电子邮件： *
    网站密码： * 用于修改信息时用。
    确认密码： *
    网站简介：

    <% end sub sub SaveLinkSite() 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 Exit Sub End If dim sqlLink,rsLink sqlLink="select top 1 * from PE_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 sub %>