score.asp
来自「Active Server Pages 网页制作教程看之前请传到ASP空间。或者」· ASP 代码 · 共 23 行
ASP
23 行
<HTML>
<BODY>
<%
Num = Array("3101", "3102", "3103", "3104", "3105", "3106", "3107", "3108", "3109", "3110", "3111", "3112", "3113", "3114", "3115", "3116", "3117", "3118", "3119", "3120" )
Score = Array( 290, 291, 295, 296, 280, 276, 299, 300, 300, 280, 267, 240, 245, 288, 275, 291, 292, 285, 276, 290, 286, 259, 210, 220, 280, 277, 266, 255, 289, 278 )
data = Request("Num")
For I = 0 To UBound(Num)
If data = Num(I) Then
Response.Write "学号: " & Num(I) & "<BR>"
Response.Write "分数: " & score(I) & "<P>"
Exit For
End If
Next
If I > UBound(Num) Then
Response.Write "学号: " & data & " 输入错误!"
End If
%>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?