login.htm
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>û½</title>
</head>

<body>

<div align="center">
<form name="form1" method="post" action="checkname.asp">
<table width="497" height="200" border="1" cellpadding="0" cellspacing="1">
<tr>
<td><div align="center">
û:&nbsp;&nbsp;&nbsp;&nbsp;
<input name="username" type="text" id="username">
</div></td>
</tr>
<tr>
<td><div align="center:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<input name="userkey" type="password" id="userkey">
</div></td>
</tr>
<tr>
<td><div align="center">
֤:
<input name="usercheck" type="password" id="usercheck">
</div></td>
</tr>
<tr>
<td><div align="center"><input name="radio1" type="radio"  value="s" checked>
ѧ</div></td>
</tr>
<tr>
<td><div align="center">
<input type="radio" name="radio1" value="t">
ʦ</div></td>
</tr>
<tr>
<td><div align="center">
<input type="submit" name="Submit" value="½">
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<input name="reset" type="reset" id="reset" value="ȡ">
</div></td>
</tr>
</table>
</form>
</div>
</body>
</html>
4checkname.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<%
'******************checkname.asp*****************
username = request("username")
username = replace(username,"'","""")
key  = request("userkey")
key = replace(key,"'","""")
checkcode = request("usercheck")
checkcode = replace(checkcode,"'","""")
if username = "" or key = "" or checkcode = "" then
response.Write "û벻Ϊ!"
response.write "<a href = login.htm> [ص½]</a>"
response.end
else
session("username") = username
session("key") = key
session("checkcode") = checkcode
session.timeout = 20
set conn = server.createobject("ADODB.Connection")
DBPath = server.MapPath("vcdb.mdb")
conn.open "provider = Microsoft.Jet.OLEDB.4.0; data source= " & DBPath
if request("radio1") = "s" then
SQLCmd = "select * from student where stu_username = '" & username &"' and stu_key = '" & _
key &"' and stu_id = '" & checkcode & "'"
else
SQLCmd = "select * from teacher where tea_username = '" & username &"' and tea_key = '" & _
key &"' and tea_id = '" & checkcode & "'"
end if
set rs = conn.execute(SQLCmd)
if not rs.eof then
Response.write  "½ɹ"
else
response. write  "½ʧܣ"
end if
rs.close
conn.close
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>ޱĵ</title>
</head>

<body>

</body>
</html>
