<% 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%>