lhb_read.asp

思翔会员制收费阅读（文章管理）系统20080323 收费按每点击一次收费一次

<!-- #include file="LHB_Check_Session.asp" -->
<!-- #include file="inc/Config.asp"-->
<!-- #include file="LHB_Copy.asp" -->
<!-- #include file="LHB_head.asp"-->
<!-- #include file="LHB_DHT_01.asp"-->
<!-- #include file="LHB_DHT_02.asp"-->
<br>
<%
L_UserID=Session("L_UserID")
L_WenZhangID=Request("LouHB_WenZhangID")

Set Lours=server.createobject("adodb.recordset")
Sql="Select * From LHB_WenZhang where L_WenZhangID='"&L_WenZhangID&"'"
Lours.Open Sql,LouConn,1,1
If Lours.EOF And Lours.BOF Then
Response.Write "<p Align='Center'>文章不存在或已经删除……</p>"
Else
L_BiaoTi=Lours("L_BiaoTi")
L_NeiRong=Lours("L_NeiRong")
L_JiaGe=Lours("L_JiaGe")
End If
Lours.Close
Set Lours=Nothing

Set Lours=server.createobject("adodb.recordset")
Sql="Select L_Money From LHB_YongHu where L_UserID='"&L_UserID&"'"
Lours.Open Sql,LouConn,1,1
If Not (Lours.EOF And Lours.BOF) Then
If L_JiaGe > Lours("L_Money") Then
Call Copy
Response.Write("<script>alert('对不起，您账户余额不足，不能阅读该文章！');history.back();</script>")
Response.End
End If
End If
Lours.Close
Set Lours=Nothing
%>
<table width="768" border="0" cellspacing="0" cellpadding="0" align="center" class="table4">
<tr>
<td height="30" align="center" background="pic/bg.gif"><%=L_BiaoTi%></td>
</tr>
<tr>
<td height="30" class="td1"><%=L_NeiRong%></td>
</tr>
<tr>
<td>本次阅读收费：<%=L_JiaGe%></td>
</tr>
</table>
<%
L_ReadTime=Now()
Read="insert into LHB_YueDuJL(L_UserID,L_WenZhangID,L_ReadTime,L_Money) Values('"&L_UserID&"','"&L_WenZhangID&"','"&L_ReadTime&"','"&L_JiaGe&"')"
Louconn.Execute(Read)
Set Read=Nothing

Set Lours=server.createobject("adodb.recordset")
Sql="Select L_Money From LHB_YongHu where L_UserID='"&L_UserID&"'"
Lours.Open Sql,LouConn,1,3
If Not (Lours.EOF And Lours.BOF) Then
Lours("L_Money")=Lours("L_Money")-L_JiaGe
Lours.update
End If
Lours.Close
Set Lours=Nothing
Louconn.Close
Set LouConn=Nothing
Call Copy
%>