events.asp

一个不错的ASP论坛源码

<%
'########## Snitz Forums 2000 Version 3.1 SR4 ####################
'#                                                               #
'#  汉化修改: 资源搜罗站                                         #
'#  电子邮件: [e-mail]                                     #
'#  主页地址: http://www.sdsea.com                               #
'#            http://www.99ss.net                                #
'#            http://www.cdown.net                               #
'#	     http://www.wzdown.com                               #
'#	     http://www.13888.net                                #
'#  论坛地址:http://ubb.yesky.net                                #
'#  最后修改日期: 2001/03/12    中文版本：Version 3.1 SR4        #
'#################################################################
'# 原始来源                                                      #
'# Snitz Forums 2000 Version 3.1 SR4                             #
'# Copyright 2000 http://forum.snitz.com - All Rights Reserved   #
'#################################################################
'#【版权声明】                                                   #
'#                                                               #
'# 本软体为共享软体(shareware)提供个人网站免费使用，请勿非法修改,#
'# 转载，散播，或用于其他图利行为，并请勿删除版权声明。          #
'# 如果您的网站正式起用了这个脚本，请您通知我们，以便我们能够知晓#
'# 如果可能，请在您的网站做上我们的链接，希望能给予合作。谢谢！  #
'#################################################################
'# 请您尊重我们的劳动和版权，不要删除以上的版权声明部分，谢谢合作#
'# 如有任何问题请到我们的论坛告诉我们                            #
'#################################################################
%>
<!--#INCLUDE FILE="config.asp" -->
<!--#INCLUDE FILE="inc_functions.asp" -->
<!--#INCLUDE FILE="inc_top.asp" -->
<%
	' Constants for the days of the week
	Const cSUN = 1, cMON = 2, cTUE = 3, cWED = 4, cTHU = 5, cFRI = 6, cSAT = 7
	
	dim intPrivateEvent
	
	if Request.Form("isPrivateEvent") = "1" then
		intPrivateEvent = 1
	else
		isPrivateEvent = 0
	end if

	' Get the name of this file
	dim sScript
	sScript = Request.ServerVariables("SCRIPT_NAME")
	
	'set the date to today
	dim datToday
	datToday = date()
	
	' Check for valid month input
	dim intThisMonth
	intThisMonth = Request.QueryString("month")
	if intThisMonth = "" then
		intThisMonth = month(datToday)
	else
		intThisMonth = cint(intThisMonth)
	end if
	If intThisMonth < 1 OR intThisMonth > 12 Then
		intThisMonth = Month(datToday)
	End If
	
	' Check for valid year input
	dim intThisYear
	intThisYear = Request.QueryString("year")
	If intThisYear = "" Then
		intThisYear = Year(datToday)
	else
		intThisYear = cint(intThisYear)
	End If

	dim sSQL


	dim sStart_Date, sEnd_Date, sEvent_title, sEvent_Details

	dim sMode, berror
	sMode = Request.QueryString("mode")

	select case sMode
		case "delete" 
			if mlev >= 3 then
				sSQL = "DELETE * FROM FORUM_EVENTS WHERE Event_ID=" & Request.QueryString("Event_ID")
				my_Conn.Execute ssql
				strCMessage = "The selected event was deleted"
			end if
		case "edit"
			if mlev >= 3 then
				sMode = "edit"
				strCMessage = "Event Edit Successful"
			end if
		case "add"
			if mlev >= 1 then
				smode = "add"
			end if
	end select

	dim ddate
	dDate = Request.QueryString("Date")
	If not IsEmpty(ddate) and IsDate(ddate) and smode = "" Then
		sMode = "display"
	end if

	if Request.Form("EVENT") <> "" then
		Update_Event(Request.Form("EVENT"))
	end if	

	dim strMonthName, datFirstDay, intFirstWeekday, intLastDay, intPrevMonth, intNextMonth, intPrevYear, intNextYear
	dim LastMonthDate, NextMonthDate, intPrintDay, intLastMonth, dToday, dFirstDay, dLastDay, endrows, intLoopDay
	dim bevents, i, sTitle
