<% 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=""&Languagech15&"" elseif not IsNumeric(request.QueryString("ID")) then SeoTitle=""&Languagech16&"" elseif conn.execute("select * from Qianbo_About Where ViewFlagCh and ID="&request.QueryString("ID")).eof then SeoTitle=""&Languagech16&"" else set rs = server.createobject("adodb.recordset") sql="select * from Qianbo_About where ViewFlagCh and ID="&request.QueryString("ID") rs.open sql,conn,1,1 SeoTitle=rs("AboutNameCh") rs.close set rs=nothing end if %> 我欲封天 耳根 小说零,小说排行榜完结版,女强穿越玄幻完结小说 " /> " />
 
<% 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 ViewFlagCh and not ChildFlag order by Sequence asc" else sql="select * from Qianbo_About where ViewFlagCh 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()%>
 
<%= Languagech7 %>
<%=rs("AboutNameCh")%>
 
<%= Languagech54 %>：<%=FormatDate(rs("UpdateTime"),13)%> <%= Languagech18 %>：
 
<%=rs("ContentCh")%>
 
<% function WebMenu() dim rs,sql set rs = server.createobject("adodb.recordset") sql="select ID,AboutNameCh,classseo from Qianbo_About where ViewFlagCh and not ChildFlag order by Sequence asc" rs.open sql,conn,1,1 if rs.eof then response.write "
"& Languagech7 &"
" else Do If ISHTML = 1 Then AutoLink = ""&rs("classseo")&""&Separated&""&rs("ID")&"."&HTMLName&"" Else AutoLink = "About.asp?ID="&rs("ID")&"" End If response.write ""&rs("AboutNameCh")&""&VbCrLf rs.movenext loop until rs.eof end if rs.close set rs=nothing end function function WebLocation() WebLocation=" "&Languagech19&"："&Languagech20&" - "&Languagech15&" - "&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 ViewFlagCh and not ChildFlag order by Sequence asc" else sql="select * from Qianbo_About where ViewFlagCh and ID="&request.QueryString("ID") end if rs.open sql,conn,1,1 if rs.eof then WebLocation=WebLocation&""&Languagech16&"" else WebLocation=WebLocation&""&rs("AboutNameCh") end if rs.close set rs=nothing end Function %>