<%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") Isoutlink=rs("Isoutlink") outlink=rs("outlink") 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 if isoutlink =1 and outlink<>"" then Response.Redirect outlink end if '跳转转向链接 if file_exists(zych_templatedir&sTemp)=True then HtmlContent=ob_get_contents(zych_templatedir&sTemp) if file_exists(zych_templatedir&sTemp)=False then HtmlContent=ob_get_contents(zych_templatedir&"d_show.htm") echo TqcmsReadtemp(HtmlContent) end if %>