%>
<style TYPE="text/css">
  TD.NON {font-family :Tahoma, 宋体, Arial; font-size :12px; color :#C0C0C0; font-weight :normal;}
  TD.TOP {font-family :Tahoma, 宋体, Arial; font-size :12px; color :#0000FF; font-weight :bold;}
  TD.Some {font-family :Tahoma, 宋体, Arial; font-size :12px; color :#000000; font-weight :normal;}
  TD.Today {font-family :Tahoma, 宋体, Arial; font-size :12px; background-color :khaki; font-weight :normal;}
  TD.Selected {font-family :Tahoma, 宋体, Arial; font-size :12px; background-color :silver; font-weight :normal;}
  TD.HL {font-family :Tahoma, 宋体, Arial; font-size :12px; color :#000000; font-weight :normal;}
  TD.NON2 {font-family: Tahoma, 宋体, Arial; font-size :12px; background-color :lightgrey; font-weight :normal}
A.NOEVENT:link
{
    COLOR: #000000;
    CURSOR: nw-resize;
    FONT-FAMILY: Tahoma, 宋体, Arial;
    FONT-WEIGHT: normal;
    TEXT-DECORATION: none
}
A.NOEVENT:visited
{
    COLOR: #000000;
    CURSOR: nw-resize;
    FONT-FAMILY: Tahoma, 宋体, Arial;
    FONT-WEIGHT: normal;
    TEXT-DECORATION: none
}
A.NOEVENT:hover
{
    BACKGROUND-COLOR: silver;
    COLOR: #000000;
    CURSOR: nw-resize;
    FONT-FAMILY: Tahoma, 宋体, Arial;
    FONT-WEIGHT: normal;
    TEXT-DECORATION: none
}
A.EVENT:link
{
    COLOR: green;
    CURSOR: nw-resize;
    FONT-FAMILY: Tahoma, 宋体, Arial;
    FONT-WEIGHT: bold;
    TEXT-DECORATION: none
}
A.EVENT:visited
{
    COLOR: green;
    CURSOR: nw-resize;
    FONT-FAMILY: Tahoma, 宋体, Arial;
    FONT-WEIGHT: bold;
    TEXT-DECORATION: none
}
A.EVENT:hover
{
    BACKGROUND-COLOR: khaki;
    COLOR: green;
    CURSOR: nw-resize;
    FONT-FAMILY: Tahoma, 宋体, Arial;
    FONT-WEIGHT: bold;
    TEXT-DECORATION: none
}
A.MONTH:link
{
    COLOR: black;
    FONT-FAMILY: Tahoma, 宋体, Arial;
    FONT-WEIGHT: normal;
    TEXT-DECORATION: none
}
A.MONTH:visited
{
    COLOR: black;
    FONT-FAMILY: Tahoma, 宋体, Arial;
    FONT-WEIGHT: normal;
    TEXT-DECORATION: none
}
A.MONTH:hover
{
    COLOR: black;
    FONT-FAMILY: Tahoma, 宋体, Arial;
    FONT-WEIGHT: normal;
    TEXT-DECORATION: underline
}
A.NORMAL:link
{
    COLOR: #000000;
    FONT-FAMILY: 宋体, Arial;
    FONT-WEIGHT: normal;
    TEXT-DECORATION: none
}
A.NORMAL:visited
{
    COLOR: #000000;
    FONT-FAMILY: 宋体, Arial;
    FONT-WEIGHT: normal;
    TEXT-DECORATION: none
}
A.NORMAL:hover
{
    COLOR: #000000;
    FONT-FAMILY: 宋体, Arial;
    FONT-WEIGHT: normal;
    TEXT-DECORATION: none
}
.createdby
{
    FONT-STYLE: italic;
    TEXT-ALIGN: right
}
.bluetext
{
    COLOR: #336699
}
.month
{
    FONT-WEIGHT: bold
}
.eventname
{
    FONT-WEIGHT: bold
}
</style>
<table bgcolor="<% =strTableBorderColor %>" border="0" cellpadding="0" cellspacing="1" width="100%" ALIGN=CENTER>
	<tr>
		<td bgcolor="<% =strForumCellColor %>" align="center" valign="top" nowrap width="140">
			<table border="0" cellpadding="1" cellspacing="2" width="140" height="100%">
				<tr>
					<td align="center" bgcolor="<% =strHeadCellColor %>"><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>">显示月份</font></b></td>
				</tr>
				<%emitmonths()%>
				<tr>
					<td align=center>
						<FORM ACTION="<% =sScript%>" METHOD=GET id=frmSelectMonth name=frmSelectMonth>
							<SELECT NAME=MONTH>
								<%for i = 1 to 12%>
								<OPTION VALUE=<%=i%> <%if i = intThisMonth then Response.Write(" selected")%>><%= monthname(i,true)%>
								<%next%>
							</SELECT>
							<SELECT NAME=YEAR>
								<%for i = -3 to 3%>
								<OPTION VALUE=<%= intThisYear + i%> <%if (intThisYear + i) = intThisYear then Response.Write(" selected")%>><%= intThisYear + i%>
								<%next%>
							</SELECT>
							<INPUT TYPE="submit" NAME="Go" value="显示" BORDER="0" WIDTH="35" HEIGHT="20">
						</FORM>
					</td>
				</tr>
				<%if mlev >= 1 then%>
				<tr>
					<td align=center>
						<font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><a HREF="events.asp?mode=add&date=<%if Request.QueryString("Date")= "" then Response.Write(date()) else Response.Write(Request.QueryString("Date"))%>">新增事项</A></font>
					</td>
				</tr>
				<%end if%>
				<%if smode <> "" then%>
				<tr>
					<td align=center>
						<div align="center"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><a href=events.asp>回到月历首页</a></font></div>
					</td>
				</tr>
				<%end if%>
				<tr>
					<td>
					&nbsp;
					</td>
				</tr>
				<tr>
					<td align="center" bgcolor="<% =strHeadCellColor %>"><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>">
					当前事项：
					</font></b></td>
				</tr>
				<tr>
					<td>
					<% call emitupcomingevents %>
					<br>
					<br>
					</td>
				</tr>
				<tr>
					<td align="center" bgcolor="<% =strHeadCellColor %>"><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>">
					过去事项：
					</font></b></td>
				</tr>