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

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > WEB源码(ASP,PHP,...) > 查看源码
user.asp
资源名称：4s.rar　[点击查看]
上传用户：apresys
上传日期：2021-03-30
资源大小：813k
文件大小：13k
源码类别：

WEB源码(ASP,PHP,...)

开发平台：

DOS

user.asp：源码内容
  1. <!--#include file="conn.asp"-->
  2. <!--#include file="checkuser.asp"-->
  3. <!--#include file="md5.asp" -->
  4. <%
  5. if oskey<>"supper" then
  6. response.Write "<script language=javascript>alert('您无权访问！');window.close();</script>"
  7. response.end
  8. end if
  9. %>
  10. <html>
  11. <head>
  12. <title>∷汽车4S店配件仓储管理系统:.</title>
  13. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  14. <link href="css/main.css" rel="stylesheet" type="text/css">
  16. <SCRIPT language=JavaScript src="css/User_Info_Modify.js"></SCRIPT>
  17. <style type="text/css">
  18. <!--
  19. td {  font-family: "宋体"; font-size: 9pt}
  20. body {  font-family: "宋体"; font-size: 9pt}
  21. select {  font-family: "宋体"; font-size: 9pt}
  22. A {text-decoration: none; color: #336699; font-family: "宋体"; font-size: 9pt}
  23. A:hover {text-decoration: underline; color: #FF0000; font-family: "宋体"; font-size: 9pt} 
  24. -->
  25. </style>
  26. <SCRIPT LANGUAGE=javascript>
  27. <!--
  28. function Juge(powersearch)
  29. {
  31. if (powersearch.username.value == "")
  32. {
  33. alert("用户名称不能为空！");
  34. powersearch.username.focus();
  35. return (false);
  36. }
  38. }
  41. function SelectAll() {
  42. for (var i=0;i<document.selform.selBigClass.length;i++) {
  43. var e=document.selform.selBigClass[i];
  44. e.checked=!e.checked;
  45. }
  46. }
  47. //-->
  48. </script>
  50. </HEAD>
  51. <BODY topMargin=0 rightMargin=0 leftMargin=0>       
  52. <!--#include file="top.asp"-->
  53. <%
  54.   select case request("action")
  55.   case "add"
  56.        call SaveAdd()
  57.   case "modify"
  58.        call SaveModify()
  59.   case "del"
  60.        call delCate()
  61.   case "edit"
  62.        isEdit=True
  63.        call myform(isEdit)
  64.   case else
  65.        isEdit=False
  66.        call myform(isEdit) 
  67.   end select
  69.   
  70. sub SaveAdd   
  71. set rs=server.createobject("adodb.recordset") 
  72. sql="select * from userinfo"
  73. rs.open sql,conn,1,3
  74. rs.addnew
  75. rs("name") = trim(request.Form("username"))
  76. rs("fullname") = trim(request.Form("fullname"))
  77. rs("depname") = trim(request.Form("depname"))
  78. rs("oskey") = trim(request.Form("oskey"))
  79. rs("pwd") = md5(request.Form("pwd"))
  80. rs.update
  81. response.Write "<script language=javascript>alert('添加成功！');</script>"
  82. response.write "<meta http-equiv=""refresh"" content=""0;url=user.asp"">"
  83. response.end
  84. rs.close
  85. set rs=nothing
  86. end sub
  88.  
  89. sub SaveModify
  90. passwd=request.form("pwd")
  91. passwd1=md5(trim(request.form("pwd")))   
  92. set rs=server.createobject("adodb.recordset") 
  93. sql="select * from userinfo where userid="&request.Form("userid")
  94. rs.open sql,conn,1,3
  95. rs("name") = trim(request.Form("username"))
  96. rs("fullname") = trim(request.Form("fullname"))
  97. rs("depname") = trim(request.Form("depname"))
  98. rs("oskey") = trim(request.Form("oskey"))
  99. if passwd<>rs("pwd") then
  100. rs("pwd")=passwd1
  101. end if
  102. rs.update
  103. response.Write "<script language=javascript>alert('修改成功！');</script>"
  104. response.write "<meta http-equiv=""refresh"" content=""0;url=user.asp"">"
  105. response.end
  106. rs.close
  107. set rs=nothing
  108. end sub   
  109.  
  110.   sub delCate()
  111.         conn.execute("delete from userinfo where userid in ("&Request.Form("selBigClass")&")")
  112. response.Write "<script language=javascript>alert('删除成功！');</script>"
  113. response.write "<meta http-equiv=""refresh"" content=""0;url=user.asp"">"
  114. response.end
  115.   end sub
  116.   %> <% sub myform(isEdit) %>    
  117. <TABLE width=98% align=center border="1" cellspacing="0" bordercolor="#D6D3CE">
  118.   <TBODY> 
  119.   <TR> 
  120.     <td align="center" valign="top"> 
  121. <fieldset style="width:98%"><legend>
  122. <%
  123.     
  124.    if isedit then
  125.    set rs=server.createobject("adodb.recordset")
  126.    rs.open "select * from userinfo where userid=" & request("userid"),conn,1,1
  127.        response.write "编辑用户信息"
  128.    else
  129.        response.write "添加用户信息"
  130.    end if %></legend>
  131.         <table width="100%" border="0" cellpadding="0" cellspacing="0" bordercolor="#D4D0C8">
  132.           <tr class="but"> 
  133. <td width="10%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">用户名</td>
  134.             <td width="10%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">全 名</td>
  135. <td width="5%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">密 码</td>
  136. <td width="15%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">登陆次数</td>
  137. <td width="10%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">上次登陆</td>
  138. <td width="15%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">上次时间</td>
  139. <td width="10%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">部 门</td>
  140. <td width="10%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">权 限</td>
  142.           </tr>
  143.   <form name="powersearch" method="post" action="user.asp" onSubmit="return Juge(this)" >
  144.   <tr> <input type="Hidden" name="action" value='<% If isedit then%>modify<% Else %>add<% End If %>'> 
  145.   <% If isedit then%><input type="Hidden" name="userid" value="<%=rs("userid")%>"> <% End If %>
  146.             <td height="18" align="center">
  147. <input name="username"  type="text"  size="10"  value='<% if isedit then
  148.                                                          response.write rs("name")
  149.   end if %>'></td>
  150.             <td>
  151. <input name="fullname"  type="text"  size="10"  value='<% if isedit then
  152.                                                          response.write rs("fullname")
  153.   end if %>'></td>
  154.             <td>
  155. <input name="pwd" onMouseOver="this.focus()"  onfocus="this.select()" type="password" size="15"  value='<% if isedit then
  156.                                                          response.write rs("pwd")
  157.   end if %>'></td>
  158. <td align="center"><input readonly name="logins" type="text"  size="10" value='<% if isedit then
  159.                                                          response.write rs("logins")
  160.   end if %>'></td>
  161. <td>
  162. <input readonly name="lastlogin" type="text"  size="20" value='<% if isedit then
  163.                                                          response.write rs("lastlogin")
  164.   end if %>'>
  165. </td>
  166. <td><input readonly name="lastip" type="text"  size="20" value='<% if isedit then
  167.                                                          response.write rs("lastip")
  168.   end if %>'>
  170. </td>
  171. <td><select name="depname"  size="1" style='width:80'>
  172. <%
  173. set rs3=server.createobject("adodb.recordset")
  174.    rs3.open "select * from department",conn,1,1
  175.    if not rs3.eof then
  176.    do while not rs3.eof
  177. %>
  178. <option <% if isedit then
  179. if trim(rs3("depname"))=trim(rs("depname")) then
  180. %> selected="selected"<%end if%><%end if%>><%=rs3("depname")%></option>
  181. <%
  182. rs3.movenext
  183. loop
  184. end if
  185. rs3.close
  186. set rs3=nothing
  187. %>
  188. </select></td>
  189. <td><select name="oskey"  size="1" style="width:80">
  190. <option value="supper" <% if isedit then
  191. if trim(rs("oskey"))="supper" then
  192. %> selected="selected"<%end if%><%end if%>>超级管理员</option>
  193. <option value="admin" <% if isedit then
  194. if trim(rs("oskey"))="admin" then
  195. %> selected="selected"<%end if%><%end if%>>一般管理员</option>
  196. <option value="general" <% if isedit then
  197. if trim(rs("oskey"))="general" then
  198. %> selected="selected"<%end if%><%end if%>>普通用户</option>
  199. </td>
  200.           </tr>
  201.    <tr>
  202. <td colspan="8" align="center"><input type="submit"  value="<% if isedit then
  203.                                                          response.write "编辑"
  204.  else
  205.  response.write "添加"
  206.   end if %>"> </td>
  207.           </tr></form>
  208.   
  209.            </table>
  210.         </fieldset>
  211.       <TABLE cellSpacing=1 cellPadding=0 width="100%" border=0 >
  212.         <TR>
  213.           <TD height="25" align="center">用 户 列 表</TD>
  214.               </TR>
  215.             </TABLE>
  216. <form action="user.asp" method="post" name="selform" >
  217.   <table width="100%"  border="1" cellpadding="0" cellspacing="0" bordercolor="#D4D0C8" align="center">
  218.     <tr> 
  219.       
  220.       <td width="100%" align="center" valign="top">
  221.   <fieldset style="width:95%">
  222.         <table width="100%" border="0" cellpadding="0" cellspacing="0" bordercolor="#D4D0C8">
  223.           <tr class="but"> 
  224. <td width="10%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">用户名</td>
  225.             <td width="10%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">全 名</td>
  226. <td width="15%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">部 门</td>
  227. <td width="10%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">权 限</td>
  228. <td width="6%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">登陆次数</td>
  229. <td width="15%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">上次登陆</td>
  230. <td width="8%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">上次IP</td>
  231.             <td width="5%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">操 作</td>
  232.           </tr>
  233.  <%
  235. set rs=server.CreateObject("ADODB.RecordSet") 
  236. rs.Source="select* from userinfo order by -userid"
  237. rs.Open rs.Source,conn,1,1
  238. if not rs.EOF then
  239. do while not rs.eof
  240. %>
  241. <tr><td height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'"><a href="user.Asp?userid=<%=rs("userid")%>&action=edit"><%=rs("name")%></a></td>
  242. <td height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'"><%=rs("fullname")%><%if rs("fullname")="" then%>&nbsp;<%end if%></td>
  243. <td height="18" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">&nbsp;<%=rs("depname")%></td>
  244. <td height="18" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">&nbsp;<%if rs("oskey")="supper" then%>超级管理员<%else%><%if rs("oskey")="admin" then%>一般管理员<%else%><%if rs("oskey")="general" then%>普通用户<%end if%><%end if%><%end if%></td>
  245. <td height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'"><%=rs("logins")%></td>
  246. <td height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'"><%=rs("lastlogin")%></td>
  247. <td height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'"><%=rs("lastip")%></td>
  248. <td height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'"><input name="selBigClass" type="checkbox" id="selBigClass" value="<%=rs("userid")%>"></td>
  249. </tr>
  250. <%
  251. rs.MoveNext
  252. loop
  253. end if
  254. rs.close
  255. set rs=nothing
  256. %>
  257. <tr><td align="right" colspan="10" height="22">
  259.         <input type="checkbox" name="checkbox" value="checkbox" onClick="javascript:SelectAll()"> 选择/反选
  260.               <input onClick="{if(confirm('此操作将删除该信息！nn确定要执行此项操作吗？')){this.document.selform.submit();return true;}return false;}" type=submit value=删除 name=action2> 
  261.               <input type="Hidden" name="action" value='del'></td></tr>
  262.         </table>
  263. </fieldset>
  264.   
  265. </td>
  266.     </tr>
  267.     <tr> 
  268.       <td height="50" colspan="3" align="center">
  269.         
  271.         </td>
  272.     </tr>
  273.   </table>
  274. </form>
  275.  
  276. </TD>
  277.               </TR>
  278.           </table>
  279.           
  280.       <table width="100%" border="0" cellspacing="0" cellpadding="4">
  281.       
  282.       </table>
  283.   </TBODY>
  284. </TABLE>
  285. <%end sub%>
  286. <P>
  287. <TABLE cellSpacing=0 cellPadding=0 width="100%" align=center border=0>
  288.   <TBODY>
  289.   <TR vAlign=center>
  290.     <TD align=middle width="100%"><!--#include file="footer.htm"--></TD>
  291.   </TR></TBODY></TABLE></P></BODY></HTML>