www.gusucode.com > 艺帆全站DIV+CSS体育用品公司网站源码 1.7.5源码程序 > i5808/add_link_pass.asp
<!--#include file="../Conn.asp" --> <!--#include file="seeion.asp" --> <% set rs=server.createobject("adodb.recordset") sql="select * from link" rs.open sql,conn,1,3 title=request.form("title") url=request.form("url") px_id=request.form("px_id") lx=request.form("lx") logo=request.form("img") if lx="" then response.Write("<script language=javascript>alert('请选择链接类型!');history.go(-1)</script>") response.end end if if title="" then response.Write("<script language=javascript>alert('链接名称不能为空!');history.go(-1)</script>") response.end end if if url="" then response.Write("<script language=javascript>alert('链接地址不能为空!');history.go(-1)</script>") response.end end if if px_id="" then response.Write("<script language=javascript>alert('排序ID不能为空!');history.go(-1)</script>") response.end end if IF not isNumeric(request("px_id")) then response.write("<script>alert(""排序ID必须为数字!""); history.go(-1);</script>") response.end end if rs.addnew rs("lx")=lx rs("title")=title rs("url")=url rs("px_id")=px_id rs("logo")=logo rs.update rs.close set rs=nothing conn.close set rs=nothing Response.Write "<script>alert('友情链接增加成功,点击继续增加!');window.location.href='add_link.asp';</script>" %>