% Set BT = Server.CreateObject("MSWC.BrowserType") NowMonth=request.querystring("Month") if NowMonth = Empty then NowMonth = cint(Month(Date)) end if set Conn=server.createobject("ADODB.Connection") Conn.Open Session("dbConnection") Set RsNews = Server.CreateObject("ADODB.Recordset") SQL = "Select DateS From dbNewsContent Where IsShow='Y' Order By DateS" RsNews.Open SQL, conn, 1, 1 MonthS = cint(Month(RsNews("DateS"))) RsNews.Close %>
|
||||||||||||||||||||||||||