Other windows programs

Development Platform:
VBScript

eventadm.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">
<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=36
   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>
<%
eventtype=trim(request("eventtype"))
beginmon=trim(request("beginmon"))
city=trim(request("city"))
companyid=trim(request("companyname"))
sql="select * from companyevent where 1=1"
if eventtype<>"0" then
 sql=sql+" and eventtype="&eventtype
end if 
if beginmon<>"0" then
 sql=sql+" and beginmon="&beginmon
end if 
if city<>"0" then
 sql=sql+" and eventcity='"&city&"'"
end if 
if companyid<>"0" then
 sql=sql+" and companyid="&companyid
end if 
sql=sql+" order by eventtime desc" 
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="768" bgcolor="#F0F8FF" bordercolorlight="#4DA6FF"
bordercolordark="#ECF5FF">
  <tr bgcolor="#0080C0">
  <td  align="center"><font color="#ffffff">活动名称</font></td>
    <td width="45" align="center"><font color="#ffffff">活动类型</font> </td>
    <td  width="95" align="center"><font color="#ffffff">开始日期</font></td>
    <td  width="95"align="center"><font color="#ffffff">结束日期</font></td>
    <td width="40"  align="center"><font color="#ffffff">地点</strong></td>
<td width="30"  align="center"><font color="#ffffff">详情</font></td>
<td width="45"  align="center"><font color="#ffffff">发布者</font></td>
 <td width="30"   align="center"><font color="#ffffff">修改</font></td>
 <td width="30"  align="center"><font color="#ffffff">删除</font></td>
  <td width="60"  align="center"><font color="#ffffff">查看反馈</font></td>
 <td width="30"  align="center"><font color="#ffffff">验证</font></td>
 <td width="30"  align="center"><font color="#ffffff">推荐</font></td>
 <td width="30" align="center"><font color="#ffffff">设定</font></td>
  <td width="30" align="center"><font color="#ffffff">排序</font></td>
</tr>
<%do while not rs.eof
dim typename
select case rs("eventtype")
  case 1 
    typename="展会信息"
  case 2 
    typename="在线研讨"
  case 3 
    typename="产品推广"
  case 4 
    typename="新闻发布"
  case 5 
    typename="培训讲座"
  case 6 
    typename="其他"
end select  
%>
  <tr>
    <td ><p align="center"><%=rs("eventname")%></td>
    <td ><p align="center"><%=typename %></td>
    <td > <%=rs("beginyear")%>年<%=rs("beginmon")%>月<%=rs("beginday")%>日</td>
    <td > <%=rs("endyear")%>年<%=rs("endmon")%>月<%=rs("endday")%>日</td>
    <td > <%=rs("eventcity")%></td>
  <td align="center">
    <a href='javascript:openwin1(<%=rs("eventid")%>)'>详情</a></td>
 
  <td  align="center">
    <a href='userinfo.asp?userid=<%=rs("companyid")%>' target=bland>发布者</a></td>
    <td  align="center">
    <a href="eventedit.asp?eventid=<%=rs("eventid")%>&eventtype=<%=eventtype%>&beginmon=<%=beginmon%>&city=<%=city%>&companyname=<%=companyid%>&page=<%=currentpage%>">修改</a></td>
    <td  align="center">
    <a href="eventdel.asp?eventid=<%=rs("eventid")%>&eventtype=<%=eventtype%>&beginmon=<%=beginmon%>&city=<%=city%>&companyname=<%=companyid%>&page=<%=currentpage%>">删除</a></td>
     <td  align="center">
  <% if rs("blnjoin")="True" then %>
    <a href='javascript:openwin3(<%=rs("eventid")%>)'>查看反馈</a>
   <%else%>
      仅做通告
  <%end if%>
 </td>
     <td align="center" > <% if rs("blnctr")=0 then
              response.write"没有"
              else
              response.write"<font color=red>通过</font>"
              end if%></td>
        <td align="center"> <% if rs("blnsuggest")=0 then
              response.write"否"
              else
              response.write"<font color=red>推荐</font>"
              end if%></td>
   <td  align="center">
  
    <a href="verify.asp?eventid=<%=rs("eventid")%>&eventtype=<%=eventtype%>&beginmon=<%=beginmon%>&city=<%=city%>&companyname=<%=companyid%>&page=<%=currentpage%>">设定</a></td>
   <td ><p align="center"><%=rs("ctrposition")%>&nbsp</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 "<font color=red>[<b>"+Cstr(k)+"</b>]</font> "
		   else
		    response.write "[<b>"+"<a href='eventadm.asp?eventtype="+eventtype+"&beginmon="+beginmon+"&city="+city+"&companyname="+companyid+"&page="+Cstr(k)+"'>"+Cstr(k)+"</a></b>] "
		   end if
	   next
     
   end sub
%>
</body>
</html>

						