Other windows programs

Development Platform:
VBScript

useradm.asp：Code Content
							<!--#include file="dbconn.asp"-->
<% if session("ifadm")="" then
   response.redirect "admlogin.asp"
   end if
%>   
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>海脉管理员工作室</title>
<link rel="stylesheet" type="text/css" href="../style.css">
<script language="javascript">
<!--
function openwin1(id)
{
window.open("moreinfo.asp?eventid="+id,"info","width=550,height=470,resizable=no,scrollbars=yes,status=no,toolbar=no,menubar=no,location=no,left=15,top=20");
}
function openwin3(id)
{
window.open("feedback.asp?eventid="+id,"view","width=700,height=470,resizable=no,scrollbars=yes,status=no,toolbar=no,menubar=no,location=no,left=15,top=20");
}
function poppub(url){
window.open(url,"pub","width=650,height=470,resizable=no,scrollbars=yes,status=no,toolbar=no,menubar=no,location=no,left=0,top=0");
}
//-->
</script>
</head>
<%
   response.buffer=true
   const MaxPerPage=25
   dim totalPut   
   dim CurrentPage
   dim TotalPages
   dim i,j
   if not isempty(request("page")) then
      currentPage=cint(request("page"))
   else
      currentPage=1
   end if
   
%>
<body leftmargin=0 topmargin=3>
<center><big><b>海脉管理员工作室</b></big></center><br>
<%
dim sql,rsnum,rs
sql="select num=count(*) from userinfo where porc=1"
Set rsnum= Server.CreateObject("ADODB.Recordset")
rsnum.open sql,conn,1,1
sql="select * from userinfo where porc=1 order by loginname"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
  if rs.eof and rs.bof then
 
       response.write "<p align='center'>   还 没 有 任 何 活 动 信 息</p>"
   
   else
	 
      totalPut=rs.recordcount
      if currentpage<1 then
          currentpage=1
      end if
      if (currentpage-1)*MaxPerPage>totalput then
	   if (totalPut mod MaxPerPage)=0 then
	     currentpage= totalPut  MaxPerPage
	   else
	      currentpage= totalPut  MaxPerPage + 1
	   end if
      end if
       	       if currentPage=1 then
                    showpages
                    showContent
					showpages
	           else
		         if (currentPage-1)*MaxPerPage<totalPut then
		            rs.move  (currentPage-1)*MaxPerPage
		            dim bookmark
		            bookmark=rs.bookmark
                    showpages
                    showContent
					showpages
                  else
			        currentPage=1
                   showpages
                    showContent
                   showpages
			      end if
			   end if
			   rs.close
   end if
	        
   set rs=nothing  
   conn.close
   set conn=nothing
  
   sub showContent
       dim i
	   i=0
  
%>
<div align="center"><center>
<table width=260%>
<tr>
<td align=right>共有<font color=red><%=rsnum("num")%></font>个个人注册用户 </td>
</tr>
</table>
<table border="1" cellspacing="0" width=260% bgcolor="#F0F8FF" bordercolorlight="#4DA6FF"
bordercolordark="#ECF5FF">
  <tr bgcolor="#0080C0">
   <td  align="center"><font color="#ffffff">修改</font></td>
   <td  align="center"><font color="#ffffff">删除</font></td>
  <td  align="center"><font color="#ffffff">ID</font></td>
    <td  align="center"><font color="#ffffff">登录名</font> </td>
    <td  align="center"><font color="#ffffff">密码</font></td>
    <td  align="center"><font color="#ffffff">姓名</font></td>
    <td  align="center"><font color="#ffffff">年龄</strong></td>
<td  align="center"><font color="#ffffff">性别</font></td>
 <td  align="center"><font color="#ffffff">学历</font></td>
 <td  align="center"><font color="#ffffff">职务</font></td>
 <td  align="center"><font color="#ffffff">月薪</font></td>
  <td  align="center"><font color="#ffffff">公司名称</font></td>
 <td  align="center"><font color="#ffffff">公司类型</font></td>
 <td  align="center"><font color="#ffffff">从事领域</font></td>
 <td  align="center"><font color="#ffffff">公司规模</font></td>
  <td  align="center"><font color="#ffffff">所在地</font></td>
 <td  align="center"><font color="#ffffff">详细地址</font></td>
 <td  align="center"><font color="#ffffff">邮编</font></td>
 <td  align="center"><font color="#ffffff">电话</font></td>
 <td  align="center"><font color="#ffffff">传真</font></td>
 <td  align="center"><font color="#ffffff">email</font></td>
  <td  align="center"><font color="#ffffff">公司主营</font></td>
   <td  align="center"><font color="#ffffff">备注</font></td>
   <td  align="center"><font color="#ffffff">修改</font></td>
   <td  align="center"><font color="#ffffff">删除</font></td>
</tr>
<%do while not rs.eof
dim vcompanytype,vcompanyfield,vcompanysize,vage,vedu,vtitle,vsex
select case rs("companytype")
  case 1 
    vcompanytype="国家机关"
  case 2 
    vcompanytype="国企"
  case 3 
    vcompanytype="外企"
  case 4 
    vcompanytype="中外合资"
  case 5 
    vcompanytype="私营企业"
 
end select  
select case rs("companyfield")
  case 1 
    vcompanyfield="金融"
  case 2 
    vcompanyfield="电信"
  case 3 
    vcompanyfield="机械"
  case 4 
    vcompanyfield="交通"
  case 5 
    vcompanyfield="计算机"
  case 6 
    vcompanyfield="服务业"
  case 7
    vcompanyfield="流通业"
  case 8 
    vcompanyfield="政府部门"
  case 9 
    vcompanyfield="其它"    
