chklogin.asp

sfsfds设定方式分上述事实是事实是事实是事实是事实上

<!--#include file="mdb.asp"-->
<!--#include file="md5.asp"-->
<%
server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
if mid(server_v1,8,len(server_v2))<>server_v2 then
Response.Write("<script language=javascript>alert('你提交的路径有误');this.location.href='login.asp';</script>") 
response.end
end if

dim login
dim action,mofei
dim title,email,url,leibie,link,memo

action=request.form("action")
mofei=trim(request.form("mofei"))

sql="select login from O3888_title"
set rs=conn.execute(sql)
login=rs("login")
rs.close
set rs=nothing
if login=0 then
Response.Write "<table width=100% height=60%/><tr><td width=100% height=100% align=center>"
Response.Write "暂时关闭会员和游客系统，请稍后再来"
Response.Write "</td></tr></table>"
Response.End
end if

if action="add_wz" and login=1 then
if mofei="" then
	Response.Write("<script language=javascript>alert('验证码不能为空');this.location.href='login.asp';</script>")
	response.end
end if
if cstr(session("CheckCode"))<>cstr(mofei) then
	Response.Write("<script language=javascript>alert('你输入的验证码有误');this.location.href='login.asp';</script>")
	response.end
end if
if request.form("leibie")=0 then
	Response.Write("<script language=javascript>alert('请选择分类');this.location.href='login.asp';</script>")
	response.end
end if
if request.form("title")="" then
	Response.Write("<script language=javascript>alert('请输入网站名称');this.location.href='login.asp';</script>")
	response.end
end if
if request.form("url")="" then
	Response.Write("<script language=javascript>alert('请输入网站地址');this.location.href='login.asp';</script>")
	response.end
end if
if request.form("email")="" then
	Response.Write("<script language=javascript>alert('请输入E-mail');this.location.href='login.asp';</script>")
	response.end
end if
if request.form("memo")="" then
	Response.Write("<script language=javascript>alert('请输入网站简介');this.location.href='login.asp';</script>")
	response.end
end if
If IsValidEmail(request.form("Email")) = False Then
	Response.Write("<script language=javascript>alert('你输入的Email有误');this.location.href='login.asp';</script>")
	response.end
End If
if strLength(request.form("memo"))>100 then
	Response.Write("<script language=javascript>alert('网站简介已经超过50字');this.location.href='login.asp';</script>")
	response.end
End If
memo=iHTMLEncode(Trim(request.form("memo")))
title=ReplaceBadChar(Trim(request.form("title")))
link=ReplaceBadChar(Trim(request.form("link")))
email=ReplaceBadChar(Trim(request.form("email")))
url=Replace(Trim(request.form("url")),"'","")
leibie=ReplaceBadChar(Trim(request.form("leibie")))
set rss=server.createobject("adodb.recordset")
rss.open "select * from O3888_website",conn,1,3
	rss.addnew
	rss("title")=title
	rss("link")=link
	rss("url")=url
	rss("classid")=leibie
	rss("email")=email
	rss("memo")=memo
	rss("userid")=0
	rss("verity")=0
	rss.update
	rss.close
	set rss=nothing
	response.write "<table width='750' border='0' align='center' cellpadding='0' cellspacing='0'><tr><td height='140'></td></tr><tr><td>"
	response.write "<p align='center'><font color='#FF0000'>你的网站信息已经提交成功！</font></p>"
	response.write "<p align='center'><font color='#FF0000'>我们会在5个工作日内审核你的网站是否收录！</font></p>"
	response.write "</td></tr></table>"
	Response.End
end if
%>