📄 checklogin.asp
字号:
<%
response.buffer=true
Response.Expires=0
xh=request("xh")
mm=request("mm")
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("class_cj.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from user where xh='"&xh&"' and mm='"&mm&"'"
rs.open sql,conn,3,3
if rs.eof then
response.write("<table width=300 border=0 cellspacing=0 cellpadding=0 align=center>")
response.write("<tr><td>－－你到底注册没有？－－</td></tr>")
response.write(" <tr><td>－－－<a href=vbscript:history.back()>回去重来</a>－－－</td></tr>")
response.write("</table>")
response.end
else %>
<body>
<p> </p><table width="98%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>您的身份已经确认[学号:<font color=red><%=xh%></font>]，请选择操作: [<a href="index.asp">退出</a>]</td>
</tr>
<tr>
<td><form action="look.asp" method="post" name="form1" >
<table width="500" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="174" nowrap>
<div align="center">查询成绩：</div>
</td>
<td width="326">
<input type="hidden" name="xh" value="<%=request("xh")%>">
<input name="submit" type="submit" value="确定">
</td>
</tr>
<tr>
<td colspan="2">
<div align="center"> </div>
</td>
</tr>
</table>
</form></td>
</tr>
</table>
<%end if
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -