readpop.asp

后台目录:qwbAdmin/Login.asp 登陆用户名:admin 登陆密码:admin

<%
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您的点数不足，不能浏览此信息.\n本次浏览需要点数:"& 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
%>