<%ID=request.QueryString("Cid") Page=Request.QueryString("page") if ID="" or not isnumeric(ID) then alertMsgAndGo "参数错误","-1" if page="" then page=1 elseif not IsNumeric(page) then Response.Write "" response.end end if page=int(page) set rs=server.createobject("adodb.recordset") exec="select * from content where Cid="&ID rs.open exec,conn,1,1 if rs.eof and rs.bof then alertMsgAndGo "参数错误","-1" end if Cid=rs("Cid") SortID=rs("SortID") topSortID=rs("topSortID") SortType=rs("SortType") Title=rs("Title") Author=rs("Author") laiyuan=rs("laiyuan") Content=rs("Content") isok=rs("isok") IsTop=rs("IsTop") tuijian=rs("tuijian") tuwen=rs("tuwen") IsHeadline=rs("IsHeadline") IsFeatured=rs("IsFeatured") IsGenerated=rs("IsGenerated") ImagePath=rs("ImagePath") img=rs("img") yrmb=rs("yrmb") xrmb=rs("xrmb") DownURL=rs("DownURL") PageTitle=rs("PageTitle") Keywords=rskeyword(rs("PageKeywords"),zychkeywords) Desc=rskeyword(rs("PageDesc"),zychkeywords) IsNoComment=rs("IsNoComment") Star=rs("Star") px_id=rs("px_id") Visits=rs("Visits") AddTime=rs("AddTime") rs.close set rs=nothing set rs=server.createobject("adodb.recordset") exec="select * from zych_Type where SortID="&SortID rs.open exec,conn,1,1 if rs.eof and rs.bof then alertMsgAndGo "参数错误","-1" end if SortPath_dh=rs("SortPath") TopSortID=rs("TopSortID") TopSort="type"&TopSortID sTemp=rs("sTemp") rs.close set rs=nothing If addtime>now() Then HtmlContent=ob_get_contents("../Include/Off.htm") HtmlContent = Replace(HtmlContent,"{zych:tishi}","此文章需要在"&addtime&"后才会发布！") echo TqcmsReadtemp(HtmlContent) else%> <%=title%>_<%=zychclass_name(SortID,SortType)%>_<%=zych_home%>
  • 客服热线：<%=zych_Phone%>
  • <%=zych_tel%>

<%=title%>

<%con=Pagecontent(topSortID,SortID,Cid)%> <%=replace(con,CHR(10),"
")%>
《<%=zychclass_name(SortID,SortType)%>》 - <%=title%>
目录
<% '上一页 set rsp=server.CreateObject("adodb.recordset") rsp.open "select top 1 cid, title from content where SortID="&SortID&" and cid<"&cid&" order by cid desc",conn,1,1 if not rsp.eof then prevpage=rsp("cid") else prevpage=cid end if rsp.close set rsp=nothing '下一页 set rstmp=server.CreateObject("adodb.recordset") rstmp.open "select top 1 cid, title from content where SortID="&SortID&" and cid>"&cid&" order by cid asc",conn,1,1 if not rstmp.eof then nextpage=rstmp("cid") else nextpage=cid end if rstmp.close set rstmp=nothing %>
Contact US

联系我们

ADD

中国·河南

<%=zych_Phone%> <%=zych_tel%>

地址：<%=zych_dz%>

<%Set rst= Server.CreateObject("ADODB.Recordset") menu="select top 9 * from [zych_Type] where isok=1 and menu=1 and ParentID=0 order by px_id asc"'选择分类 rst.Open menu,Conn,1,1 if rst.bof and rst.eof then echo"栏目建设中" else rst.movefirst Domain_Name =Request.ServerVariables("Script_Name") if Domain_Name="/index.htm" then no=" class='current'" else no="" echo"首页"&vbcrlf do while not rst.eof echo""&rst("SortName")&""&vbcrlf rst.MoveNext Loop end if rst.close set rst=nothing %>
友情链接：<%= zych_link_text %>
<备案号：<%=zych_beian%>

<%=zych_copyright%>

<%end if%>