checkreg.asp

自由领域ASP+WAP同学录(V1.0)系统是一套仿ChinaRen的即可用电脑浏览又可以用手机访问的互动同学录单班级系统。这套系统同学录系统可以满足现在WAP普及的今天同学用手机上网交流的需求

<%@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")
%>