<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="../core/Conn.asp"-->
<!--#include file="../core/fun/fun.asp"-->
<!--#include file="../core/fun/core.asp"-->
<!--#include file="../core/class/tr_page.asp"-->
<!--#include file="../crinc/ulevstr.asp"-->
<!--#include file="../core/class/tr_user.asp"-->
<%'fj4if58nrffckjfcj_功能卸载用勿删%>
<!--#include file="trubuyarticle810803f8ir85.asp"-->
<!--#include file="trubuyarticleparameter810803.asp"-->
<%'fj4if58nrffckjfcj_功能卸载用勿删%> 
<!--#include file="../core/md5.asp"-->
<!--#include file="charsetasp.asp"-->
<%
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)
funpath = request.querystring("funpath")
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
  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") 
%><%'fjo984wznrbfkjcj_功能卸载用勿删%><%
isopenpreview170905=Rs("isopenpreview170905")
content170905=Rs("content170905")
tqzwzs170905=Rs("tqzwzs170905")
isdelimg170905=Rs("isdelimg170905")
%><%'fjo984wznrbfkjcj_功能卸载用勿删%><%  
%><%'fj4if58nrffckjfcj_功能卸载用勿删%><%
		trbuyuserusernamegroup810803 = Rs("trbuyuserusernamegroup810803") '810803
    minuspoints = Rs("minuspoints") '810803
	if not isnumeric(minuspoints) then minuspoints=0'810803
	%><%'fj4if58nrffckjfcj_功能卸载用勿删%><% 
  End If
End If
rs.Close
uname = ctr_user.truserislog(2)

sql="select * from tr_column where id="&columnid&" "
rs.open sql,conn,0,1
if not rs.eof then
articleglobaljf=rs("articleglobaljf")
'owncolname=rs("owncolname")

end if
rs.close
if not isnumeric(articleglobaljf) then articleglobaljf=0
if minuspoints=0 and articleglobaljf>0 then minuspoints=articleglobaljf

%>
var tmpstr="" 
<%'slkf84u58hyzxzfczjfcj_功能卸载用勿删%>tmpstr=tmpstr+("<div class=\"trsnotice170824\">");<%'slkf84u58hyzxzfczjfcj_功能卸载用勿删%> 
<%
If uname = "" Then'当用户名为空开始
%>
tmpstr=tmpstr+("<div class=\"trsnotice\">");
tmpstr=tmpstr+("此文章需要：");
<%if limittype>0 and 1=2 then%>
<%
'inidstr=instr(idstr,","&limittype&",")
If InStr(idstr, ","&limittype&",")>0 Then
  spidstr = Split(idstr, ",")
  For idi = 0 To UBound(spidstr)
    If spidstr(idi)<>"" Then
      If clng(limittype) = clng(spidstr(idi)) Then
        arri = idi
        Exit For
      End If
    End If
  Next
Else
  response.End()
End If
%>
tmpstr=tmpstr+("【 <%=Split(levnamestr, ",")(arri -1)%> 】等级<%if limitpoints>0 then%>，并且<%end if%>");<%end if%>
tmpstr=tmpstr+("<%if limitpoints>0 and 1=2 then%>【 积分大于 <%=limitpoints%> 】<%end if%> <%'fj4if58nrffckjfcj_功能卸载用勿删%><%if minuspoints>0 then%><a href=\"<%=funpath%>user/urecharge.asp\" target=\"_blank\" class=\"trbnhybtn\"><i class=\"iconfont icon-account\"></i>包年会员(<%=split(userjfstr,",")(1)%>积分)</a> 与 <a href=\"<%=funpath%>user/urecharge.asp\" target=\"_blank\" class=\"trzshybtn\"><i class=\"iconfont icon-creditlevel\"></i>终身会员(<%=split(userjfstr,",")(2)%>积分)</a> 免费浏览。<br> 或单独扣除【  <%=minuspoints%> 积分 】付费<%end if%><%'fj4if58nrffckjfcj_功能卸载用勿删%>浏览。<br>您尚未登录，<a href=\"<%=funpath%>user/login.asp?loginfurl=show.asp?id=<%=id%>\" target=\"_blank\">请先点击此处进行登录。</a>");
tmpstr=tmpstr+("</div>")
<%
Else
  gonext = true
  If limittype>0 and 1=2 Then
    If InStr(idstr, ","&limittype&",")>0 Then
      spidstr = Split(idstr, ",")
      For idi = 0 To UBound(spidstr)
        If spidstr(idi)<>"" Then
          If clng(limittype) = clng(spidstr(idi)) Then
            arri = idi
            Exit For
          End If
        End If
      Next
    Else
      response.End()
    End If
    spuserjfstr = Split(userjfstr, ",")
    splevnamestr = Split(levnamestr, ",")
    needjf = clng(spuserjfstr(arri -1))
    points = clng(ctr_user.points)
    If points<needjf Then
