<% Call SiteInfo() If ISHTML = 1 Then Response.expires = 0 Response.expiresabsolute = Now() - 1 Response.addHeader "pragma", "no-cache" Response.addHeader "cache-control", "private" Response.CacheControl = "no-cache" End If If request.QueryString("SortID") = "" Then SeoTitle = "新聞公告" ElseIf Not IsNumeric(request.QueryString("SortID")) Then SeoTitle = "參數(shù)錯(cuò)誤" ElseIf conn.Execute("select * from RW_NewsSort Where ViewFlag and ID="&request.QueryString("SortID")).EOF Then SeoTitle = "參數(shù)錯(cuò)誤" Else Set rs = server.CreateObject("adodb.recordset") sql = "select * from RW_NewsSort where ViewFlag and ID="&request.QueryString("SortID") rs.Open sql, conn, 1, 1 SeoTitle = rs("SortName") rs.Close Set rs = Nothing End If %> 欧美日韩中文综合,午夜福利麻豆国产精品 " /> " />

日本一级国产黄色片,天天综合网天天综合色,www.com久久久,国产狂喷潮在线观看,国产无遮挡又爽又刺激的女人视频,推油少妇久久91久久91,欧美性爱一级a视频免费看,亚洲国产中文一区

中文版 | English

欄目導(dǎo)航

您的位置 > 首頁 >> <% =SeoTitle %>

<% =SeoTitle %>

<%=WebContent("RW_NewsSort",request.QueryString("SortID"),"")%>

版權(quán)所有：寧國(guó)市寧安消防科技有限公司地址：中國(guó)安徽省寧國(guó)市中溪鎮(zhèn)工業(yè)區(qū)
電話：0563-2672119; 傳真：0563-2670119 手機(jī)：18205632119 18368839968 郵編：242300