end select  
select case rs("companysize")
  case 0
    vcompanysize="少于10人"
  case 1 
    vcompanysize="10-99人"
  case 2 
    vcompanysize="100-499人"
  case 3 
    vcompanysize="500-999人"
  case 4 
    vcompanysize="1000-9999人"
  case 5 
    vcompanysize="10000人以上"
  
end select  
select case rs("age")
  case 1 
    vage="20岁以下"
  case 2 
    vage="20-24岁"
  case 3 
    vage="25-29岁"
  case 4 
    vage="30-34岁"
  case 5 
    vage="35-39岁"
  case 6 
    vage="40-44岁"
  case 7
    vage="44-49岁"
  case 8 
    vage="50岁以上"
    
end select  
select case rs("edu")
  case 1 
    vedu="大专以下"
  case 2 
    vedu="大专"
  case 3 
    vedu="大学本科"
  case 4 
    vedu="研究生"
  case 5 
    vedu="博士以上"
  case 6 
    vedu="留学国外"
  case 7
    vedu="其它"
end select  
select case rs("title")
  case 1 
    vtitle="企业经理"
  case 2 
    vtitle="高级管理人员"
  case 3 
    vtitle="部门主管"
  case 4 
    vtitle="技术主管"
  case 5 
    vtitle="一般员工"
  case 6 
    vtitle="公务员"
  case 7
    vtitle="讲师教授"
  case 8 
    vtitle="其它"
  
end select  
select case rs("salary")
  case 1 
    vsalary="1000元以下"
  case 2 
    vsalary="1000-3000元"
  case 3 
    vsalary="3000-5000元"
  case 4 
    vsalary="5000-8000元"
  case 5 
    vsalary="8000-15000元"
  case 6 
    vsalary="15000元以上"
 
end select 
if rs("sex")="True" then
 vsex="女"
else
 vsex="男"
end if 
%>
  <tr>
   <td  align="center">
    <a href="useredit.asp?userid=<%=rs("userid")%>&page=<%=currentpage%>">修改</a></td>
    <td  align="center">
    <a href="userdelete.asp?userid=<%=rs("userid")%>&page=<%=currentpage%>">删除</a></td> 
    <td ><p align="center"><%=rs("userid")%> &nbsp</td>
    <td ><p align="center"><%=rs("loginname")%>&nbsp </td>
    <td ><p align="center"><%=rs("pw") %>&nbsp </td>
    <td ><p align="center"><%=rs("name") %>&nbsp </td>
    <td ><p align="center"><%=vage %> &nbsp</td>
    <td ><p align="center"><%=vsex %>&nbsp </td>
    <td ><p align="center"><%=vedu %>&nbsp </td>
    <td ><p align="center"><%=vtitle %>&nbsp </td>
    <td ><p align="center"><%=vsalary %>&nbsp </td>
    <td ><p align="center"><%=rs("companyname") %> &nbsp</td>
    <td ><p align="center"><%=vcompanytype %> &nbsp</td>
    <td ><p align="center"><%=vcompanyfield %> &nbsp</td>
    <td ><p align="center"><%=vcompanysize %>&nbsp </td>
    <td ><p align="center"><%=rs("city") %> &nbsp</td>
    <td ><p align="center"><%=rs("address") %>&nbsp </td>
    <td ><p align="center"><%=rs("zip")%>&nbsp </td>
    <td ><p align="center"><%=rs("tel")%> &nbsp</td>
    <td ><p align="center"><%=rs("fax")%>&nbsp </td>
    <td ><p align="center"><%=rs("email")%> &nbsp</td>
    <td ><p align="center"><%=rs("project")%> &nbsp</td>
    <td ><p align="center"><%=rs("remark")%>&nbsp </td>
    <td  align="center">
    <a href="useredit.asp?userid=<%=rs("userid")%>&page=<%=currentpage%>">修改</a></td>
    <td  align="center">
    <a href="userdelete.asp?userid=<%=rs("userid")%>&page=<%=currentpage%>">删除</a></td>  
  </tr>
<% i=i+1
	      if i>=MaxPerPage then exit do
	      rs.movenext
	   loop
		  %>
		  </table>
</center></div>
<%
   end sub 
   sub showpages()
          dim n
	   if (totalPut mod MaxPerPage)=0 then
	      n= totalPut  MaxPerPage
	   else
	      n= totalPut  MaxPerPage + 1
	   end if
	   if n=1 then 
     
        exit sub
       end if
	   dim k
	   response.write "<p align='left'>　分页: "
	   for k=1 to n
	       if k=currentPage then
	          response.write "[<b>"+Cstr(k)+"</b>] "
		   else
		    response.write "[<b>"+"<a href='useradm.asp?page="+Cstr(k)+"'>"+Cstr(k)+"</a></b>] "
		   end if
	   next
     
   end sub
%>
<p align="center"><br>     
</p>     
<div align="center"><center>     
     
<table border="0" width="70%" cellspacing="2" cellpadding="0">     
  <tr>     
    <td bgcolor="#ffffff" width="100%" height="60" align="center" valign="buttom">北京海脉互联网技术有限公司<br>     
    Copyright &copy; 1999-2000 Hermes Corporation，All Rights Reserved<br>              
    <hr noshade width="400" color="#000000">              
    <p>联系电话:(010)66056839 66056239 FAX:(010)66056214
<br>              
    E-mail:<a href="mailto:suggest@hermes.com.cn">suggest@hermes.com.cn</a><br>              
    </td>              
  </tr>              
</table>              
</center></div>  
</body>
</html>

						