www.gusucode.com > 漂亮的地方旅游景点景观介绍网站源代码 > chk.asp

    <!--#include file="config.asp" -->
<%
dim psw
psw=getform("psw",1,0)

if psw="" then 
call cc("请填写密码")
end if

psw=get_safestr(psw)
psw=cstr(replace(psw," ",""))

dim xzmmstr
xzmmstr=split(xzmm,"|")

dim i,chk
chk=0
for i=0 to ubound(xzmmstr)
if psw=replace(cstr(xzmmstr(i))," ","") then 
chk=1
exit for
end if
next 

if chk=0 then 
call cc("密码错误！")
else
session("on")="xzon"
response.Redirect("downclass1.asp")
end if
%>