<% if request.form("action")="postLink" then dim link_Name,link_URL,link_Image,linkCount,linkDB,linkvalidate link_Name=checkURL(checkstr(request.form("link_Name"))) link_URL=checkURL(checkstr(request.form("link_URL"))) link_Image=checkURL(checkstr(request.form("link_Image"))) linkvalidate=checkURL(checkstr(request.form("link_validate"))) IF cstr(lcase(Session("GetCode")))<>cstr(lcase(linkvalidate)) and not stat_Admin then showmsg "友情链接发表出错","验证码有误，请返回重新输入
请返回重新输入","ErrorIcon","" end if if len(link_Name)<1 then showmsg "友情链接发表出错","网站名称不能为空！
返回","ErrorIcon","" end if if len(link_URL)<1 then showmsg "友情链接发表出错","网站地址不能为空！
返回","ErrorIcon","" end if linkCount=int(conn.execute("select count(*) from blog_links")(0)) Set linkDB=Server.CreateObject("ADODB.RecordSet") linkDB.Open "blog_links",Conn,1,2 linkDB.addNew linkDB("link_Name")=link_Name linkDB("link_URL")=link_URL linkDB("link_Image")=link_Image linkDB("link_Order")=linkCount linkDB("link_IsShow")=false linkDB.update linkDB.close set linkDB=nothing showmsg "友情链接添加成功","网友情链接添加成功,请等待审核！
返回","MessageIcon","" end if on error resume Next server.execute("post/link.html") if err then err.clear dim blog_Links,ImgLink,TextLink set blog_Links=conn.execute("select * from blog_Links where link_IsShow=true order by link_Order asc") SQLQueryNums=SQLQueryNums+1 do until blog_Links.eof if len(blog_Links("link_Image"))>0 then ImgLink=ImgLink&"" else TextLink=TextLink&"" end if blog_Links.movenext loop %> <%end If%>