Other windows programs

Development Platform:
VBScript

feedback.asp：Code Content
							<!--#include file="dbconn.asp"-->
<% 'if session("admuser")="" 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">
</head>
<%
   response.buffer=true
   const MaxPerPage=10
   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 marginwidth=0 marginheight=0>
<div align="center"><center>
<table border="0" cellpadding="0" cellspacing="0" width="400" height="40">
  <tr>
    <td align="center"><p class="title"><b><big><i>参加活动反馈</i></big></b></td>              
  </tr>              
</table>              
</center></div>   
<%
dim sql
dim rs
dim eventid
eventid=trim(request("eventid"))
sql="select * from userinfo where userid in (select userid from eventjoin where eventid="&eventid&")" 
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 border="1" cellspacing="0" width="670" bgcolor="#F0F8FF" bordercolorlight="#4DA6FF"
bordercolordark="#ECF5FF">
  <tr bgcolor="#0080C0">
  <td  align="center" width=60><font color="#ffffff">姓名</font></td>
    <td  align="center" width=30><font color="#ffffff">性别</font> </td>
    <td  align="center" width=50><font color="#ffffff">年龄</font> </td>
    <td  align="center" width=50><font color="#ffffff">学历</font></td>
    <td  align="center" width=100><font color="#ffffff">所在单位</font></td>
    <td  align="center" width=50><font color="#ffffff">职务</strong></td>
    <td  align="center" width=50><font color="#ffffff">月薪</strong></td>
<td  align="center" width=50><font color="#ffffff">电话</font></td>
 <td  align="center" width=50><font color="#ffffff">传真</font></td>
 <td  align="center" width=50><font color="#ffffff">email</font></td>
 <td  align="center" width=180><font color="#ffffff">备注</font></td> 
</tr>
       
<%dim vsex,vedu,vage,vtitle,rsdetails %>      
<%do while not rs.eof
if rs("sex")=0 then
   vsex="男"
else
   vsex="女"
end if   
select case rs("age")
  case 1 
    vage="20岁以下"
  case 2 
    vage="20-30岁"
  case 3 
    vage="30-40岁"
  case 4 
    vage="40-50岁"
  case 5 
    vage="50岁以上"
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="45-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  
sql="select remark from eventjoin where eventid="&eventid&" and userid="&rs("userid")
set rsdetails=conn.execute(sql)
vremark=trim(rsdetails("remark"))
%>
 
  <tr>
    <td ><p align="center"><%=rs("name")%></td>
    <td ><p align="center"><%=vsex %></td>
    <td > <%=vage%></td>
    <td > <%=vedu%></td>
    <td > <%=rs("companyname")%></td>
    <td > <%=vtitle%></td>
    <td > <%=vsalary%></td>
    <td > <%=rs("tel")%></td>
    <td > <%=rs("fax")%></td>
    <td > <%=rs("email")%></td>
    <td > <%=vremark%></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'>&gt;&gt; 分页 "
	   for k=1 to n
	       if k=currentPage then
	          response.write "[<b>"+Cstr(k)+"</b>] "
		   else
		    response.write "[<b>"+"<a href='eventmanage.asp?page="+Cstr(k)+"'>"+Cstr(k)+"</a></b>] "
		   end if
	   next
      
   end sub
 
%>
<p align=center><a href="javascript:self.close()"><b>关闭窗口</b></a></p>
</body>
</html>

						