Other windows programs

Development Platform:
VBScript

forecast.asp：Code Content
							<!--#include file="dbconn.asp"-->
<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 1.1 src="../topmenu.js"></script>
<script language="javascript">
<!--
function openwin1(url1)
{
var 
popup1=window.open(url1,"info","width=550,height=470,resizable=no,scrollbars=yes,status=no,toolbar=no,menubar=no,location=no,left=15,top=20");
  popup1.focus();
  return false;
}
function openwin2(url2)
{
var 
popup2=window.open(url2,"join","width=550,height=470,resizable=no,scrollbars=yes,status=no,toolbar=no,menubar=no,location=no,left=10,top=15");
  popup2.focus();
  return false;
}
function popleftmenu(url){
var 
popup3=window.open(url,"leftmenu1","width=650,height=500,resizable=no,scrollbars=yes,status=no,toolbar=no,menubar=no,location=no,left=0,top=0");
  popup3.focus();
  return false;
}
//-->
</script>
</head>
<%
   response.buffer=true
   const MaxPerPage=20
   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>
<%
dim sql
dim rs
%>
<p align=center><img src="../images/come2e.gif" width=468 height=60 border=0></p>
<table width=600 cellspacing=0 cellpadding=0 border=0 align=center>
<tr><td align=left valign=top>
<h5>近期要举行的信息如下：<h5>
</td>
<td align=right valign=top>
<a href="javascript:self.close()"><b>关闭窗口</b></a>
</td></tr>
</table>
<%
vmonth=month(date())
if vmonth=12 then
vmonth1=1
else
vmonth1=vmonth+1
end if
vday=day(date())
if vday<"15" then
sql="select * from companyevent where endtime>convert(datetime,getdate()) and blnctr=1 and beginmon="&vmonth&" order by eventtime"
else
sql="select * from companyevent where endtime>convert(datetime,getdate()) and blnctr=1 and (beginmon="&vmonth&" or beginmon="&vmonth1&") order by eventtime"
end if
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="600" bgcolor="#F0F8FF" bordercolorlight="#4DA6FF"
bordercolordark="#ECF5FF">
  <tr bgcolor="#0080C0">
  <td  align="center"><font color="#ffffff">活动名称</font></td>
   
    <td  align="center" width=100><font color="#ffffff">开始日期</font></td>
    <td  align="center" width=100><font color="#ffffff">结束日期</font></td>
    <td  align="center" width=45><font color="#ffffff">地点</strong></td>
<td  align="center" width=30><font color="#ffffff">详情</font></td>
 <td  align="center" width=60><font color="#ffffff">我要参加</font></td> 
</tr>
<%do while not rs.eof
%>
  <tr>
    <td ><p align="center"><%=rs("eventname")%></td>
    <td ><p align="center"> <%=rs("beginyear")%>年<%=rs("beginmon")%>月<%=rs("beginday")%>日</td>
    <td ><p align="center"> <%=rs("endyear")%>年<%=rs("endmon")%>月<%=rs("endday")%>日</td>
    <td ><p align="center"> <%=rs("eventcity")%></td>
  <td  align="center">
    <a onclick="return openwin1(this.href)" href='moreinfo.asp?eventid=<%=rs("eventid")%>'>详情</a></td>
 
  <td  align="center">
  <% if rs("blnjoin")="True" then %>
    
<% if session("username")="" then %>
<a onclick="return popleftmenu(this.href)" href="../registration/prereg.asp"><font color=red>我要参加</font></a>
<% else %>
<a onclick="return openwin2(this.href)" href='eventjoin.asp?eventid=<%=rs("eventid")%>'><font color=red>我要参加</font></a>
<% end if %>
 <%else%>
      仅做通告
 <%end if%>
    </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='forecast.asp?page="+Cstr(k)+"'>"+Cstr(k)+"</a></b>] "
		   end if
	   next
     
   end sub
 
%>
<br><br><br>
<script language="javascript">
<!--
bottoms()
//-->
</script>  
</body>
</html>

						