userinfo.asp

来自「网络考试系统最终备份」· ASP 代码 · 共 140 行

ASP
140 行
字号 
<!--#include file="conn.inc"-->
<html>

<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>用户信息</title>
<link rel="stylesheet" type="text/css" href="css.css">
</head>

<body bgcolor="#EFEFEF">

<% 
sql="select * from user_info where UserID=" & request("userid")
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
if rs.eof then
response.Write("用户不存在，或已经被删除")
else
%>
<table border="1" cellspacing="1" style="border-collapse: collapse" bordercolor="#C0C0C0" width="240" id="AutoNumber1">
  <tr>
    <td colspan="2" bgcolor="#E1E1E1">
    <p align="center"><font color="#003399"><b>用户信息</b></font></td>
  </tr>
  <tr>
    <td bgcolor="#E1E1E1" width="80" align="center">帐&nbsp;&nbsp;&nbsp;号</td>
    <td align="center"><%=rs("UserAccount")%>　</td>
  </tr>
  <tr>
    <td bgcolor="#E1E1E1" align="center">姓&nbsp;&nbsp;&nbsp; 名</td>
    <td align="center"><%=rs("UserRName")%>　</td>
  </tr>
  <tr>
    <td bgcolor="#E1E1E1" align="center">学&nbsp;&nbsp;&nbsp; 校</td>
    <td align="center"><%
		
		sql1 = "select * from college_info where CollegeID ="&rs("College_ID")
		set rs2 = server.CreateObject("adodb.recordset")
		rs2.open sql1,conn,3,2
		if rs2.eof then
		response.Write("xxxxx")
		else
		response.Write(rs2("CollegeName"))
		end if
		rs2.close
		set rs2=nothing
		%>　    </td>
  </tr>
  <tr>
    <td bgcolor="#E1E1E1" align="center">院&nbsp;&nbsp;&nbsp; 系</td>
    <td align="center"><%
		
		sql1 = "select * from department_info where DepID ="&rs("Dep_ID")
		set rs2 = server.CreateObject("adodb.recordset")
		rs2.open sql1,conn,3,2
		if rs2.eof then
		response.Write("xxxxx")
		else
		response.Write(rs2("DepName"))
		end if
		rs2.close
		set rs2=nothing
		%>　    </td>
  </tr>
  <tr>
    <td bgcolor="#E1E1E1" align="center">专&nbsp;&nbsp;&nbsp; 业</td>
    <td align="center"><%
		
		sql1 = "select * from mayjor_info where MayjorID ="&rs("Mayjor_ID")
		set rs2 = server.CreateObject("adodb.recordset")
		rs2.open sql1,conn,3,2
		if rs2.eof then
		response.Write("xxxxx")
		else
		response.Write(rs2("MayjorName"))
		end if
		rs2.close
		set rs2=nothing
		
		%></td>
  </tr>
  <tr>
    <td bgcolor="#E1E1E1" align="center">班级/部门</td>
    <td align="center"><%
		
		sql1 = "select * from class_info where ClassID ="&rs("Class_ID")
		set rs2 = server.CreateObject("adodb.recordset")
		rs2.open sql1,conn,3,2
		if rs2.eof then
		response.Write("xxxxx")
		else
		response.Write(rs2("ClassName"))
		end if
		rs2.close
		set rs2=nothing
		
		%>　    </td>
  </tr>
  <tr>
    <td bgcolor="#E1E1E1" align="center">级&nbsp;&nbsp;&nbsp; 别</td>
    <td align="center">
	<%
	sql1 = "select * from role_info where RoleID = "&rs("Role_ID")
	set rs1 = server.CreateObject("adodb.recordset")
	rs1.open sql1,conn,3,2
	if rs1.eof then
		response.Write("xxxxx")
		else
	response.Write(rs1("RoleName"))
	end if
	%>　</td>
  </tr>
  <tr>
    <td bgcolor="#E1E1E1" align="center">权&nbsp;&nbsp;&nbsp; 限</td>
    <td align="center">
	<%
	if rs1.eof then
		response.Write("xxxxx")
		else
	response.Write(rs1("Roleright"))
	end if
  rs1.close
  set rs1 = nothing
	  rs.close
		set rs = nothing
		conn.close
		set conn = nothing
   
   end if %>　</td>
  </tr>
</table>
<p align="center">
<input type="button" onclick="self.close();" value="关闭窗口" name="B3" class="s02"></p>

</body>

</html>

userinfo.asp - 源码说明

本页面展示了「网络考试系统最终备份」中的 userinfo.asp 源码文件，采用 ASP 编程语言编写，共 140 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与网络考试系统相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?