saverification.asp

来自「这是一个用ASP写的在线考试系统.特别一点 就是考试试卷有两种考法,一种为系统」· ASP 代码 · 共 26 行

<link href="css/Style.css" rel="stylesheet" type="text/css"> 

<!--#include file="conn2.asp"-->
<%
'登录权限
session("saLoginRole")="logout"
sanameT=request("saname")
sapsT=request("saps")
sapsvT=request("sapsv")
'安全
sapsT=replace(sapsT,"'","*")
sapsT=replace(sapsT,"""","*")
adminSql="select ID from admin where SANAME='"&sanameT&"' and SAPASS='"&sapsT&"'"
set rsT=conn.execute(adminSql)
if not rsT.eof and sapsvT="sa" then
	session("saLoginRole")=rsT("ID")
	response.Write("<p>&nbsp;</p><center><img src='img/succ.gif' border='1'></center>")
	response.End()
	conn.close()
	set conn=nothing
end if
server.Transfer("salogin.asp")
conn.close()
set conn=nothing
%>