chklogin.asp

网址使用源码

<!--#include file=conn.asp-->
<!--验证码开始-->
<%
mofei=trim(request.form("mofei"))
if mofei="" then
response.write "验证码为空!"
response.end 
end if
if cstr(session("getcode"))<>cstr(mofei) then
response.write "验证码输入有误!请核对!"
response.end 
end if
response.write "你输入的验证码正确!是:"&mofei
%>
<!--验证码结束-->
<!--表单提交开始-->
<%
action=request("action")
memo=request("memo")
title=request("title")
email=request("email")
url=request("url")
classname=request("classname")
leibie=request("leibie")
if action="add_wz" then
	if title="" or memo="" or url="" or email="" or leibie="" then
		Response.Write "表单填写不完整！"
		Response.End
	end if
	if Session("lastaddedwz")<>title then
		set rss=server.createobject("adodb.recordset")
		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("verity")=0
		rss.update
		rss.close
		set rss=nothing
		Session("lastaddedwz")=title
		Response.Write "<table width=100% height=100%\><tr><td width=100% height=100% align=center>"
		Response.Write "你的网站信息已经成功提交！我们会在72小时内审核你的网站是否收录！"
		Response.Write "</td></tr></table>"
		Response.End
	end if
end if
if action="add_leibie" then
	if classname="" or leibie="" then
		Response.Write "表单填写不完整！"
		Response.End
	end if
	if Session("lastaddedleibie")<>classname then
		set rss=server.createobject("adodb.recordset")
		rss.open "select * from feilei",conn,1,3
		rss.addnew
		rss("classname")=classname
		rss("topclass")=leibie
		set r=server.createobject("adodb.recordset")
		r.open "select * from feilei where classid="&leibie,conn,1,3
		if not r.eof then
			level=r("level")+1
		else
			level=1
		end if
		r.close
		set r=nothing
		rss("level")=level
		if memo="" then memo=" "
		rss("memo")=memo
		rss("verity")=0
		rss.update
		rss.close
		set rss=nothing
		Session("lastaddedleibie")=classname
		Response.Write "<table width=100% height=100%\><tr><td width=100% height=100% align=center>"
		Response.Write "新网站分类信息已经成功提交！我们会在72小时内审核（未审核通过的分类不在前台显示）！"
		Response.Write "</td></tr></table>"
		Response.End
	end if
end if
%>
<!--表单提交结束-->