<% Function Folder(id) Dim rs, sql, i, ChildCount, FolderType, FolderName, onMouseUp, ListType,PageName Set rs = server.CreateObject("adodb.recordset") sql = "Select * From RW_NewsSort where ParentID="&request.QueryString("SortID")&" order by id" rs.Open sql, conn, 1, 1 If id = 0 And rs.recordcount = 0 Then response.Write("

"&SeoTitle&"

") Exit Function End If i = 1 While Not rs.EOF If PageName="" Then PageName=NewSortName ChildCount = conn.Execute("select count(*) from RW_NewsSort where ParentID="&rs("id"))(0) If ChildCount = 0 Then If i = rs.recordcount Then FolderType = "SortFileEnd" Else FolderType = "SortFile" End If FolderName = rs("SortName") onMouseUp = "" Else If i = rs.recordcount Then FolderType = "SortEndFolderClose" ListType = "SortEndListline" onMouseUp = "EndSortChange('a"&rs("id")&"','b"&rs("id")&"');" Else FolderType = "SortFolderClose" ListType = "SortListline" onMouseUp = "SortChange('a"&rs("id")&"','b"&rs("id")&"');" End If FolderName = rs("SortName") End If datafrom = "RW_NewsSort" If ISHTML = 1 Then AutoLink = ""&PageName&""&Separated&""&rs("ID")&""&Separated&"1."&HTMLName&"" Else AutoLink = "newsList.Asp?SortID="&rs("ID")&"" End If response.Write("

"&FolderName&"

") If ChildCount>0 Then %> " style="display:yes"> <% Folder(rs("id")) %> <% End If rs.movenext i = i + 1 Wend rs.Close Set rs = Nothing End Function Function WebMenu(ParentID, i, level) Dim rs, sql Set rs = server.CreateObject("adodb.recordset") sql = "select * from RW_NewsSort where ViewFlag and ParentID="&ParentID&" order by ID asc" rs.Open sql, conn, 1, 1 If conn.Execute("select ID from RW_NewsSort Where ViewFlag and ParentID=0").EOF Then response.Write "暫無相關(guān)信息" End If Do While Not rs.EOF If ISHTML = 1 Then AutoLink = ""&NewSortName&""&Separated&""&rs("ID")&""&Separated&"1."&HTMLName&"" Else AutoLink = "NewsList.Asp?SortID="&rs("ID")&"" End If response.Write ""&rs("SortName")&"" 'i=i+1 'if i"&rs("SortName")&"" End If rs.Close Set rs = Nothing End Function Function ChildSort() Dim ParentID ParentID = request.QueryString("SortID") If ParentID = "" Or (Not IsNumeric(ParentID)) Then Exit Function Dim rs, sql Set rs = server.CreateObject("adodb.recordset") sql = "select * from RW_NewsSort where ViewFlag and ParentID="&ParentID&" order by ID desc" rs.Open sql, conn, 1, 1 If rs.bof And rs.EOF Then Exit Function Else While Not rs.EOF If ISHTML = 1 Then AutoLink = ""&NewSortName&""&Separated&""&rs("ID")&""&Separated&"1."&HTMLName&"" Else AutoLink = "NewsList.Asp?SortID="&rs("ID")&"" End If response.Write ""&rs("SortName")&" | " rs.movenext Wend End If rs.Close Set rs = Nothing End Function Function WebContent(DataFrom, ID, SortPath) Dim rs, sql Dim HideSort Set rs = server.CreateObject("adodb.recordset") If ID = "" Then SortPath = "0," ElseIf Not IsNumeric(ID) Then response.Write "暫無相關(guān)信息" Exit Function ElseIf conn.Execute("select * from "&DataFrom&" Where ViewFlag and ID="&ID).EOF Then response.Write "暫無相關(guān)信息" Exit Function Else SortPath = conn.Execute("select * from "&DataFrom&" Where ViewFlag and ID="&ID)("SortPath") conn.Execute("update "&DataFrom&" set ClickNumber=ClickNumber+1 Where ID="&ID) End If sql = "select * from "&DataFrom&" Where not(ViewFlag) and Instr(SortPath,'"&SortPath&"')>0" rs.Open sql, conn, 1, 1 While Not rs.EOF HideSort = "and not(Instr(SortPath,'"&rs("SortPath")&"')>0) "&HideSort rs.movenext Wend rs.Close Dim idCount Dim pages pages = NewInfo Dim pagec Dim page page = CLng(request("Page")) Dim pagenc pagenc = 10 Dim pagenmax Dim pagenmin Dim pageprevious Dim pagenext datafrom = "RW_News" Dim datawhere datawhere = "where ViewFlag and Instr(SortPath,'"&SortPath&"')>0 "&HideSort& " " Dim sqlid Dim Myself, PATH_INFO, QUERY_STRING PATH_INFO = request.servervariables("PATH_INFO") QUERY_STRING = request.ServerVariables("QUERY_STRING")' If QUERY_STRING = "" Then Myself = PATH_INFO & "?" ElseIf InStr(PATH_INFO & "?" & QUERY_STRING, "Page=") = 0 Then Myself = PATH_INFO & "?" & QUERY_STRING & "&" Else Myself = Left(PATH_INFO & "?" & QUERY_STRING, InStr(PATH_INFO & "?" & QUERY_STRING, "Page=") -1) End If Dim taxis taxis = "order by id desc " Dim i sql = "select count(ID) as idCount from ["& datafrom &"]" & datawhere Set rs = server.CreateObject("adodb.recordset") rs.Open sql, conn, 0, 1 idCount = rs("idCount") If(idcount>0) Then If(idcount Mod pages = 0)Then pagec = Int(idcount / pages) Else pagec = Int(idcount / pages) + 1 End If sql = "select id from ["& datafrom &"] " & datawhere & taxis Set rs = server.CreateObject("adodb.recordset") rs.Open sql, conn, 1, 1 rs.pagesize = pages If page < 1 Then page = 1 If page > pagec Then page = pagec If pagec > 0 Then rs.absolutepage = page For i = 1 To rs.pagesize If rs.EOF Then Exit For If(i = 1)Then sqlid = rs("id") Else sqlid = sqlid &","&rs("id") End If rs.movenext Next End If If(idcount>0 And sqlid<>"") Then sql = "select * from ["& datafrom &"] where id in("& sqlid &") "&taxis Set rs = server.CreateObject("adodb.recordset") rs.Open sql, conn, 0, 1 While Not rs.EOF If ISHTML = 1 Then AutoLink = ""&NewName&""&Separated&""&rs("ID")&"."&HTMLName&"" Else AutoLink = "NewsView.Asp?ID="&rs("ID")&"" End If Response.Write "

· "&StrLeft(rs("NewsName"), 87)&""&FormatDate(rs("Addtime"), 13)&"

"&vbCrLf rs.movenext Wend Else response.Write "暫無相關(guān)信息" Exit Function End If Response.Write "

"&vbCrLf Response.Write ""&vbCrLf Response.Write " "&vbCrLf Response.Write " "&vbCrLf Response.Write " "&vbCrLf Response.Write "

"&vbCrLf Response.Write "共"&idcount&"條記錄頁次："&page&"/"&pagec&" 每頁："&pages&"條記錄" & vbCrLf pagenmin = page - pagenc pagenmax = page+pagenc If(pagenmin<1) Then pagenmin = 1 If ISHTML = 1 Then If ID = "" Then 'If(page>1) Then response.Write ("9 ") If(page>1) Then response.Write ("9 ") Else If(page>1) Then response.Write ("9 ") End If Else If(page>1) Then response.Write ("9 ") End If If page - (pagenc * 2 + 1)<= 0 Then pageprevious = 1 Else pageprevious = page - (pagenc * 2 + 1) End If If ISHTML = 1 Then If ID = "" Then If(pagenmin>1) Then response.Write ("3 ") Else If(pagenmin>1) Then response.Write ("3 ") End If Else If(pagenmin>1) Then response.Write ("3 ") End If If(pagenmax>pagec) Then pagenmax = pagec For i = pagenmin To pagenmax If(i = page) Then response.Write (" "& i &" ") Else If ISHTML = 1 Then If ID = "" Then If(i=1) Then response.Write ("["& i &"]") Else response.Write ("["& i &"]") End If Else response.Write ("["& i &"]") End If Else response.Write ("["& i &"]") End If End If Next If page+(pagenc * 2 + 1)>= pagec Then pagenext = pagec Else pagenext = page+(pagenc * 2 + 1) End If If ISHTML = 1 Then If ID = "" Then If(pagenmax: ") If(page:") Else If(pagenmax: ") If(page:") End If Else If(pagenmax: ") If(page:") End If Response.Write "

"&vbCrLf rs.Close Set rs = Nothing End Function %>