www.pudn.com > baxun36.rar > chklogin.asp, change:2006-04-19,size:1188b


<!--#include file="mdb.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 
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 
%>