<% 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("ID") = "" Then SeoTitle = "關(guān)于我們" ElseIf Not IsNumeric(request.QueryString("ID")) Then SeoTitle = "參數(shù)錯誤" ElseIf conn.Execute("select * from Qianbo_About Where ViewFlag and ID="&request.QueryString("ID")).EOF Then SeoTitle = "參數(shù)錯誤" Else Set rs = server.CreateObject("adodb.recordset") sql = "select * from Qianbo_About where ViewFlag and ID="&request.QueryString("ID") rs.Open sql, conn, 1, 1 SeoTitle = rs("AboutName") rs.Close Set rs = Nothing End If %> 断魂小丑3高清完整版在线观看 ,免费无码黄十八禁网站在线观看,老司机精品线观看视频 " /> " />
產(chǎn)品展示
<% Dim rs, sql Set rs = server.CreateObject("adodb.recordset") If request.QueryString("ID") = "" Or Not IsNumeric(request.QueryString("ID")) Then sql = "select top 1 * from Qianbo_About where ViewFlag and not ChildFlag order by Sequence asc" Else sql = "select * from Qianbo_About where ViewFlag and ID="&request.QueryString("ID") End If rs.Open sql, conn, 1, 3 If rs.EOF Then %> <% Else If ViewNoRight(rs("GroupID"), rs("Exclusive")) Then %> <% Else %> <% End If rs.update End If rs.Close Set rs = Nothing %>
<%=WebLocation()%>
暫無相關(guān)信息
<%=ProcessSitelink(rs("Content"))%>
 
<% Function WebMenu() Dim rs, sql Set rs = server.CreateObject("adodb.recordset") sql = "select ID,AboutName from Qianbo_About where ViewFlag and not ChildFlag order by Sequence asc" rs.Open sql, conn, 1, 1 If rs.EOF Then response.Write "
暫無相關(guān)信息
" Else Do If ISHTML = 1 Then AutoLink = ""&AboutNameDiy&""&Separated&""&rs("ID")&"."&HTMLName&"" Else AutoLink = "About.Asp?ID="&rs("ID")&"" End If response.Write ""&rs("AboutName")&""&vbCrLf rs.movenext Loop Until rs.EOF End If rs.Close Set rs = Nothing End Function Function WebLocation() WebLocation = " 當(dāng)前位置：首頁 - 關(guān)于我們 - "&vbCrLf Dim rs, sql Set rs = server.CreateObject("adodb.recordset") If request.QueryString("ID") = "" Or Not IsNumeric(request.QueryString("ID")) Then sql = "select top 1 * from Qianbo_About where ViewFlag and not ChildFlag order by Sequence asc" Else sql = "select * from Qianbo_About where ViewFlag and ID="&request.QueryString("ID") End If rs.Open sql, conn, 1, 1 If rs.EOF Then WebLocation = WebLocation&"參數(shù)錯誤" Else WebLocation = WebLocation&""&rs("AboutName") End If rs.Close Set rs = Nothing End Function %> 主站蜘蛛池模板： 福贡县| 扬州市| 屏东县| 西昌市| 钟祥市| 娄烦县| 石河子市| 菏泽市| 自贡市| 偏关县| 佛山市| 顺昌县| 威海市| 仙居县| 江源县| 承德县| 黔西县| 上思县| 长乐市| 西青区| 宜宾市| 通山县| 阜宁县| 鄄城县| 湘乡市| 体育| 习水县| 盘锦市| 临夏市| 樟树市| 合阳县| 都匀市| 保定市| 宁乡县| 西畴县| 得荣县| 平原县| 来宾市| 札达县| 乌鲁木齐县| 玉环县|