show.asp

网人分类信息5.0商业版。非常优秀的分类信息系统。比较少见。

<!--#include file="../inc/Conn.asp"-->
<!--#include file="../Inc/Cls.Common.asp"-->
<!--#include file="../Inc/Cls.Templates.asp"-->
<!--#include file="../Inc/Cls.Content.asp"-->
<!--#include file="Channel_Config.asp"-->
<%
   Dim ID,Charge,repeatCharge,ChargeUser,IsCharge,CountOut,IsPrice
   Dim EndTime,User,ClassDir,i,ClassUrl,Title
   
   ID=WRMPS.CheckStr(Request.QueryString("ID"),1)
   If ID = "" Then Call WRMPS.ErrView("·操作错误<meta http-equiv=refresh content='1;URL=../'>",0)
   Call DBConnBegin()
   '阅读收费
   If WRMPS.CheckStr(Request("Pay"),0) = "Enter" Then
     IsCharge = 0
	 Set Rs = Server.CreateObject("ADODB.Recordset")
	 Rs.Open"Select WM_Charge,WM_RepeatCharge,WM_ChargeUser,WM_Title,WM_Post From WM_ClassAD Where WM_Key=1 and WM_id="&ID ,conn,1,1
	 If Not Rs.Eof Then
	   User = Rs(4)
	   Charge = Rs(0)
	   IsPrice = 0
	   If IsNUll(User) Then
	     IsPrice = 1
	   Else
	     If User <> MemName Then IsPrice = 1
	   End If
	   If IsPrice = 1 and Charge > 0 Then
	    RepeatCharge = Rs(1)
	    ChargeUser = Rs(2)
	    Title = Rs(3)
	     If WRUser.ChkLogin Then
	       If Instr(","&ChargeUser&",",","&MemName&",") = 0 Then
			 IsCharge = 1
		   Else
		     If RepeatCharge > 0 and IsEmpty(WRMPS.GetCookies("ReadPay_C_"&ID)) Then
	           IsCharge = 1
			 End If
		   End If
		 Else
		   Call WRMPS.AjaxLogin("",0,"此信息为收费内容，须会员才可阅读，请先登录或注册！")
		 End If
	  End If
	  Rs.Close
      If IsCharge = 1 Then
	     Call WRDB.SaveConsume(0,MemName,0,Int("-"&Charge),0,0,"阅读收费信息“"&Title&"”")
         If Instr(","&ChargeUser&",",","&MemName&",") = 0 Then Conn.Execute ("Update WM_ClassAD Set WM_ChargeUser = '"&ChargeUser &","&MemName&"' Where WM_Key=1 and WM_id="&ID)
		 WRMPS.SCookies "ReadPay_C_"&ID,"True",0
		 Set Rs = Conn.Execute("Select WM_PostTime,WM_ClassDir From WM_ClassAD Where WM_ID="&ID)
		 If Not Rs.Eof Then
	       Call WRMPS.ErrView("·支付成功，1秒钟后自动跳转到内容而面<br>·<a href="&WRMPS.GetShowUrl(1,1,0,ID,Rs(0),ChannelDir&Rs(1),ChannelID)&">您也可以点击这里直达内容而面</a><meta http-equiv=refresh content='1;URL="&WRMPS.GetShowUrl(1,1,0,ID,Rs(0),ChannelDir&Rs(1),ChannelID)&"'>",0)
		 End If
		 Rs.Close
		 Set Rs = Nothing
       End If
	 End If
   End If   
   '收费及静态判断
   Set Rs=server.createobject("adodb.recordset")
     Rs.Open"select WM_Post,WM_Charge,WM_RepeatCharge,WM_ChargeUser,WM_AreaID,WM_PostTime,WM_ClassDir from WM_ClassAD where WM_id="&ID,Conn,1,1
	 If Rs.eof Then Call WRMPS.ErrView("·内容不存在",0)
	   User = Rs(0)
	   Charge = Rs(1)
	   IsCharge = 0 ' 不收费
	   If IsNUll(User) Then
	     If Int(FlagClass(9)) > 0 And Charge > 0 Then IsCharge = 1
	   Else
	     If User <> MemName and Int(FlagClass(9)) > 0 And Charge > 0 Then IsCharge = 1
	   End If
	   If IsCharge = 1 Then
	    RepeatCharge = Rs(2)
	    ChargeUser = Rs(3)
	     If WRUser.ChkLogin Then
	       If Instr(","&ChargeUser&",",","&MemName&",") = 0 Then
	         Call WRMPS.ErrView("<strong>收费提醒</strong><br>·此为收费内容，阅读费用为："&Charge&" "&WR_Other(0)&"！<br><br>·<a href="&WR_Setting(3)&ChannelDir&"/Show.asp?Pay=Enter&ID="&ID&">确认交费阅读？</a><br>·<a href="&WR_Setting(3)&">返回首页？</a>",0)
		   Else
		     If RepeatCharge > 0 and IsEmpty(WRMPS.GetCookies("ReadPay_C_"&ID)) Then
	           Call WRMPS.ErrView("<strong>收费提醒</strong><br>·此为收费内容，阅读费用为："&Charge&" "&WR_Other(0)&"！<br><br>·<a href="&WR_Setting(3)&ChannelDir&"/Show.asp?Pay=Enter&ID="&ID&">确认交费阅读？</a><br>·<a href="&WR_Setting(3)&">返回首页？</a>",0)
			 End If
		   End If
		 Else
		   Call WRMPS.AjaxLogin("",0,"此信息为收费内容，须会员才可阅读，请先登录或注册！")
		 End If
         WRMPS.DelCookies "ReadPay_C_"&ID
	 End If
     '如果启用静态页
	 ClassDir = Rs(6)
     If CreateHTML > 1 Then Response.Redirect WRMPS.GetShowUrl(1,1,0,ID,Rs(5),ChannelDir&"/"&ClassDir,ChannelID)
   Rs.Close
   Set Rs = Nothing
   
   Set ClsPage = New Cls_Page
   TempStr = ClsPage.PageClassShow(ID)
   Set ClsPage = Nothing
   Call ClassEnd()
   Call DBConnEnd()
   Response.Write TempStr

%>