<% Dim ID,PrevArticle,NextArticle,ParentPath,Charge,repeatCharge,ChargeUser,IsCharge,CountOut,Title,User,ClassDir,i,LinkUrl,IsPrice ID=WRMPS.CheckStr(Request("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_Article Where WM_Passed=1 and WM_IsDeleted=0 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_A_"&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_Article Set WM_ChargeUser = '"&ChargeUser &","&MemName&"' Where WM_Passed=1 and WM_IsDeleted=0 and WM_id="&ID) WRMPS.SCookies "ReadPay_A_"&ID,"True",0 Set Rs = Conn.Execute("Select WM_AddTime,WM_ClassDir From WM_Article 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_AddTime,WM_ClassDir,WM_LinkUrl,WM_Post,WM_Charge,WM_RepeatCharge,WM_ChargeUser From WM_Article Where WM_ID="&ID ,Conn,1,1 User = Rs(3) Charge = Rs(4) IsCharge = 0 ' 不收費 If IsNUll(User) Then If Int(Mem(0)(15)) > 0 And Charge > 0 Then IsCharge = 1 Else If User <> MemName and Int(Mem(0)(15)) > 0 And Charge > 0 Then IsCharge = 1 End If If IsCharge = 1 Then RepeatCharge = Rs(5) ChargeUser = Rs(6) If WRUser.ChkLogin Then If WRMPS.CheckStr(Request("Page"),1) < 2 Then If Instr(","&ChargeUser&",",","&MemName&",") = 0 Then Call WRMPS.ErrView("","","收費提醒
  • 此為收費內容,閱讀費用為:"&Charge&" "&WR_Pay(5)&"!
  • 確認交費閱讀?
  • 返回首頁?",0) Else If RepeatCharge > 0 and IsEmpty(WRMPS.GetCookies("ReadPay_A_"&ID)) Then Call WRMPS.ErrView("","","收費提醒
  • 此為收費內容,閱讀費用為:"&Charge&" "&WR_Pay(5)&"!
  • 確認交費閱讀?
  • 返回首頁?",0) End If End If End If Else Call WRMPS.AjaxLogin("",0,"此文章為收費內容,須會員才可閱讀,請先登錄或注冊!") End If WRMPS.DelCookies "ReadPay_A_"&ID End If LinkUrl = Rs(2) If LinkUrl <> "" Then Conn.Execute("Update WM_Article Set WM_Hit = WM_Hit+1 Where WM_ID = "&ID) Response.Redirect LinkUrl Response.End End If '如果啟用靜態頁 ClassDir = Rs(1) If Int(WRMPS.IsCreHtml(CreateHTML,"Show")) = 3 Then Response.Redirect WRMPS.GetShowUrl(1,1,0,ID,Rs(0),ChannelDir&ClassDir,ChannelID) Rs.Close Set Rs = Nothing Set ClsPage = New Cls_Page TempStr = ClsPage.PageArticleShow(ID,1,0,0) Set ClsPage = Nothing Call ClassEnd() Call DBConnEnd() Response.Write TempStr %> 我爱玩山西麻将app 体彩七星彩开奖结果 极速快三怎么玩 十一运夺金玩法规则 新疆11选5一定 云南十一选五任六中多少 生物股份最新消息 广西双彩今日开奖结果 银行基金配资业务 吉林快三放假通知 体彩足球彩票怎么玩