📄 user_show.asp
字号:
<!--#include file="admin.asp"-->
<%
chk_admin_login(1)
userid=request("userid")
sql="select * from [user] where userid="&userid
rs.open sql,conn,1,3
typeid=rs("sitetype")
groups=rs("groups")
set rs1=server.createobject("ADODB.Recordset")
sql1="select * from [siteclass] where id="&typeid
rs1.open sql1,conn,1,3
set rs2=server.createobject("ADODB.Recordset")
sql2="select * from [host] where id="&cint(groups)
rs2.open sql2,conn,1,3
%>
<HTML>
<HEAD>
<TITLE>查看用户：<%=rs("username")%></TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<link href="../css/admin.css" rel="stylesheet" type="text/css">
</HEAD>
<BODY>
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td valign="top">
<table width="500" border="1" align="center" cellpadding="4" cellspacing="0" class="table-line">
<form method="post" action="user_save.asp">
<tr>
<td colspan="4" align="center" class="td-title-color"><table border="0" cellpadding="0" cellspacing="0">
<tr>
<td class="shadow">用户基本信息</td>
</tr>
</table> </td>
</tr>
<tr bgcolor="#FFFFFF" onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'">
<td width="55">用户名</td>
<td width="146"><%=rs("username")%></td>
<td width="66">密码</td>
<td width="188"><input type="text" name="password" size="20" value="<%=rs("password")%>"></td>
</tr>
<tr bgcolor="#FFFFFF" onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'">
<td>密码问题</td>
<td><%=rs("question")%></td>
<td>问题答案</td>
<td><%=rs("answer")%></td>
</tr>
<tr bgcolor="#FFFFFF" onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'">
<td>真实姓名</td>
<td><%=rs("truename")%></td>
<td>性别</td>
<td><%=rs("sex")%></td>
</tr>
<tr bgcolor="#FFFFFF" onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'">
<td>年龄</td>
<td><%=rs("age")%></td>
<td>所在地区</td>
<td><%=rs("add")%></td>
</tr>
<tr bgcolor="#FFFFFF" onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'">
<td>邮政编码</td>
<td><%=rs("zip")%></td>
<td>电话号码</td>
<td><%=rs("tel")%></td>
</tr>
<tr bgcolor="#FFFFFF" onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'">
<td>E-Mail</td>
<td><%=rs("email")%></td>
<td>帐户余额：</td>
<td>￥<input name=money type=text value=<%=rs("money")%> size="6">
元 积分：
<input name=point type=text id="point" value=<%=rs("point")%> size="6"></td>
</tr>
<tr align="center" bgcolor="e8e8e8">
<td colspan="4" class="td-title-color"><table border="0" cellpadding="0" cellspacing="0">
<tr>
<td class="shadow">用户网站信息</td>
</tr>
</table> </td>
</tr>
<tr bgcolor="#FFFFFF" onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'">
<td>网站名称</td>
<td><%=rs("sitename")%></td>
<td>网站状态</td>
<td><font color="#ff0000">
<%
if rs("state")=1 then
Response.Write("已经开通")
else
Response.Write("未开通")
end if%>
</font></td>
</tr>
<tr bgcolor="#FFFFFF" onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'">
<td rowspan="2">网站介绍</td>
<td rowspan="2"><%=rs("intro")%></td>
<td height="25">网站类别</td>
<td><%=rs1("sitetype")%></td>
</tr>
<tr bgcolor="#FFFFFF" onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'">
<td height="25">网站缩略图</td>
<td><input name="siteimg" value="<%=rs("siteimg")%>" size="20"></td>
</tr>
<tr bgcolor="#FFFFFF" onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'">
<td>酷站推荐</td>
<td><font color="#ff0000">
<select name="isgood">
<option value="True" <%if rs("isgood")="True" then response.write " selected"%>>是</option>
<option value="False" <%if rs("isgood")="False" then response.write " selected"%>>否</option>
</select>
</font></td>
<td>推荐星级</td>
<td><select name="star" size="1" class="input" id="select">
<option value="images/tj1.gif" <%if rs("star")="images/tj1.gif" then response.write " selected"%>>一星</option>
<option value="images/tj2.gif" <%if rs("star")="images/tj2.gif" then response.write " selected"%>>二星</option>
<option value="images/tj3.gif" <%if rs("star")="images/tj3.gif" then response.write " selected"%>>三星</option>
<option value="images/tj4.gif" <%if rs("star")="images/tj4.gif" then response.write " selected"%>>四星</option>
<option value="images/tj5.gif" <%if rs("star")="images/tj5.gif" then response.write " selected"%>>五星</option>
</select></td>
</tr>
<tr bgcolor="#FFFFFF" onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'">
<td>空间类型</td>
<td><font color="#ff0000"><%=rs2("name")%> <input name=space type=text value=<%=rs("space")%> size="4">
M </font> </td>
<td>ASP权限</td>
<td><select name="asp">
<option value="True" <%if rs("asp")=True then response.write " selected"%>>有</option>
<option value="False" <%if rs("asp") then response.write " selected"%>>无</option>
</select></td>
</tr>
<tr bgcolor="#FFFFFF" onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'">
<td bgcolor="#FFFFFF">注册时间</td>
<td><%=rs("regdate")%></td>
<td>截止日期</td>
<td><%if rs("stopdate")<>"" then
Response.Write rs("stopdate")
Response.Write(" 增加：<input name=adddays type=text size=4>天 ")
else
Response.Write "无限制"
end if
%>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td colspan="4" align="center"><input type="hidden" name="usernum" value="<%=request("userid")%>">
<input name="Submit" type="submit" class="INPUT1" value="确定">
<input name="Submit" type="button" class="INPUT1" onClick="javascript:history.back()" value="返回"> </td>
</tr>
</form>
</table></td>
</tr>
</table>
</BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -