开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Java编程 > Jsp/Servlet > 查看源码
equser.asp
资源名称：blog.rar　[点击查看]
上传用户：syzzy1975
上传日期：2022-07-17
资源大小：670k
文件大小：10k
源码类别：

Jsp/Servlet

开发平台：

Java

equser.asp：源码内容
  1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
  2. <%
  4. %><!--#include file="inc/config.asp"-->
  5. <!--#include file="inc/conn.asp"--> 
  6. <!--#include file="inc/chk.asp"--> 
  7. <%
  8. if session("rank")>1 then
  9. call Msgbox("你的权限不够！","Back","None")
  10. response.End
  11. end if
  12. %>
  14. <%
  15. if NOT isempty(request("SaveEditSubmit")) then
  16. dim userid
  17. userid=request.QueryString("id")
  18. if userid="" then userid=request("userid")
  20. set rs=server.CreateObject("adodb.recordset")
  21. rs.Open "select * from [user] where userid="&userid,conn,1,3
  22. if trim(request("password"))<>"" then rs("password")=md5(trim(request("password")))
  23. rs("realname")=trim(request("realname"))
  24. rs("identify")=trim(request("identify"))
  25. rs("mobile")=trim(request("mobile"))
  26. rs("userqq")=trim(request("userqq"))
  27. rs("useremail")=trim(request("useremail"))
  28. rs("quesion")=trim(request("quesion"))
  29. if trim(request("answer"))<>"" then rs("answer")=md5(trim(request("answer")))
  30. rs("sex")=request("usersex")
  31. rs("city")=trim(request("city"))
  32. rs("address")=trim(request("address"))
  33. rs("postcode")=trim(request("postcode"))
  34. rs("usertel")=trim(request("usertel"))
  35. rs("score")=trim(request("score"))
  37. rs("book")=trim(request("book"))
  38. rs("vip")=trim(request("vip"))
  39. rs.Update
  40. rs.Close
  41. set rs=nothing
  42. call MsgBox("操作成功!","None","None")
  43. end if
  44. %>
  45. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
  46. <html>
  47. <head>
  48. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  49. <title>406网络书店</title>
  50. <link href="../style.css" rel="stylesheet" type="text/css">
  53. </head>
  55. <body>
  56. <!--#include file="head.htm"-->
  58. <table width="780" border="0" align="center" cellpadding="0" cellspacing="0">
  59.   <tr>
  60.     <td width="219" align="left" valign="top"><br>
  61.       <!--#include file="menu.htm"-->
  63.         <br></td><td width="561" align="left" valign="top">
  64.       <br>      <table border="0" cellpadding="0" cellspacing="0">
  65.         <tr>
  66.           <td><img src="../images/w.gif" width="18" height="18"></td>
  67.           <td style="color:#415373">用户详细资料</td>
  68.         </tr>
  69.       </table>      <%dim vipuser
  70. userid=request.querystring("id")
  71. set rs=server.createobject("adodb.recordset")
  72. rs.open "select * from [user] where userid="&userid ,conn,1,1
  73. if rs("vip") = true then
  74.     vipuser="VIP会员"
  75.   else
  76.     vipuser="普通会员"
  77.   end if
  78.   %>      <br>      <form name="form1" method="post" action="equser.asp?id=<%=userid%>">
  79.         <table width="95%" border="0" align="center" cellpadding="1" cellspacing="1">
  80.           <tr >
  81.             <td width="20%">&nbsp;用户名称：</td>
  82.             <td width="80%">&nbsp;<font color=#FF0000><%=trim(rs("username"))%></font></td>
  83.           </tr>
  84.           <tr >
  85.             <td>&nbsp;登录密码：</td>
  86.             <td>&nbsp;
  87.                 <input name="password" type="text" id="password2" size="12">
  88.         不改密码请为空!</td>
  89.           </tr>
  90.           <tr >
  91.             <td>&nbsp;真实姓名：</td>
  92.             <td> &nbsp;
  93.                 <input name="realname" type="text" id="realname" size="12" value=<%=trim(rs("realname"))%>>
  94.             </td>
  95.           </tr>
  96.           <tr >
  97.             <td>&nbsp;身份证号码</td>
  98.             <td>&nbsp;
  99.                 <INPUT NAME="identify" TYPE="text" ID="identify" SIZE="18" VALUE=<%=trim(rs("identify"))%>></td>
  100.           </tr>
  101.           <tr >
  102.             <td>&nbsp;电子邮件：</td>
  103.             <td> &nbsp;
  104.                 <input name="useremail" type="text" id="useremail" value=<%=trim(rs("useremail"))%>>
  105.             </td>
  106.           </tr>
  107.           <tr >
  108.             <td>&nbsp;手机号码：</td>
  109.             <td>&nbsp;
  110.                 <INPUT NAME="mobile" TYPE="text" ID="mobile" SIZE="15" VALUE=<%=trim(rs("mobile"))%>></td>
  111.           </tr>
  112.           <tr >
  113.             <td>&nbsp;腾 讯 Q Q：</td>
  114.             <td>&nbsp;
  115.                 <INPUT NAME="userqq" TYPE="text" ID="userqq" SIZE="15" VALUE=<%=trim(rs("userqq"))%>></td>
  116.           </tr>
  117.           <tr >
  118.             <td>&nbsp;密码提问：</td>
  119.             <td> &nbsp;
  120.                 <input name="quesion" type="text" id="quesion" value=<%=trim(rs("quesion"))%>>
  121.             </td>
  122.           </tr>
  123.           <tr >
  124.             <td>&nbsp;密码答案：</td>
  125.             <td> &nbsp;
  126.                 <input name="answer" type="text" id="answer">
  127.             </td>
  128.           </tr>
  129.           <tr >
  130.             <td>&nbsp;收货人姓名：</td>
  131.             <td> &nbsp;
  132.                 <input name="recepit" type="text" id="recepit" size="12" value=<%=trim(rs("recepit"))%>>
  133.             </td>
  134.           </tr>
  135.           <tr >
  136.             <td>&nbsp;收货人性别：</td>
  137.             <td> &nbsp;
  138.                 <%if rs("sex")=0 then%>
  139.                 <input type="radio" name="usersex" value="1">
  140.         男
  141.         <input name="usersex" type="radio" value="0" checked>
  142.         女
  143.         <%else%>
  144.         <input type="radio" name="usersex" value="1" checked>
  145.         男
  146.         <input name="usersex" type="radio" value="0" >
  147.         女
  148.         <%end if%>
  149.             </td>
  150.           </tr>
  151.           <tr >
  152.             <td>&nbsp;收货人省/市：</td>
  153.             <td> &nbsp;
  154.                 <input name="city" type="text" id="city" size="12" value=<%=trim(rs("city"))%>>
  155.             </td>
  156.           </tr>
  157.           <tr >
  158.             <td>&nbsp;收货地址：</td>
  159.             <td> &nbsp;
  160.                 <input name="address" type="text" id="address" size="30" value=<%=trim(rs("address"))%>>
  161.             </td>
  162.           </tr>
  163.           <tr >
  164.             <td>&nbsp;邮编：</td>
  165.             <td>&nbsp;
  166.                 <input name="postcode" type="text" id="postcode" size="12" value=<%=rs("postcode")%>>
  167.             </td>
  168.           </tr>
  169.           <tr >
  170.             <td>&nbsp;电话：</td>
  171.             <td> &nbsp;
  172.                 <input name="usertel" type="text" id="usertel" size="12" value=<%=trim(rs("usertel"))%>>
  173.             </td>
  174.           </tr>
  175.           <tr  height="20">
  176.             <td >&nbsp;送货方式：</td>
  177.             <td > &nbsp;
  178.                 <%
  179. dim rs2
  180. set rs2=server.CreateObject("adodb.recordset")
  181. rs2.open "select subject from delivery where methord=0 and deliveryidorder="&rs("deliverymethord"),conn,1,1
  183. if rs2.recordcount=0 then
  184. response.write "没有此送货方式！"
  185. else
  186. response.write rs2("subject")
  187. end if
  188. rs2.close
  190. %>
  191.             </td>
  192.           </tr>
  193.           <tr  height="20">
  194.             <td>&nbsp;支付方式：</td>
  195.             <td> &nbsp;
  196.                 <%
  197. rs2.open "select subject from delivery where methord=1 and deliveryidorder="&rs("paymethord"),conn,1,1
  198. if rs2.recordcount=0 then
  199. response.write "没有此支付方式！"
  200. else
  201. response.write rs2("subject")
  202. end if
  203. set rs2=nothing
  205.  %>
  206.             </td>
  207.           </tr>
  208.           <tr >
  209.             <td>&nbsp;用户积分：</td>
  210.             <td>&nbsp;
  211.                 <INPUT NAME="score" TYPE="text" ID="usertel" SIZE="12" VALUE=<%=trim(rs("score"))%>>        </td>
  212.           </tr>
  213.           <tr >
  214.             <td>&nbsp;会员级别</td>
  215.             <td bgcolor="#FFFFFFFF">&nbsp; <input name="vip" type="radio" value="true" <%if vipuser="VIP会员" then response.write "checked"%>>
  216.             VIP会员            <input type="radio" name="vip" value="false" <%if vipuser="普通会员" then response.write "checked"%>>
  217.             普通会员</td>
  218.           </tr>
  219.           <tr  height="20">
  220.             <td>&nbsp;注册时间：</td>
  221.             <td>&nbsp;<%=rs("adddate")%></td>
  222.           </tr>
  223.           <tr  height="20">
  224.             <td>&nbsp;上次登录时间：</td>
  225.             <td>&nbsp;<%=rs("lastvst")%></td>
  226.           </tr>
  227.           <tr  height="20">
  228.             <td>&nbsp;登录次数：</td>
  229.             <td>&nbsp;<%=rs("loginnum")%>次</td>
  230.           </tr>
  231.           <tr  height="20">
  232.             <td>&nbsp;已下订单数：</td>
  233.             <td> 
  234.               &nbsp;<%
  235. set rs2=server.CreateObject("adodb.recordset")
  236. rs2.open "select distinct(goods) from orders where username='"&trim(rs("username"))&"' ",conn,1,1
  237. response.write rs2.recordcount&"&nbsp;笔订单"
  238. rs2.close
  239. set rs2=nothing
  240. %>            </td>
  241.           </tr>
  242.           <tr >
  243.             <td valign="top">&nbsp;系统广播</td>
  244.             <td>&nbsp;
  245.                 <TEXTAREA NAME="book" ID="book" COLS="50" ROWS="5"><%=trim(rs("book"))%></TEXTAREA></td>
  246.           </tr>
  247.           <tr >
  248.             <td height="28" colspan="2">&nbsp;查找此用户的所有定单：
  249.                 <select name="state" onChange="var jmpURL=this.options[this.selectedIndex].value ; if(jmpURL!='') {window.location=jmpURL;} else {this.selectedIndex=0 ;}" >
  250.                   <base target=Right>
  251.                   <option value="" selected>--选择查询状态--</option>
  252.                   <option value="porder.asp?state=0&namekey=<%=trim(rs("username"))%>" >全部订单状态</option>
  253.                   <option value="porder.asp?state=1&namekey=<%=trim(rs("username"))%>" >未作任何处理</option>
  254.                   <option value="porder.asp?state=2&namekey=<%=trim(rs("username"))%>" >用户已经划出款</option>
  255.                   <option value="porder.asp?state=3&namekey=<%=trim(rs("username"))%>" >服务商已经收到款</option>
  256.                   <option value="porder.asp?state=4&namekey=<%=trim(rs("username"))%>" >服务商已经发货</option>
  257.                   <option value="porder.asp?state=5&namekey=<%=trim(rs("username"))%>" >用户已经收到货</option>
  258.                 </select>
  259.             </td>
  260.           </tr>
  261.           <%rs.close
  262. set rs=nothing
  263. conn.close
  264. %>
  265.           <tr>
  266.             <td height="28" colspan="2"  align="center"><input name="SaveEditSubmit" type="submit" id="SaveEditSubmit" value="确认提交">
  267. &nbsp;&nbsp;&nbsp;
  268.         <input type="button" name="Submit2" value="返回上一页" onClick='javascript:history.go(-1)'>
  269.             </td>
  270.           </tr>
  271.         </table>
  272.       </form>      <br>
  273.       </td>
  274.   </tr>
  275. </table>
  276. <!--#include file="foot.htm"-->
  277. </body>
  278. </html>