?? usershow.asp
字號:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Set ObjReference = Server.CreateObject("jxc1.check")
ObjReference.myfilea()
%>
<!--#include file="../../Connections/jxc.asp" -->
<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = "1"
If (Request.QueryString("id") <> "") Then
Recordset1__MMColParam = Request.QueryString("id")
End If
%>
<%
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_jxc_STRING
Recordset1.Source = "SELECT * FROM user WHERE id = " + Replace(Recordset1__MMColParam, "'", "''") + " ORDER BY id ASC"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 3
Recordset1.Open()
Recordset1_numRows = 0
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>www.71base.com</title>
<link href="CSS.CSS" rel="stylesheet" type="text/css">
</head>
<body oncontextmenu="return false" >
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><img src="images/icon-page.gif" width="16" height="15"><font color="#8080FF">用戶詳細信息>></font></td>
</tr>
</table>
<table width="42%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#0066FF">
<tr bgcolor="#F2F2F2">
<td width="40%" align="default">
<div align="right">用戶id:</div></td>
<td width="60%" align="default"><%content = Server.HTMLEncode((Recordset1.Fields.Item("id").Value))
response.write content%>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="40%" align="default">
<div align="right">用戶名稱:</div></td>
<td width="60%" align="default"><%content = Server.HTMLEncode((Recordset1.Fields.Item("username").Value))
response.write content%>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="40%" align="default">
<div align="right">登錄口令:</div></td>
<td width="60%" align="default"><%content = Server.HTMLEncode((Recordset1.Fields.Item("password").Value))
response.write content%>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="40%" align="default">
<div align="right">部門:</div></td>
<td width="60%" align="default"><%content = Server.HTMLEncode((Recordset1.Fields.Item("bumeng").Value))
response.write content%>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="40%" align="default">
<div align="right">權限:</div></td>
<td width="60%" align="default"><%content = Server.HTMLEncode((Recordset1.Fields.Item("quanxian").Value))
response.write content%>
</td>
</tr>
</table>
<p> 系統管理員:權限為a <br>
高級管理員:權限為b <br>
入庫管理員:權限為c <br>
出庫管理員:權限為d <br>
貨品查詢員:權限為e</p>
</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -