<% 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("返回"&ChannelName&"首頁","index.asp","
  • 操作錯誤",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 Else Call WRMPS.ErrView("返回"&ChannelName&"首頁","index.asp","
  • 操作錯誤",0) 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("返回內容而面",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(Mem(0)(12)) > 0 And Charge > 0 Then IsCharge = 1 Else If User <> MemName and Int(Mem(0)(12)) > 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("","","收費提醒
  • 此為收費內容,閱讀費用為:"&Charge&" "&WR_Pay(5)&"!
  • 確認交費閱讀?
  • 返回首頁?",0) Else If RepeatCharge > 0 and IsEmpty(WRMPS.GetCookies("ReadPay_C_"&ID)) Then Call WRMPS.ErrView("","","收費提醒
  • 此為收費內容,閱讀費用為:"&Charge&" "&WR_Pay(5)&"!
  • 確認交費閱讀?
  • 返回首頁?",0) End If End If Else Call WRMPS.AjaxLogin("",0,"此信息為收費內容,須會員才可閱讀,請先登錄或注冊!") End If WRMPS.DelCookies "ReadPay_C_"&ID End If '如果啟用靜態頁 ClassDir = Rs(6) If Int(WRMPS.IsCreHtml(CreateHTML,"Show")) = 3 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 %> 我爱玩山西麻将app 广西快3走势 北京快3和值走势图表 陕西快乐十分开奖结果 广东十一选五下期预测 湖南赛车今日开奖结果 广西快3开奖结果彩宝网 蓝洞棋牌下载 黑龙江p62走势透图 山西十分钟开奖福利 中天证券同花顺手机炒股软件