?? readpop.asp
字號:
<%
Sub GetNewsID(newsId,f_type,isClass)
dim JudgeTF,RsNews,user_rs,into_rs
Set RsNews = Conn.Execute("select GroupName,PointNumber,FS_Money,InfoID,PopType,isClass from FS_MF_POP where InfoID='"&newsId&"' and PopType='"&f_type&"' and isClass="& isClass &"")
if Not RsNews.eof then
if RsNews("PointNumber")>0 then
set user_rs = User_Conn.execute("select id,UserNumber,InfoId,SubType,addtime,isClass From FS_ME_POP where UserNumber='"&session("FS_UserNumber")&"' and InfoId='"& newsId &"' and SubType='"& f_type &"' and isClass="& isClass &"")
if user_rs.eof then
if Fs_User.NumIntegral<RsNews("PointNumber") then
Response.Write("<script>alert(""錯誤:\n您的點數(shù)不足,不能瀏覽此信息.\n本次瀏覽需要點數(shù):"& RsNews("PointNumber") &"\n點擊確定前往充值中心"");location.href='" & s_savepath & "/card.asp';</script>")
Response.End
else
User_Conn.execute("Update FS_ME_Users Set Integral=Integral-"&RsNews("PointNumber")&" where UserNumber='"&session("FS_UserNumber")&"'")
set into_rs = Server.CreateObject(G_FS_RS)
into_rs.open "select * From FS_ME_POP where 1=0",User_Conn,1,3
into_rs.addnew
into_rs("UserNumber")=session("FS_UserNumber")
into_rs("InfoId")=newsId
into_rs("SubType")=f_type
into_rs("addtime")=now
into_rs("isClass")=isClass
into_rs.update
into_rs.close:set into_rs = nothing
end if
end if
user_rs.close:set user_rs = nothing
end if
if RsNews("FS_Money")>0 then
set user_rs = User_Conn.execute("select id,UserNumber,InfoId,SubType,addtime,isClass From FS_ME_POP where UserNumber='"&session("FS_UserNumber")&"' and InfoId='"& newsId &"' and SubType='"& f_type &"' and isClass="&isClass&"")
if user_rs.eof then
if Fs_User.NumFS_Money<RsNews("FS_Money") then
Response.Write("<script>alert(""錯誤:\n您的金幣不足,不能瀏覽此信息.\n本次瀏覽需要金幣:"& RsNews("FS_Money") &"\n請到會員中心沖值"");location.href='" & s_savepath & "/card.asp';</script>")
Response.End
else
User_Conn.execute("Update FS_ME_Users Set FS_Money=FS_Money-"&RsNews("FS_Money")&" where UserNumber='"&session("FS_UserNumber")&"'")
set into_rs = Server.CreateObject(G_FS_RS)
into_rs.open "select * From FS_ME_POP where 1=0",User_Conn,1,3
into_rs.addnew
into_rs("UserNumber")=session("FS_UserNumber")
into_rs("InfoId")=newsId
into_rs("SubType")=f_type
into_rs("addtime")=now
into_rs("isClass")=isClass
into_rs.update
into_rs.close:set into_rs = nothing
end if
end if
user_rs.close:set user_rs = nothing
end if
if trim(rsNews("GroupName"))<>"" and not isNull(trim(rsNews("GroupName"))) then
dim GroupArray,i,GroupRs,UGroupName
Set GroupRs = User_Conn.execute("select GroupName from FS_ME_Group where GroupId="& Fs_User.NumGroupID &"")
If GroupRs.Eof Then
UGroupName = "$NothingGroup$"
Else
UGroupName = GroupRs("GroupName")
End If
if instr(rsNews("GroupName"),UGroupName)=0 then
Response.Write("<script>alert(""錯誤:\n你沒瀏覽權限.\n本次瀏覽需要: 【"& rsNews("GroupName") &"】 會員組級別才能瀏覽.\n點擊確定關閉該頁."");window.close();</script>")
Response.End
end if
end if
end if
RsNews.close:set RsNews =nothing
End Sub
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -