student_profile.asp
来自「基于ASP的在线考试系统的设计与实现,想下一的可以看一下基于ASP的在线考试系统」· ASP 代码 · 共 105 行
ASP
105 行
<%@ Language=VBScript%>
<%option explicit
'''''''''''''''''''''''''''''''''''''''''''''''''''
%> <!-- #INCLUDE FILE = "connect_login.asp" --> <%
userid= session("userid")
dim myrs
set myrs = server.createobject("ADODB.recordset")
myrs.open "select * from userlogin where userid='"& userid &"'",myconn,3
'''''''''''''''''''''''''''''''''''''''''''''''''''
dim myrs2
set myrs2 = server.createobject("ADODB.recordset")
myrs2.open "select * from userexams where userid='"& userid &"'",myconn,3
'''''''''''''''''''''''''''''''''''''''''''''''''''
%>
<html>
<head>
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>Student Performance Report</title>
</head>
<body>
<table width="80%" style="BORDER-COLLAPSE: collapse" bordercolor="#111111" cellpadding="0" cellspacing="0">
<tr><td style="WIDTH: 500px" width=500 bgColor=gold
><P align=right><strong style="font-weight: 400"><font size="4">用户详细信息</font></strong></P>
</td>
</tr>
</table>
<%
dim strtable,userid
if not myrs2.EOF then
strtable="<h2>学生名称："& userid &"</h2>"_
& "<table border=1 cellpadding=2 width='80%'><tr bgcolor=LightGoldenrodYellow><td>考试名称</td>"_
& "<td>考试日期</td><td>分数</td><td>状态</td>"
while not myrs2.EOF
strtable = strtable & "<tr><td>" & myrs2("ExamName")& "</td><td>"_
& myrs2("testDate") & "</td><td>" & myrs2("Percentage")& "</td><td>"_
& myrs2("Status")& "</td></tr>"
myrs2.MoveNext
wend
Response.Write strtable
Response.Write "</table><br><br>"
end if
%>
<hr>
个人详细信息................
<p>
<TABLE border=1 cellPadding=3 cellSpacing=1 width="75%">
<TR>
<TD>姓名 </TD>
<TD><%=myrs("fname")%> </TD></TR>
<TR>
<TD>专业</TD>
<TD><%=myrs("lname")%> </TD></TR>
<TR>
<TD>生日</TD>
<TD><%=myrs("dob")%> </TD></TR>
<TR>
<TD>性别</TD>
<TD><%=myrs("gender")%> </TD></TR>
<TR>
<TD>地址</TD>
<TD><%=myrs("street")%> </TD></TR>
<TR>
<TD>市县</TD>
<TD><%=myrs("city")%> </TD></TR>
<TR>
<TD>省份</TD>
<TD><%=myrs("state")%> </TD></TR>
<TR>
<TD>国籍</TD>
<TD><%=myrs("country")%> </TD></TR>
<TR>
<TD>邮政编码</TD>
<TD><%=myrs("zipcode")%> </TD></TR>
<TR>
<TD>电话</TD>
<TD><%=myrs("phone1")%> </TD></TR>
<TR>
<TD>手机</TD>
<TD><%=myrs("phone2")%> </TD></TR>
<TR>
<TD></TD>
<TD></TD></TR></TABLE></p>
<p>
<br>
</p>
<table width="80%" style="BORDER-COLLAPSE: collapse" bordercolor="#111111" cellpadding="0" cellspacing="0">
<tr><td style="WIDTH: 500px" width=500 bgColor=gold
>
<p align="right">在线考试系统</td>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?