针对有网友说看不见文章内容，
现提示如下:
点击每一个标题行任一地方都会展开和隐藏此文章内容(不要点击标题).
目前展开隐藏功能只支持IE浏览器，虽然可以改成支持FF浏览器，不过现在一直没时间去弄，等有时间再修改了。 |
|
blog名称:乱闪Blog
日志总数:267
评论数量:1618
留言数量:-26
访问次数:2675490
建立时间:2005年1月1日 |
|
|
| |
 ASP日历类
|
| 作者：Xinsoft 来源：LeadBBS类代码：
<%Class Calendar
Public LangPublic DateVal
Public PrevYLink,NextYLinkPublic PrevMLink,NextMLink
'' Temp Var
Private pWeekdaysText
'' HTML Parameters
Public LinkStyleClass
Public Table_classPublic Table_widthPublic Table_bgColor
Public Table_Title_stylePublic Table_Title_bgColorPrivate Table_Title_Text
Public tdBgColor_LightPublic tdBgColor_DarkPublic tdBgColor_Gray
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' meta functions'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub Print( str ) Response.Write str & vbCrlfEnd SubPrivate Sub Echo( str ) Response.Write strEnd SubPrivate Sub EchoPara( str , val ) If ""<>""&val Then Response.Write " " & str & "="""& val &""""End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' HTML functions'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub PrintTableHead Echo "<table" EchoPara "class" , Table_class EchoPara "width" , Table_width EchoPara "bgColor" , Table_bgColor Echo " cellSpacing=""1"" cellPadding=""1""" Echo " align=""center""" Echo " border=""0""" Print "><tbody>"End SubPrivate Sub PrintTableTail Print "" Echo "</tbody></table>"End SubPrivate Sub PrintTableTitlePrint "<tr>" Echo "<td" EchoPara "style" , Table_Title_style EchoPara "bgColor" , Table_Title_bgColor EchoPara "colspan" , "7" Echo ">" Echo " <b>" & Table_Title_Text & "</b>" Print "</td>"Print "</tr>"End Sub
Private sub SetWeekdaysText_CHS() pWeekdaysText(0)="日" pWeekdaysText(1)="一" pWeekdaysText(2)="二" pWeekdaysText(3)="三" pWeekdaysText(4)="四" pWeekdaysText(5)="五" pWeekdaysText(6)="六"End SubPrivate sub SetWeekdaysText_ENU() pWeekdaysText(0)="Su" pWeekdaysText(1)="M" pWeekdaysText(2)="Tu" pWeekdaysText(3)="W" pWeekdaysText(4)="Th" pWeekdaysText(5)="F" pWeekdaysText(6)="Sa"End subPrivate sub SetWeekdaysText() Select Case Lang Case "CHS" : SetWeekdaysText_CHS Case "ENU" : SetWeekdaysText_ENU Case Else : SetWeekdaysText_ENU End selectEnd Sub
Private function MonthText_CHS( monthval ) Dim Str If monthval<10 Then Str="0"&monthval Else Str=monthval End If MonthText_CHS=Str & "月"End functionPrivate function MonthText_ENU( monthval ) Select Case ""&monthval Case "1" : MonthText_ENU="January" Case "2" : MonthText_ENU="February" Case "3" : MonthText_ENU="March" Case "4" : MonthText_ENU="April" Case "5" : MonthText_ENU="May" Case "6" : MonthText_ENU="June" Case "7" : MonthText_ENU="July" Case "8" : MonthText_ENU="August" Case "9" : MonthText_ENU="September" Case "10" : MonthText_ENU="October" Case "11" : MonthText_ENU="November" Case "12" : MonthText_ENU="December" End selectEnd FunctionPrivate function MonthText( monthval ) Select Case Lang Case "CHS" : MonthText=MonthText_CHS( monthval ) Case Else : MonthText=MonthText_ENU( monthval ) End selectEnd FunctionPrivate function YearText( yearval ) Select Case Lang Case "CHS" : YearText=yearval & "年" Case Else : YearText=yearval End selectEnd function
Private sub SetTable_Title_Text() Dim monthval monthval=Month(DateVal) Dim yeartext yeartext=Year(DateVal) Select Case Lang Case "CHS" : yeartext=yeartext&"年" Case Else : yeartext=yeartext End Select Dim daytext daytext=Day(DateVal) If 10>daytext Then daytext="0" & daytext Select Case Lang Case "CHS" : Table_Title_Text=MonthText_CHS( monthval ) Case Else : Table_Title_Text=MonthText_ENU( monthval ) End Select Select Case Lang Case "CHS" : Table_Title_Text=yeartext & Table_Title_Text & daytext & "日" Case Else : Table_Title_Text=Table_Title_Text &" "& Day(DateVal) & " , " & yeartext End selectEnd Sub
Private Sub PrintWeekdaysTR() Dim i Print "<tr>" For i=0 To 6 Echo "<td" EchoPara "align" , "center" EchoPara "valign" , "middle" EchoPara "bgColor" , tdBgColor_Dark Echo ">" Select Case Lang Case "CHS" : Echo pWeekdaysText(i) Case "ENU" : Echo "<b>" & pWeekdaysText(i) & "</b>" Case Else : Echo "<b>" & pWeekdaysText(i) & "</b>" End select Echo "</td>" Next Print "</tr>"End Sub
Private Sub PrintYMChooser() Dim M,Y M=Month(DateVal) Y=Year(DateVal) Print "<tr>" Echo "<td" EchoPara "align","center" EchoPara "valign","middle" EchoPara "bgColor",tdBgColor_Dark EchoPara "colspan","7" Echo ">" '' Year chooser Echo "<a" EchoPara "class",LinkStyleClass EchoPara "href",PrevYLink Echo ">" Echo "<span style=""FONT-FAMILY: webdings"">3</span></a><b>"& YearText(Y) &"</b>" Echo "<a" EchoPara "class",LinkStyleClass EchoPara "href",NextYLink Echo "</td>" Echo "<span style=""FONT-FAMILY: webdings"">4</span></a>" Echo " " '' Month chooser Echo "<a" EchoPara "class",LinkStyleClass EchoPara "href",PrevMLink Echo ">" Echo "<span style=""FONT-FAMILY: webdings"">3</span></a><b>"& MonthText(M) &"</b>" Echo "<a" EchoPara "class",LinkStyleClass EchoPara "href",NextMLink Echo "</td>" Echo "<span style=""FONT-FAMILY: webdings"">4</span></a>" Print "</tr>"End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Date Functions'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private curY,curM,curDPrivate curM_BeginDateVal,curM_EndDateValPrivate curM_DaysCountPrivate curM_BeginWeekday,curM_EndWeekdayPrivate curM_Begin_LeftDays,curM_End_RightDaysPrivate curM_TDCount,curM_LinesPrivate CellArray,CellX,CellYPublic ItemDatePublic ItemTextPublic ItemLinkPublic ItemBG
Public Function Idx2D_1D( x,y ) Idx2D_1D=CellX*y+x - curM_Begin_LeftDays If Idx2D_1D<0 Then Idx2D_1D=-1 If Idx2D_1D>=curM_DaysCount Then Idx2D_1D=-2 End function
Private Sub InitDatePara() curY=Year(DateVal) curM=Month(DateVal) curD=day(DateVal) curM_BeginDateVal=curY&"-"&curM&"-1" curM_EndDateVal=DateAdd( "m" , 1 , curM_BeginDateVal ) curM_EndDateVal=DateAdd( "d" ,-1 , curM_EndDateVal ) curM_DaysCount=DateDiff( "d" , curM_BeginDateVal , curM_EndDateVal )+1 curM_BeginWeekday =Weekday(curM_BeginDateVal , 1 ) curM_EndWeekday =Weekday(curM_EndDateVal , 1 ) curM_Begin_LeftDays =curM_BeginWeekday-1 curM_End_RightDays =7 - curM_EndWeekday curM_TDCount=curM_DaysCount + curM_Begin_LeftDays + curM_End_RightDays curM_Lines =curM_TDCount/7 CellX=7 CellY=curM_Lines ReDim CellArray( CellX,CellY ) ReDim ItemDate(curM_DaysCount) ReDim ItemText(curM_DaysCount) ReDim ItemLink(curM_DaysCount) ReDim ItemBG(curM_DaysCount) Dim i,j For i=0 To curM_DaysCount-1 ItemDate(i)=curY&"-"&curM&"-"&CStr(i+1) ItemText(i)=CStr(i+1) ItemLink(i)="" ItemBG(i) =tdBgColor_Light If curD=i+1 Then ItemBG(i)=tdBgColor_Gray Next End Sub
Property Let Date(g) DateVal=g InitDateParaEnd Property
Private Sub PrintDayTDs()Dim i,jDim xFor i=0 To CellY-1 Print "<tr>" For j=0 To CellX-1 x=Idx2D_1D(j,i) Echo "<td" EchoPara "style", "FONT-SIZE: 9px; FONT-FAMILY: sans-serif" EchoPara "align", "center" EchoPara "valign", "middle" If x>=0 Then EchoPara "bgColor", ItemBG(x) Else EchoPara "bgColor", "#ffffff" End if Echo ">" If x>=0 Then If ""=""&ItemLink(x) Then Echo x+1 Else Echo "<a" EchoPara "href",ItemLink(x) EchoPara "class",LinkStyleClass Echo ">" Echo x+1 Echo "</a>" End if Else Echo "<img width=""0"" height=""0"" />" End if Print "</td>" Next Print "</tr>"NextEnd sub
Private Sub Class_Initialize Lang="CHS" DateVal=Now InitDatePara PrevYLink="" NextYLink="" PrevMLink="" NextMLink="" LinkStyleClass="calendar" Table_class="caBox" Table_width="180" Table_bgColor="#c8ccc8" Table_Title_style="FONT-SIZE: 9px; COLOR: #ffffff; FONT-FAMILY: sans-serif" Table_Title_bgColor="#d56324" tdBgColor_Light="#ffffff" tdBgColor_Dark ="#f0f0f0" tdBgColor_Gray ="#efefef" ReDim pWeekdaysText(7) SetWeekdaysTextEnd SubPrivate Sub Class_TerminateEnd Sub
Public Sub Exec() PrintTableHead SetTable_Title_Text PrintTableTitle PrintWeekdaysTR PrintDayTDs PrintYMChooser PrintTableTailEnd sub
End class%> 调用方法：
<!-- #include file="calendar.asp" --> <style>TABLE.calendar { FONT-SIZE: 12px; COLOR: #949494; LINE-HEIGHT: 150%; FONT-FAMILY: "Verdana", "宋体"}
A.calendar:link { COLOR: #545454; TEXT-DECORATION: none}A.calendar:visited { COLOR: #545454; TEXT-DECORATION: none}A.calendar:hover { COLOR: #ffffff; BACKGROUND-COLOR: #66ccff; TEXT-DECORATION: underline}A.calendar:active { COLOR: #ffffff; BACKGROUND-COLOR: #66ccff; TEXT-DECORATION: underline}
A.cn { FONT-SIZE: 12px; FONT-FAMILY: Verdana,宋体}A.cn:link { COLOR: #545454; TEXT-DECORATION: none}A.cn:visited { COLOR: #545454; TEXT-DECORATION: none}A.cn:hover { COLOR: #ffffff; BACKGROUND-COLOR: #66ccff; TEXT-DECORATION: underline}A.cn:active { COLOR: #ffffff; BACKGROUND-COLOR: #66ccff; TEXT-DECORATION: underline}.caBox { FONT-SIZE: 9px; COLOR: #686868; LINE-HEIGHT: 150%; FONT-FAMILY: "Verdana", "宋体"}.caBox A:link { COLOR: #33caea; TEXT-DECORATION: none}.caBox A:visited { COLOR: #33caea; TEXT-DECORATION: none}.caBox A:hover { COLOR: #000000; TEXT-DECORATION: none}.caBox A:active { COLOR: #000000; TEXT-DECORATION: none}</style>
<% Dim objCalendar,x Set objCalendar=New Calendar With objCalendar .Date=DateVal For i=0 To DateIDN-1 x=DateIDA(0,i) x=DateID2DateD(x)-1 .ItemLink(x)="datrep-" & ShowDateVal_Samply(DateID2DateYMD(DateIDA(0,i))) &"-" & ImgType & ".shtml" Next .PrevYLink=PrevYLink .NextYLink=NextYLink .PrevMLink=PrevMLink .NextMLink=NextMLink End With objCalendar.Exec Set objCalendar=Nothing %> |
|
回复:ASP日历类
|
| 电脑与网络 lyn(游客)发表评论于2006/5/8 13:33:08 |
| |
回复:ASP日历类
|
| 电脑与网络 DFSD(游客127.0.0.1|61.152.132.230)发表评论于2005/7/23 20:38:44 |
| |
回复:ASP日历类
|
| 电脑与网络 CX(游客)发表评论于2005/6/8 11:30:40 |
| |
» 1 »
|
