<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <%'templatev20此行代码供安装插件用勿删改%> <%'include此行代码供安装插件用勿删改%> <% if ishtml=2 then funpath = "../" else funpath = "./" end if Const dbpath = "./" Set ctr_page = New tr_page Set ctr_user = New tr_user id = tr_killstr(request.querystring("id"), 1, 8, 1, "", "", "", "", 2) pageno = tr_killstr(request.querystring("pageno"), 1, 8, 1, "", "", "", "", 1) dohtml = tr_killstr(request.querystring("dohtml"), 1, 8, 3, "", "", "", "", 1) if dohtml<>1 then call jumphtml(id,pageno) sql = "select * from tr_article where ispass=1 and isdel=0 and id="&id&" " rs.Open sql, conn, 0, 1 If rs.EOF Or rs.bof Then response.write ""&vbcrlf&""&vbcrlf&""&vbcrlf&"" response.End() ' Call contrl_message ("文章不存在。", "", "", "", "") Else ispass = Rs("ispass") isdel = Rs("isdel") If ispass = 1 And isdel = 0 Then id = Rs("id") title = Rs("title") content = Rs("content") keywords = Rs("keywords") ' keywords2 = Rs("keywords2") descriptions = Rs("descriptions") addtime = Rs("addtime") pgcount = Rs("pgcount") clicks = Rs("clicks") author = Rs("author") sources = Rs("sources") inputer = Rs("inputer") limittype = Rs("limittype") If Not IsNumeric(limittype) Then limittype = 0 limitpoints = Rs("limitpoints") If Not IsNumeric(limitpoints) Then limitpoints = 0 limitmore = Rs("limitmore") columnid = Rs("columnid") iscontribute = Rs("iscontribute") contributor = Rs("contributor") isabout = Rs("isabout") queueid = Rs("queueid") jumpurl = Rs("jumpurl") End If End If rs.Close if jumpurl<>"" then jumpurl = outputurl("", rs("id"), jumpurl, ishtml) response.write ""&vbcrlf&""&vbcrlf&""&vbcrlf&"" response.end end if rightinccolid=columnid owncolname=getfieldvalue("tr_column", "colname", "and id="&columnid&"", 1, "") %> <%'head此行代码供安装插件用勿删改%> <%=title%><%if cint(pageno)>1 then%>[<%=pageno%>]<%end if%>_<%=owncolname%>_<%=application(siternd & "55trsitetitle")%> <%'headend此行代码供安装插件用勿删改%>

当前位置：网站首页 > <%call tr_crumbs(columnid,20)%> > 文章当前位置： "><%=left(owncolname,10)%> > 文章

<%'body1此行代码供安装插件用勿删改%>

<%=title%>

点击：次来源：<%=sources%> 如需要：请至天猫雅特茂旗舰店选购 https://yatemao.tmall.com - 小 + 大

<%'body2此行代码供安装插件用勿删改%>

<%If limittype<1 And limitpoints<1 Then response.Write tr_arcontent(content, 700, 0, "", pageno) limitshow = false Else limitshow = true End If %> <%'body7此行代码供安装插件用勿删改%>

<%'body8此行代码供安装插件用勿删改%> <%if limitshow then%> <%end if%> <%'body9此行代码供安装插件用勿删改%>

<%'body3此行代码供安装插件用勿删改%>

<%'body10此行代码供安装插件用勿删改%> <%if isabout<>1 then%> <%call tr_nearnews()%> <%end if%>

<%'body11此行代码供安装插件用勿删改%>

<%'body4此行代码供安装插件用勿删改%>

<%'body5此行代码供安装插件用勿删改%> <%'body6此行代码供安装插件用勿删改%>

<%'body12此行代码供安装插件用勿删改%>

<%call CloseConn()%>