check.asp

来自「这是一个无纸化测试系统」· ASP 代码 · 共 39 行

<!-- #include virtual="../itest/DB.fun" -->
<%
'得到传递的信息

Name = Request("Name")

' 检查是否为空白

If name = Empty Then
   ShowMessage "单元留白，不接受!"
End If


' 检查UserID
SQL = "Select * From 成绩单 where 姓名='" & name & "'"

Set rs = GetMdbRecordset( "Test.mdb", SQL )
if not rs.eof then
userID=rs("学号")
ShowMessage "学号是" & UserID
else ShowMessage "查无此人"
end if
%>


<% 
Sub ShowMessage( msg ) 
%>
   <CENTER>
   <H2><font color=red><%=msg%></font><HR></H2>
   <FORM><INPUT Type=Button Value="返回上一页" OnClick="history.back();">
   </FORM>
   </CENTER>
<%
   Response.End 
End Sub 
%>