www.gusucode.com > 黑鹰自助链管理系统 1.1 商业版码程序 > chklogin.asp

    <!--#include file="mdb.asp"-->
<%
mofei=trim(request.form("mofei"))
if mofei="" then
Response.Write ("<script language=javascript>alert('验证码不能为空！');this.location.href='login.asp';</script>")
response.end 
end if
if cstr(session("getcode"))<>cstr(mofei) then
Response.Write ("<script language=javascript>alert('验证码输入有误请核对！');this.location.href='login.asp';</script>")

response.end 
end if
action=request("action")
memo=request("memo")
title=request("title")
email=request("email")
url=request("url")
yl_time=now()
classname=request("classname")
leibie=request("leibie")
if action="add_wz" then
if title="" or memo="" or url="" or email="" or leibie="" then
Response.Write ("<script language=javascript>alert('表单填写不完整！');this.location.href='login.asp';</script>")
Response.End
end if

if request("leibie")=0  then
Response.Write ("<script language=javascript>alert('请选择分类,重新提交！');this.location.href='login.asp';</script>")
Response.End
end if
	Comments1=request.form("title")
	Comments2=request.form("url")
	Set rs=Server.CreateObject("ADODB.Recordset")
    sql="select * from title"
    rs.open sql,conn,1,3
	keyWord=rs("youqing123_safe")
	keyWord1=split(keyWord,"@")		'过滤脏话
	for t=0 to ubound(keyWord1)
	Comments1=replace(Comments1,keyWord1(t),"***")
	Comments2=replace(Comments2,keyWord1(t),"***")
	next
	if request.form("title")<>Comments1 then
	response.write "<script language='javascript'>"
	response.write "alert('出错了，您提交信息的含禁止提交的内容！');"
	response.write "location.href='javascript:history.go(-1)';"							
	response.write "</script>"	
	end if
	if request.form("url")<>Comments2 then
	response.write "<script language='javascript'>"
	response.write "alert('出错了，您提交信息的含禁止提交的内容！');"
	response.write "location.href='javascript:history.go(-1)';"							
	response.write "</script>"
	response.end
	end if
	

if len ( title )>8  then
Response.Write ("<script language=javascript>alert('标题的字符数超过8字！');this.location.href='login.asp';</script>")
Response.End
end if

If len( memo )>50 Then
	response.write "<SCRIPT language=JavaScript>alert('简介的字符数超过50字！');"
	response.write "this.location.href='login.asp';</script>"
	response.end
End If

if url<>"" then
dim domain
domain = mid(url,8)
if instr(domain,"/")>0 then
domain = left(domain,instr(domain,"/"))
end if
set rs=server.createobject("adodb.recordset")
sql="select * from detail where url like '%"&domain&"%'"
rs.open sql,conn,1,1
if not(rs.eof or rs.bof) then
Response.Write ("<script language=javascript>alert('您的网站已经登录，请不要重复提交,请作好我站的链接点击一下即可显示！');this.location.href='login.asp';</script>")
response.end
rs.close
set rs=nothing
end if
end if

if Session("lastaddedwz")<>title then
set rss=server.createobject("adodb.recordset")
'rss.open "select * from detail where url='"&url&"'",conn,1,3
'if not rss.bof and not rss.eof then
'response.write "<SCRIPT language=JavaScript>'alert('您的网站已经登录，请不要重复提交,请作好我们的链接点击一下即可！');"
'response.write "this.location.href='vbscript:history.back()';</SCRIPT>"
'response.end
'else
rss.open "select * from detail",conn,1,3
rss.addnew
rss("title")=title
rss("url")=url
rss("classid")=leibie
rss("email")=email
rss("memo")=memo
rss("yl_time")=now()
rss("yl_intime")=now()
rss("verity")=0
rss("zhang")=0
rss.update
rss.close
set rss=nothing
Session("lastaddedwz")=title
Response.Write ("<script language=javascript>alert('你的网站已经成功提交！请必须做好我站连接后点击一次我站链接,系统自动审核开通你的网站！!');this.location.href='weishen.asp';</script>")
Response.End
'end if
end if
end if
%>