%Option Explicit%> <% '****************************************************************************************************** '** Function of the file(Introduction): '**** Main: Guestbook '**** Assistant: '** '****************************************************************************************************** '********** Variants Difinition ********** '*** start here Dim sSQL Dim iItems Dim nitems Dim aItems Dim xItems Dim sCurFile Dim ReplyState '*********** Request Parameters ************* '*** start here sCurFile = Request.ServerVariables("PATH_INFO") Dim DayNow Dim YearNow Dim MonthNow Dim DateNow Dim TimeToday DayNow = Date yearNow = Year(DayNow) MonthNow = Month(DayNow) DateNow = Day(DayNow) TimeToday = yearNow & "/" & MonthNow& "/" & DateNow Dim PopUp ReDim xItems(-1) sSQL = "Select ID, Title, ImageFileName, Content From News Where State=0 Order By ID DESC" oRS.Open sSQL, oCN, 1, 1 If not oRS.Eof Then ReDim xItems(oRS.RecordCount-1, 3) for nitems=0 To UBound(xItems) xItems(nitems, 0) = oRS("ID") xItems(nitems, 1) = Trim( oRS("Title") ) xItems(nitems, 2) = Trim( oRS("Content") ) xItems(nitems, 3) = Trim( oRS("ImageFileName") ) If xItems(nitems, 3)<>"" or Len(xItems(nitems, 3))>0 Then xItems(nitems, 3) ="news/" & xItems(nitems, 3) & "" oRS.MoveNext Next End If oRS.Close ReDim aItems(-1) sSQL = "Select ID, Title, Content, ImageFileName From PUW_update Where State=0 and TimeNow<=#" & TimeToday & "# and EndTime>=#" & TimeToday & "# Order By ID DESC" oRS.Open sSQL, oCN, 1, 1 If oRS.Eof Then ReplyState=1 Else ReplyState=0 End If oRS.Close 'Response.write(ReplyState) %>
¡u¤¤°ê»P¸²»y°ê®a¥ø·~¸g¶T¦X§@¬¢½Í·|¡v- 2006 - ¨½´µ¥» ¨C¦~©ó¦U»P·|¦¨û°ê½ü¬yÁ|¦æ¤§¡u¤¤°ê»P¸²»y°ê®a¥ø·~¸g¶T¦X§@¬¢½Í·|¡v¬O§@¬°¦U»P·|°ê³¡ªø©Òñqªº¡§¸g¶T¦X§@¦æ°Êºõ»â¡¨¥H¤Î¥Ñ¦U°êªº¶T«P¾÷ºc¡þ°Ó·|©Òñqªº¡§¶T©ö«P¶i¾÷ºc / °Ó·|¦X§@¨óij®Ñ¡¨ªº«áÄò¬¡°Ê¡C ¥Øªº µo°_³æ¦ì ¥D¿ì³æ¦ì ¤ä«ù³æ¦ì ¤é´Á ¦aÂI °Ñ¥[ªÌ ¤éµ{ °Ñ·|¥ø·~¦W³æ ¬ÛÃö¤§·s»D³ø¾É¤Î¬Û¤ù |
||||||||||||||||