checkreg.asp

来自「自由领域ASP+WAP同学录(V1.0)系统是一套仿ChinaRen的即可用电脑」· ASP 代码 · 共 28 行

<%@LANGUAGE="VBSCRIPT"  CODEPAGE="65001"%>
<!--#include file="conn.asp"-->
<%
answer1=request.form("answer1")
answer2=request.form("answer2")
response.ContentType="text/vnd.wap.wml;charset=utf-8"
if answer1="" or answer2="" then
response.redirect("error.asp")
end if
%>
<%
set rs=server.createobject("ADODB.RECORDSET")
rs.open "select answer1,answer2 from config where id=1",conn,1,3
if rs("answer1")=answer1 and rs("answer2")=answer2 then
session("record")=1
rs.close
set rs=nothing
conn.close
set conn=nothing
response.redirect("reg4.asp")
else 
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
response.redirect("error.asp")
%>