login.asp

一个功能强大的搜索系统

<!--#include file="setup.asp"-->
<!--#include file="conn.asp"-->
<%
'================================================================================
'Product:K-Search Version 2.1
'本“软件产品”受《中华人民共和国著作权法》和《中华人民共和国计算机软件保护条例》 
'和国际条约的保护。如未经授权而擅自复制或传播本程序（或其中任何部分），将受到严厉
'的刑事及民事制裁，并将在法律许可的范围内受到最大可能的起诉！
'Homepage：http://www.lucoo.com/
'--------------------------------------------------------------------------------
'Copyright(c) 2005 lucoo.com All Rights Reserved 绿色互联 版权所有
'================================================================================
function filtration(str)
str=replace(str,chr(32),"")
str=replace(str,chr(34),"")
str=replace(str,chr(35),"")
str=replace(str,chr(37),"")
str=replace(str,chr(38),"")
str=replace(str,chr(39),"")
str=replace(str,chr(40),"")
str=replace(str,chr(41),"")
str=replace(str,chr(42),"")
str=replace(str,chr(43),"")
str=replace(str,chr(58),"")
str=replace(str,chr(59),"")
str=replace(str,chr(60),"")
str=replace(str,chr(61),"")
str=replace(str,chr(62),"")
filtration=str
end Function

select case request("action")
case "login"
call login()

case "loginout"
call loginout()
end select

sub login()

dim rs
dim sql
dim name
dim email

name=filtration(request.form("name"))
email=filtration(request.form("email"))
if name=""  then 
conn.close
set conn=nothing
response.write "<Script>window.alert('联系人不能空');history.go(-1);</Script>"
else
if email="" then
conn.close
set conn=nothing
response.write "<Script>window.alert('电子邮箱不能空');history.go(-1);</Script>"
else
set rs=server.createobject("adodb.recordset")
sql="select id,email,name from web where name='"&name&"'"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
rs.close
set rs=nothing
conn.close
set conn=nothing
response.write "<Script>window.alert('联系人错误！');javascript:history.back(1);</Script>"
response.end
else
if rs("email")<>email then
rs.close
set rs=nothing
conn.close
set conn=nothing
response.write "<Script>window.alert('电子邮箱错误！');javascript:history.back(1);</Script>"
response.end
else
session("email")=rs("email")
session("id")=rs("id")
response.write "<Script>location.replace('join_edit.asp');</Script>"
end if
end if
end if
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
end sub


sub loginout()
session("email")=""
session("id")=""
response.write "<Script>location.replace('index.asp');</Script>"
end sub
%>