listuser.asp
来自「创建和运行动态、交互的Web服务器应用程序」· ASP 代码 · 共 177 行
ASP
177 行
<!--#include file="conn.asp"-->
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../images/css.css" rel="stylesheet" type="text/css">
</head>
<body>
<%dim userid
userid=request.querystring("id")
set rs=server.createobject("adodb.recordset")
rs.open "select * from shop_user where userid="&userid ,conn,1,1%>
<table width="90%" border="0" height=450 cellpadding="0" cellspacing="0">
<tr><td bgcolor="#ece9d8"><br>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr><td>
<table width=77 border="0" cellpadding="0" cellspacing="0">
<tr valign=bottom><td background=images/get_img.gif width=77 height=26><P style='PADDING-LEFT: 7px'><div align="center"><font color=#ffffff>会员资料</font></div></td></tr>
</table>
<table width="100%" border="1" align=center cellspacing="0" cellpadding="3" bordercolordark="#FFFFFF" bordercolorlight="#666666">
<form name="form1" method="post" action="saveuser.asp?action=save&id=<%=userid%>">
<tr>
<td width="20%" bgcolor="#cccccc" align=right>用户名称：</td>
<td width="80%" bgcolor="#eeeeee" style="PADDING-LEFT: 8px"><font color=#FF0000><%=trim(rs("username"))%></font></td>
</tr>
<tr>
<td bgcolor="#cccccc" align=right>登陆密码：</td>
<td bgcolor="#eeeeee" style="PADDING-LEFT: 8px"><input name="userpassword" type="text" id="userpassword" size="12" value=<%=trim(rs("userpassword"))%>>
不改密码请为空!</td>
</tr>
<tr>
<td bgcolor="#cccccc" align=right>真实姓名：</td>
<td bgcolor="#eeeeee" style="PADDING-LEFT: 8px"><input name="userzhenshiname" type="text" id="userzhenshiname" size="12" value=<%=trim(rs("userzhenshiname"))%>></td>
</tr>
<tr>
<td bgcolor="#cccccc" align=right>电子邮件：</td>
<td bgcolor="#eeeeee" style="PADDING-LEFT: 8px"><input name="useremail" type="text" id="useremail" size="30" value=<%=trim(rs("useremail"))%>></td>
</tr>
<tr>
<td bgcolor="#cccccc" align=right>密码提问：</td>
<td bgcolor="#eeeeee" style="PADDING-LEFT: 8px"><input name="quesion" type="text" id="quesion" value=<%=trim(rs("quesion"))%>></td>
</tr>
<tr>
<td bgcolor="#cccccc" align=right>密码答案：</td>
<td bgcolor="#eeeeee" style="PADDING-LEFT: 8px"><input name="answer" type="text" id="answer" value=<%=trim(rs("answer"))%>></td>
</tr>
<tr>
<td bgcolor="#cccccc" align=right>收货人姓名：</td>
<td bgcolor="#eeeeee" style="PADDING-LEFT: 8px"><input name="shouname" type="text" id="shouhuoname" size="12" value=<%=trim(rs("shouname"))%>></td>
</tr>
<tr>
<td bgcolor="#cccccc" align=right>收货人性别：</td>
<td bgcolor="#eeeeee" style="PADDING-LEFT: 8px"><%if rs("shousex")=0 then%>
<input type="radio" name="usersex" value="1">
男
<input name="usersex" type="radio" value="0" checked>
女
<%else%> <input type="radio" name="usersex" value="1" checked>
男
<input name="usersex" type="radio" value="0" >
女
<%end if%></td>
</tr>
<tr>
<td bgcolor="#cccccc" align=right>收货地址：</td>
<td bgcolor="#eeeeee" style="PADDING-LEFT: 8px"><input name="shouhuodizhi" type="text" id="shouhuodizhi" size="40" value=<%=trim(rs("shouhuodizhi"))%>></td>
</tr>
<tr>
<td bgcolor="#cccccc" align=right>邮编：</td>
<td bgcolor="#eeeeee" style="PADDING-LEFT: 8px"><input name="youbian" type="text" id="youbian" size="12" value=<%=rs("youbian")%>></td>
</tr>
<tr>
<td bgcolor="#cccccc" align=right>电话：</td>
<td bgcolor="#eeeeee" style="PADDING-LEFT: 8px"><input name="usertel" type="text" id="usertel" size="12" value=<%=trim(rs("usertel"))%>></td>
</tr>
<tr>
<td bgcolor="#cccccc" align=right>送货方式：</td>
<td bgcolor="#eeeeee" style="PADDING-LEFT: 8px">
<%
dim ssfs
set ssfs=server.CreateObject("adodb.recordset")
ssfs.open "select * from shop_songhuo where fangshi=0 order by songidorder",conn,1,1
response.write"<select id=ssfs name=ssfs>"
do while not ssfs.EOF%>
<option value=<%=ssfs("songid")%>
<%
if ssfs("songid")=rs("songid") then
response.Write " selected>"
else
response.Write ">"
end if
response.write trim(ssfs("subject"))&"</option>"
ssfs.MoveNext
loop
response.Write "</select>"
ssfs.Close
%></td>
</tr>
<tr>
<td bgcolor="#cccccc" align=right>支付方式：</td>
<td bgcolor="#eeeeee" style="PADDING-LEFT: 8px">
<%
dim zffs
set zffs=server.CreateObject("adodb.recordset")
zffs.open "select * from shop_songhuo where fangshi=1 order by songidorder",conn,1,1
response.write"<select id=zffs name=zffs>"
do while not zffs.EOF%>
<option value=<%=zffs("songid")%>
<%
if zffs("songid")=rs("zhifufangshi") then
response.Write " selected>"
else
response.Write ">"
end if
response.Write trim(zffs("subject"))&"</option>"
zffs.MoveNext
loop
response.Write "</select>"
zffs.Close
%></td>
</tr>
<tr>
<td bgcolor="#cccccc" align=right>注册时间：</td>
<td bgcolor="#eeeeee" style="PADDING-LEFT: 8px"><%=rs("adddate")%></td>
</tr>
<tr>
<td bgcolor="#cccccc" align=right>最后登陆时间：</td>
<td bgcolor="#eeeeee" style="PADDING-LEFT: 8px"><%=rs("lastlogin")%></td>
</tr>
<tr>
<td bgcolor="#cccccc" align=right>登陆次数：</td>
<td bgcolor="#eeeeee" style="PADDING-LEFT: 8px"><%=rs("logins")%>次</td>
</tr>
<tr>
<td bgcolor="#cccccc" align=right>已下订单数：</td>
<td bgcolor="#eeeeee" style="PADDING-LEFT: 8px"><%dim rs2
set rs2=server.CreateObject("adodb.recordset")
rs2.open "select distinct(dingdan) from shop_action where username='"&trim(rs("username"))&"' ",conn,1,1
response.write rs2.recordcount&"笔订单"
rs2.close
set rs2=nothing
%></td>
</tr>
<tr>
<td height="28" colspan="2" bgcolor="#cccccc" style="PADDING-LEFT: 8px">查找此用户的所有定单：
<select name="zhuangtai" onchange="var jmpURL=this.options[this.selectedIndex].value ; if(jmpURL!='') {window.location=jmpURL;} else {this.selectedIndex=0 ;}" ><base target=Right>
<option value="" selected>--选择查询状态--</option>
<option value="editdingdan.asp?zhuangtai=0&namekey=<%=trim(rs("username"))%>" >全部订单状态</option>
<option value="editdingdan.asp?zhuangtai=1&namekey=<%=trim(rs("username"))%>" >读者已下订单</option>
<option value="editdingdan.asp?zhuangtai=2&namekey=<%=trim(rs("username"))%>" >读者已划出款</option>
<option value="editdingdan.asp?zhuangtai=3&namekey=<%=trim(rs("username"))%>" >图书网收到款</option>
<option value="editdingdan.asp?zhuangtai=4&namekey=<%=trim(rs("username"))%>" >图书网已发货</option>
<option value="editdingdan.asp?zhuangtai=5&namekey=<%=trim(rs("username"))%>" >读者已收到货</option>
</select></td>
</tr><%rs.close
set rs=nothing
conn.close
set conn=nothing%>
<tr>
<td height="28" colspan="2" bgcolor="#eeeeee"><div align="center">
<input type="submit" name="Submit" value="确认提交">
<input type="button" name="Submit2" value="返回上一页" onclick='javascript:history.go(-1)'>
</div></td>
</tr>
</table>
</form>
</td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?