%>
tmpstr=tmpstr+("<div class=\"trsnotice\">");
tmpstr=tmpstr+("此文章需要会员等级为：<%=splevnamestr(arri-1)%>，您的等级为【");
<%
For i = 0 To UBound(spuserjfstr)
  If points>= clng(spuserjfstr(i)) And points<clng(spuserjfstr(i + 1)) Then
    response.Write "tmpstr=tmpstr+("""&splevnamestr(i)&""");"
    Exit For
  ElseIf points>= clng(spuserjfstr(UBound(spuserjfstr))) Then
    response.Write "tmpstr=tmpstr+("""&splevnamestr(UBound(spuserjfstr))&""");"
    Exit For
  End If
Next
%>
tmpstr=tmpstr+("】");
<%
gonext = false
End If
End If
If limitpoints>1 and 1=2 Then
  points = clng(ctr_user.points)
  If points<limitpoints Then
    If gonext = false Then
%>
tmpstr=tmpstr+("，同时");<%else%>
tmpstr=tmpstr+("<div class=\"trsnotice\">");
tmpstr=tmpstr+("此文章");<%end if%>
tmpstr=tmpstr+("需要积分为：<%=limitpoints%>，您的积分为：【<%=points%>】");
tmpstr=tmpstr+("</div>")
<%
gonext = false
End If
End If
 
%><%'fj4if58nrffckjfcj_功能卸载用勿删%><%
%><!--#include file="trubuyarticlecheck810803.asp"--><%
%><%'fj4if58nrffckjfcj_功能卸载用勿删%><%
%><%'slkf84u58hyzxzfczjfcj_功能卸载用勿删%><%
if gonext=false then%>
tmpstr=tmpstr+("<a href=\"<%=funpath%>user/urecharge.asp\" target=\"_blank\" style=\"background:#09F;color:#fff;padding:5px;text-decoration:none;display:block;width:100%;min-width:200px; text-align:center;margin:10px auto;\" >+ 点此充值积分。</a>");
<%
end if
%><%'slkf84u58hyzxzfczjfcj_功能卸载用勿删%><% 
If gonext Then  
 
%><%'fj4if58nrffckjfcj_功能卸载用勿删%><%
If isuserbuyed810803 Then '810803newnew
%><%'fj4if58nrffckjfcj_功能卸载用勿删%><% 
  response.Write "var tmpstr='';"&vbCrLf
  response.Write tojs2(tr_arcontent(content, 700, 1, "tdload", pageno), "tmpstr")
   
%><%'fj4if58nrffckjfcj_功能卸载用勿删%><%
End If'810803newnew
%><%'fj4if58nrffckjfcj_功能卸载用勿删%><% 
End If
End If'当用户名为空结束
%>
<%'fjo984wznrbfkjcj_功能卸载用勿删%><!--#include file="newsshowwzbfnrkj170905.asp" --><%'fjo984wznrbfkjcj_功能卸载用勿删%> 
function changeText(tmp){ 
top.document.getElementById('trcontenttd').innerHTML = tmp;
//top.document.getElementById('showcomment').className  = "trcomment trbor2";
}
changeText(tmpstr);
 
<%'fj4if58nrffckjfcj_功能卸载用勿删%>
<!--#include file="trbuyarticlebottomjs810803.asp"-->
<%'fj4if58nrffckjfcj_功能卸载用勿删%> 