lhb_chongzhi.asp

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

<!-- #include file="LHB_Check_Session.asp" -->
<!-- #include file="Config.asp"-->
<!-- #include file="LHB_Copy.asp" -->
<script language="JavaScript" src="Money.js"></script>
<!-- #include file="LHB_head.asp"-->
<!-- #include file="LHB_DHT_01.asp"-->
<!-- #include file="LHB_DHT_02.asp"-->
<br>
<%
Select Case Request.ServerVariables("REQUEST_METHOD")
Case "POST"
L_UserID=Request("LouHB_UserID")
L_Money=Request("LouHB_JiaGe")
L_Time=Now()

If L_Money="" then 
Response.Write("<script>alert('充值金额不能为空');history.back();</script>")
Response.End
End If

SaveCZ="insert into LHB_ChongZhiJL(L_UserID,L_Money,L_Time) values('"&L_UserID&"','"&L_Money&"','"&L_Time&"')"
Louconn.Execute(SaveCZ)
set SaveCZ=nothing

Set Lours=server.createobject("adodb.recordset")
up="Select L_Money From LHB_YongHu where L_UserID='"&L_UserID&"'"
Lours.Open up,LouConn,1,3
Lours("L_Money")=Lours("L_Money")+L_Money
Lours.update
Lours.Close
Set Lours=Nothing
LouConn.Close
Set LouConn=Nothing
Call Copy
response.write "<script language=JavaScript>" & chr(13) & "alert('恭喜！充值成功！本次充值金额为"&L_Money&"');"&"window.location.href='LHB_HuiYuan.asp?LouHB_TianJ_XiuG=2&LouHB_UserID="&L_UserID&"'"&" </script>"
Response.End
End Select

L_UserID=Request("LouHB_UserID")
Set Lours=server.createobject("adodb.recordset")
Sql="Select L_UserName,L_Money From LHB_YongHu where L_UserID='"&L_UserID&"'"
Lours.Open Sql,LouConn,1,1
If Not (Lours.EOF And Lours.BOF) Then
L_UserName=Lours("L_UserName")
L_Money=Lours("L_Money")
End If
Lours.Close
Set Lours=Nothing
%>
<table width="420" border="0" align="center" cellpadding="0" cellspacing="0" class="table4">
<form name="form1" method="post" action="" onSubmit="return test();">
<tr>
<td height="30" colspan="2" align="center" background="pic/bg.gif">会员充值</td>
</tr>
<tr>
<td width="126" height="30" align="right">会员账号：</td>
<td width="294"><%=L_UserName%></td>
</tr>
<tr>
<td height="30" align="right">目前余额：</td>
<td><%=L_Money%></td>
</tr>
<tr>
<td height="30" align="right">充值金额：</td>
<td>
<input name="LouHB_JiaGe" type="text" id="LouHB_Money" size="15" class="button1"></td>
</tr>
<tr>
<td height="30">&nbsp;</td>
<td>
<input type="image" name="button" id="button" value="提交" src="pic/Money.gif">
<input name="LouHB_UserID" type="hidden" value="<%=L_UserID%>"></td>
</tr>
</form>
</table>
<br>
<%
Set Lours=server.createobject("adodb.recordset")
Sql1="Select * From LHB_ChongZhiJL where L_UserID='"&L_UserID&"' Order By L_Time Desc"
Lours.Open Sql1,LouConn,1,1
If Lours.EOF And Lours.BOF Then
Response.Write"<Center>无充值记录</center>"
Else
%>
<table width="420" border="0" align="center" cellpadding="0" cellspacing="0" class="table4">
<tr>
<td height="30" colspan="2" align="center" background="pic/DHT-bg.gif"><%=L_UserName%>的充值记录</td>
</tr>
<%Do  While Not Lours.EOF%>
<tr>
<td height="30" width="210">充值时间：<%=Lours("L_Time")%></td>
<td width="210">充值金额：<%=Lours("L_Money")%></td>
</tr>
<%
Lours.Movenext
Loop
%>
</table>
<%
End If
Lours.Close
Set Lours=Nothing
LouConn.CLose
Set LouConn=Nothing
Call Copy
%>