📄 alluser.asp

📁 林林网络招聘系统(源码+毕业论文+开题报告)使用ASP技术,数据库使用Access,不错的网络招聘系统
💻 ASP
字号:
<!-- #include file="conn.asp" -->
<style type="text/css">
<!--
.style1 {font-size: 14px}
.style2 {font-size: 14px}
-->
</style>
<%
if session("admin")="" then
      Response.write("<center>使用错误,请先登陆")  
      Response.End
end if
%>
<%

  'ShowPage子程序负责设置表格颜色及插图，然后显示PageNo参数所指定的页次的所有记录
  Sub ShowPage(RS, PageNo)
    '设置表格背景颜色及插图文件，同时加上Randomize使每次产生不同顺序的图形文件
    ReDim Fig(RS.PageSize - 1 ), BG(RS.PageSize - 1 )
    Randomize
    For I = 0 to RS.PageSize - 1 
      Fig(I) = INT(RND * 9) + 1 & ".gif"
    Next 
    BG(0) = "#D9D9FF" 
    BG(1) = "#FFCAEE"
    BG(2) = "#FFFFCC"
    BG(3) = "#B9EEB9"
    BG(4) = "#B9E9FF"

    Response.Write "<form name='form1' method='post' ><table width='100%' border='0' cellpadding='1' cellspacing='1'>"
	Response.Write "<tr>"
	Response.Write "<td><font color='#DB7093' size='4' face='幼圆'></font></td>"
	Response.Write "<td><font color='#DB7093' size='4' face='幼圆'>用户帐号</font></td>"
    Response.Write "<td><font color='#DB7093' size='4' face='幼圆'>用户ID</font></td>"
	Response.Write "<td><font color='#DB7093' size='4' face='幼圆'>用户类型</font></td>"
	Response.Write "<td><font color='#DB7093' size='4' face='幼圆'>注册时间</font></td>"
    RS.AbsolutePage = PageNo 
    For I = 1 To RS.PageSize
      Response.Write "<TR BGCOLOR=" & BG(I - 1) & ">"
      Response.Write "<TD WIDTH='10%'><input type='checkbox' name='Id' id='ID' value="&rs("ID")&"></TD>"
      Response.Write "<TD><span class='style1'><A HREF=viewall.asp?user="&rs("user")&" target='_blank'>"&rs("user")&"</a></td>"
	  Response.Write "<TD><span class='style1'> "&rs("id")&"</td>"
	  if rs("flag")=1 then
	  Response.Write "<TD><span class='style1'>个人用户</td>"
	  else if rs("flag")=2 then
	  Response.Write "<TD><span class='style1'>公司/单位用户</td>"
	  end if
	  end if
	  Response.Write "<TD><span class='style1'> "&rs("time")&"</td>"
	  RS.MoveNext
      If RS.EOF Then Exit For    '若到记录结尾就结束For循环
    Next
	Response.Write "<tr bgcolor='#FFFFFF'><td colspan='2'><input name='actions' type='radio' value='del' checked><span class='style1'>删除所选的用户</span><input type='submit' name='Submit' value='执行操作'><input name='action' type='hidden' id='action' value='dell'></td></tr>"
    Response.Write "</TABLE></form>"
	if request.Form("action")="dell" then
	 Dim Num,rss
	if request.Form("actions")="del" then
	Num=request.form("ID").count
      for i=1 to Num
 	 	set Rss = conn.execute("select * from alluser where ID="&Request.form("id")(i))
		conn.execute("Delete From message Where From='"&Rss("user")&"'")
      conn.execute("Delete From message Where to='"&Rss("user")&"'")
      conn.execute("Delete From userinfo Where user='"&Rss("user")&"'")
	  conn.execute("Delete From cominfo Where com='"&Rss("user")&"'")
		conn.execute("Delete from alluser where ID="&Request.form("id")(i))
		Next 
	 Response.Redirect("alluser.asp?=删除成功")
	  Response.End
	end if
end if
  End Sub
%>
<HTML>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
  <BODY>
    <CENTER>
    </CENTER>

    <%  
      '读取 数据表的所有记录并依照时间递减顺序排列 
	  set RS=server.CreateObject("adodb.recordset")
        '读取数据表的所有记录  
		sql="select * from alluser order by id desc"
 	    RS.open sql,conn,1,3
		
		If RS.EOF Then 
        Response.Write "<CENTER><P>目前还没有任何用户！</P>" & _
          "<P><A HREF='../main.asp'>返回系统首页</A></P></CENTER>" 
      Else  
          
      '设置分页大小，您可视实际情况设置其他数值 
      RS.PageSize = 5  
          
      '显示页次超链接 
      PageNo = Request("PageNo")  '读取浏览者所点取的页次超链接 
      Response.Write "<span class='style1'>[&nbsp;"  
      For I = 1 To RS.PageCount  
        If I = CInt(PageNo) Then   '若到浏览者所点取的页次超链接，便不再当成超链接 
          Response.Write I & "&nbsp;|&nbsp;"  
        Else  
          Response.Write "<A HREF='alluser.asp?PageNo=" & I & "'>第" & _  
            I & "页</A>" & "&nbsp;|&nbsp;"  '超链接到alluser.asp并将页次当成参数传送 
        End If  
      Next  
      Response.Write "]<HR><center>所有所有注册用户&nbsp;&nbsp;&nbsp;<a href='main.htm'>返回首页</a>&nbsp;&nbsp;&nbsp;<a href='../search/searchcom.htm' target='_blank'>搜索公司／单位</a>&nbsp;&nbsp;&nbsp;<a href='../search/searchuser.htm' target='_blank'>搜索个人用户</a></span><br><br>"  
    %>
	
    <%  
      '根据页次调用ShowPage子程序来显示留言，若没有指定页次，就显示第1页 
      If PageNo <> "" Then   
        ShowPage RS, PageNo  
      Else  
        ShowPage RS, 1  
      End If  
  
      '关闭数据库连接并释放对象 
      RS.Close           
      Set RS = Nothing     
      Conn.Close           
      Set Conn = Nothing     
    %>
	<%end if%>
	
	<table width="500" border="0" align="center" cellpadding="0" cellspacing="0">
      <tr>
        <td><div align="center" class="style1"><br>
                <br>
以上为所有注册用户<br>
<br>
<a href="main.htm">返回首页</a><br>
        </div></td>
      </tr>
    </table>
  </BODY>  
</HTML>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -