📄 user.asp
字号:
<!--#include file=function.asp-->
<%CheckAdmin3%>
<!--#include file="conn.asp"-->
<%
sqlowen="select * from user"
Set rsowen=Server.CreateObject("ADODB.RecordSet")
rsowen.Open sqlowen,conn,1,1
id=rsowen("id")
auid=rsowen("auid")
apwd=rsowen("apwd")
aleave=rsowen("aleave")
rsowen.close
set rsowen=nothing
%>
<html>
<head>
<LINK href="../style.css" rel=stylesheet type=text/css>
<title>OWEN 活动管理系统</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body topmargin="0" leftmargin="0" bgcolor="#9999CC">
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="15%" valign="top" bgcolor="#9999CC" style="border-right: 1 solid #000000">
<!--#include file="left.asp"-->
</td>
<td width="85%" valign="top" bgcolor="#D8D8EB">
<table width="100%" border="0" cellspacing="1" cellpadding="2" bgcolor="#000000" vspace="0" hspace="0">
<tr bgcolor="#9999CC">
<td height="27" bgcolor="#FFFFFF">.:: 您可以在这里进行[会员]相关操作</td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="247" valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
</tr>
</table>
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#000000">
<tr align="center" bgcolor="#9999CC">
<td width="20%" height="24"> ID</td>
<td width="20%">名称</td>
<td width="20%">级别</td>
<td width="20%">修改</td>
<td width="20%">删除</td>
</tr>
<%
sql="select * from user where id"
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,1
if rs.bof and rs.eof then
response.write "暂时没有会员"
else
while not rs.eof
if rs("aleave")="s" then aleave="高级会员" end if
if rs("aleave")="u" then aleave="普通会员" end if
%>
<tr align="center" bgcolor="#FFFFFF">
<td height="22"><%=rs("id")%></td>
<td><%=rs("auid")%></td>
<td><%=aleave%></td>
<td><a href="usermodify.asp?id=<%=rs("id")%>">修改</a></td>
<td><a href="userdel.asp?id=<%=rs("id")%>">删除</a></td>
</tr>
<%
rs.movenext
wend
end if
rs.close
set rs=nothing
%>
</table>
<br>
<table width="300" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#000000">
<tr bgcolor="#BDBDDD">
<td colspan="2">添加会员：</td>
</tr>
<form name="add" method="post" action="usersave.asp">
<tr bgcolor="#FFFFFF">
<td height="22" align="right">会员帐号：</td>
<td>
<input type="text" name="auid" class=input> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right">会员级别：</td>
<td>
<select name="aleave" class=input>
<option value=s selected>高级会员</option>
<option value=u>普通会员</option>
</select>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="22" align="right">会员密码：</td>
<td>
<input type="password" name="apwd" class=input> </td>
</tr>
<tr bgcolor="#BDBDDD">
<td colspan="2" align="center">
<input type="submit" name="Submit" value="确 定">
<input type="hidden" name="act" value="add">
</td>
</tr>
</form>
</table>
<br>
</td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -