pass.asp

采用ASP+ACCESS+ASPUPJPG组件构成

<%@ ENABLESESSIONSTATE = FALSE %>
<!--#include file="mdb/conn.asp" -->
<%
pa=Request.Form("pase")
'response.write pa
'response.end
if pa = "" then
response.write "<script>alert('对不起,通行证不可以为空!');history.back();</script>"
response.end
end if
dim typename,classid,classname,pl,hot
if IsNumeric(Request.QueryString("typeid"))=False then
Response.Redirect"info.asp?info=错误的参数"
else
typeid=cint(Request.QueryString("typeid"))
end if
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from zhuanti where id="&typeid
'response.write sql
'response.end
Set rs = Server.CreateObject("ADODB.Recordset")
rs.OPEN sql,Conn,1,3
if Rs("pass")="" OR IsNULL(Rs("pass"))=true then
Response.redirect "zhuanti.asp?typeid="&typeid
Response.End
	else
	ps = Rs("pass")
	end if
if ps <> pa then
response.write "<script>alert('对不起,通行证没有得到认可,请重新再试!');history.back();</script>"
response.end
else
	Response.cookies("'"&typeid&"'") = pa
Response.redirect "zhuanti.asp?typeid="&typeid
Response.End
	end if
set conn = nothing
%>