📄 person.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="sub/conn.asp"-->
<!--#include file="sub/rightnav.asp"-->
<!--#include file="sub/fenye.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>注册用户管理</title>
<link href="cbody.css" rel="stylesheet" type="text/css" />
<link href="nav.css" rel="stylesheet" type="text/css" />
<script language="javascript">
function del() {
var isok=true;
isok=confirm("确定要删除吗？")
return isok;
}
</script>
</head>
<body>
<!--#include file="sub/mheader.asp"-->
<div id="abody">
<div id="lbody">
<div class="zh1">
<%
set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from userlist order by room_id"
rs.open sql,conn,1,1
dim m,readed,cur_page,user,url
url="person.asp?"
m=rs.recordcount
readed=1
rs.pagesize=10
%>
<% call page() %>
<h5>注册用户管理</h5>
<table class="browser">
<tr>
<th width="65" class="b1">用户名</th>
<th width="65">密码</th>
<th width="100">房间号</th>
<th width="120">邮箱</th>
<th width="63">权限</th>
<th width="40">详细</th>
<th width="40" class="b2">删除</th>
</tr>
<% do while (readed<=rs.pagesize) and (not rs.eof) %>
<tr>
<td class="b1"><%= rs(2) %></td>
<td><%= rs(4) %></td>
<td><%= rs(1) %></td>
<td><%= rs(7) %></td>
<%
if rs(8)="0" then
user="用户"
else
user="管理员"
end if
%>
<td><%= user %></td>
<td><a href="person.asp?id=<%= rs(0) %>">详细</a></td>
<td class="b2"><a href="del.asp?id=<%= rs(0) %>&tname=userlist" onClick="return del()">删除</a></td>
</tr>
<%
rs.movenext
readed=readed+1
loop
%>
</table>
<% call fenye() %>
<%
rs.close
set rs=nothing
%>
<%
dim id
id=Request.QueryString("id")
if id="" then
Response.Write ""
else
set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from userlist where id="&id
rs.open sql,conn,1,1
%>
<form name="person" action="person_do.asp" method="post">
<h5>详细资料</h5>
<div class="zhcxc">房间号：<%= rs(1) %></div>
<div class="zhcxc">用户名：<input name="oname" type="text" value="<%= rs(2) %>" /></div>
<div class="zhcxc">真实姓名：<input name="realname" type="text" value="<%= rs(3) %>" /></div>
<div class="zhcxc">密码：<input name="password" type="text" value="<%= rs(4) %>" /></div>
<div class="zhcxc">提问问题：<%= rs(5) %></div>
<div class="zhcxc">答案：<input name="answer" type="text" value="<%= rs(6) %>" /></div>
<div class="zhcxc">
油箱：<input name="email" type="text" value="<%= rs(7) %>" />
<input type="hidden" name="id" value="<%= rs(0) %>" />
</div>
<div class="zhcxc">权限：
<select name="pro" id="pro">
<%
if rs(8)="0" then
Response.Write "<option value='0'>用户</option>"
Response.Write "<option value='1'>管理员</option>"
else
Response.Write "<option value='1'>管理员</option>"
Response.Write "<option value='0'>用户</option>"
end if
%>
</select>
</div>
<div class="zhcxc">注册日期：<%= rs(9) %> </div>
<div class="zhcxc">
<input type="submit" name="B1" value="修改" />
</div>
</form>
<%
rs.close
set rs=nothing
end if
%>
</div>
</div>
<div id="rbody">
<% call rightnav() %>
</div>
</div>
<!--#include file="sub/cbottom.asp"-->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -