⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 profile.asp

📁 === === === === === === === === === 项目:图书管理系统V2.0 作者:覃武权 主页:http://cpucool.512j.com 邮箱:cooltoend
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Connections/conn.asp" -->
<!--#include file="global.asp" -->
<% checkUser("user") %>
<% If Session("userright")="admin" Then
	showMsg "用户类型:管理员"
End If %>
<% If Session("userright")="user" Then %>
<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = Session("cardno")
If (Request("MM_EmptyValue") <> "") Then 
  Recordset1__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_conn_STRING
Recordset1.Source = "SELECT * FROM Borrowers WHERE cardno = " + Replace(Recordset1__MMColParam, "'", "''") + ""
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()

Recordset1_numRows = 0
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>个人信息</title>
<link href="images/style.css" rel="stylesheet" type="text/css">
</head>

<body onLoad="javascript:if (document.all.face.width>200){document.all.face.width=200;document.all.face.height=document.all.face.height*200/document.all.face.width;}">
<p align="center">&nbsp;</p>
<table width="97%" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#FFFFFF">
  <tr>
    <td><br>
<table width="60%" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#000000">
        <tr class="header"> 
          <td colspan="2" nowrap><strong>用户<font color="#993300"><%= Session("username") %></font>的个人资料</strong></td>
        </tr>
        <tr> 
          <td width="40%" height="26" nowrap bgcolor="#F8F8F8">借书卡号</td>
          <td width="60%" bgcolor="#FFFFFF"><%=(Recordset1.Fields.Item("cardno").Value)%></td>
        </tr>
        <tr> 
          <td height="26" bgcolor="#F8F8F8">姓名</td>
          <td bgcolor="#FFFFFF"><%=(Recordset1.Fields.Item("name").Value)%></td>
        </tr>
        <tr> 
          <td height="26" bgcolor="#F8F8F8">性别</td>
          <td bgcolor="#FFFFFF"><%=(Recordset1.Fields.Item("sex").Value)%></td>
        </tr>
        <tr> 
          <td height="26" bgcolor="#F8F8F8">院系</td>
          <td bgcolor="#FFFFFF"><%=(Recordset1.Fields.Item("dept").Value)%></td>
        </tr>
        <tr> 
          <td height="50" bgcolor="#F8F8F8">借书情况</td>
          <td bgcolor="#FFFFFF"><p>已经借阅图书<strong><font color="#CC0000"><%=(Recordset1.Fields.Item("loannum").Value)%></font></strong>册,还可以借<font color="#CC0000"><strong><%=maxLoanNumber-(Recordset1.Fields.Item("loannum").Value)%></strong></font>册</p>
            <p><a href="Bookinfo.asp" target="_self">查看详细信息</a></p></td>
        </tr>
        <tr>
          <td height="150" bgcolor="#F8F8F8">照片</td>
          <td valign="top" bgcolor="#FFFFFF"><img name=face src="upload/<%=(Recordset1.Fields.Item("picture").Value)%>" border="1" onResize="javascript:if (this.width>200){this.width=200;this.height=this.height*200/this.width}"></td>
        </tr>
      </table>
      <form action="EditFace.asp" method="post" enctype="multipart/form-data" name="form1">
        <div align="center">
          <input type="file" name="file">
          <input type="submit" name="Submit" value="修改照片">
        </div>
      </form>
      <p>&nbsp;</p>
      <p align="center">&nbsp;</p>
</td>
</tr>
</table>
</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
<% End If %>

⌨️ 快捷键说明

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