js_news_read.asp

Art2008 CMS是一款具有强大的功能的基于ASP语言的网站管理软件

<!--#include file = admin_conn.asp -->
<!--#include file = admin/titleb.asp -->
<!--#include file = Include/Art_user.asp -->
<%
Dim AdminRead :AdminRead = ChkNumeric(Request.Cookies(Art2008)("purview"))
If CInt(AdminRead) <> 99999 Then
Dim UserHS
Set UserHS = New Art_User
dim UserLoginTF,read_path,news_Pay,news_id,read_Rs,lm_Rs,lm_id,if_read,read_URL,read_word
UserLoginTF=Cbool(UserHS.UserLoginChecked)
read_path=config("path")  '取出系统程序的工作目录.
news_id=chkhtm(trim(Request("news_id")))
news_Pay=request("news_Pay")
lm_id=chkhtm(trim(Request("lm_id")))
Set read_Rs=artexe("Select * From news where id=" &news_id)
Set lm_Rs=artexe("Select * From lm where ID=" & lm_id)
Dim InfoPurview:InfoPurview=read_Rs("InfoPurview")       
		  If InfoPurview=2 or read_Rs("ReadPoint")>0 Then
			   IF UserLoginTF=false Then
				 Call GetNoLoginInfo
			   Else
					  IF  FoundInArr(read_Rs("ArrGroupID"),Trim(UserHS.GroupID),",")=False and read_Rs("ReadPoint")=0 Then
					         if_read="not"
							 read_word="对不起，你所在的用户组没有查看的权限！"
		                     read_URL=read_path&"user/login.asp"
					 Else
						  Call PayPointProcess()
					 End If
			   End If
		 ElseIF InfoPurview=0 And Trim(lm_Rs("GroupIDClass"))<>"" Then 
			  If UserLoginTF=false Then
			    Call GetNoLoginInfo
			  Else         
					 IF FoundInArr(lm_Rs("GroupIDClass"),Trim(UserHS.GroupID),",")=false Then
					         if_read="not"
							 read_word="对不起，你所在的用户组没有查看的权限！"
		                     read_URL=read_path&"user/login.asp"
					 Else
						Call PayPointProcess()
					 End If
			  End If
		 ElseIF InfoPurview=1 Then 
			  If UserLoginTF=false Then
			    Call GetNoLoginInfo
			  End If
		 Else
		   Call PayPointProcess()
		 End If   


	   Sub PayPointProcess()
					   If (Cint(read_Rs("ReadPoint"))>0 or InfoPurview=2 or (InfoPurview=0 And Trim(lm_Rs("GroupIDClass"))<>"")) and UserHS.UserName<>read_Rs("adduser") Then
							 Call CheckPayTF()
					   End IF
	   End Sub
	   
	   Sub CheckPayTF()
	       Dim SqlStr:SqlStr="Select top 1 Times From Art_LogPoint Where ChannelID=1 And InfoID=" & news_id & " And InOrOutFlag=2 and UserName='" & UserHS.UserName & "'  Order By ID"
		   Dim CheckRS:Set CheckRS=Server.CreateObject("ADODB.RECORDSET")
		   CheckRS.Open SqlStr,conn,1,3
		   IF CheckRS.Eof And  CheckRS.Bof Then
					Call PayConfirm()	
		   Else
		        CheckRS.Movelast
			    CheckRS(0)= CheckRS(0)+1
			    CheckRS.Update
		   End IF
		  CheckRS.Close:Set CheckRS=Nothing
	   End Sub

	  Sub PayConfirm()
	     If UserLoginTF=false Then Call GetNoLoginInfo():Exit Sub
				If Cint(UserHS.Score)<read_Rs("ReadPoint") Then
					   if_read="not"
					    read_word="　　对不起，您的帐号可用余额不足！\n\n阅读本文需要 "&read_Rs("ReadPoint")&" 点数,您还有 "&UserHS.Score& " 点数！\n\n　　　　　请及时充值！"
		                read_URL=read_path
			   Else
							    If news_Pay="yes" Then
								   Call PointInOrOut(1,news_id,UserHS.UserName,2,read_Rs("ReadPoint"),"系统","阅读收费文章：<br>" &read_Rs("Title")&"")
							    Else 
					              If  Cint(read_Rs("ReadPoint"))>0   Then
								   if_read="not"
							       read_word="阅读本文需要消耗 " & read_Rs("ReadPoint") & " 点数,您目前尚有 " & UserHS.Score & " 点数可用,阅读本文后，您将剩下 " & UserHS.Score- read_Rs("ReadPoint") & " 点数。\n\n　　　　　　　　　您确实愿意花 " & read_Rs("ReadPoint") &" 点数来阅读此文吗？"
		                           read_URL=read_path&"news_view.asp?newsid="&news_id&"&news_Pay=yes"
							       End If 
							    End If 
			 End If
	   End Sub

	   Sub GetNoLoginInfo()
				 if_read="not"
				 read_word="对不起，您还没有登录，本文至少要求本站的注册会员才可查看！\n\n如果你还没有注册，请注册吧！\n\n如果您已是本站注册会员，赶紧登录吧！"
		         read_URL=read_path&"user/login.asp"
	   End Sub
	   
Set UserHS=Nothing 
end if
%>
ttt="<%=if_read%>";
if (ttt=="not") 
  {
    if( window.confirm('<%=read_word%>')==true)
    
    document.location=("<%=read_URL%>")
   
   else 
     
     document.location=("<%=read_path%>")
   
  }