<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<!-- #include file="conn.asp" -->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<link rel="stylesheet" type="text/css" href="css/style.css" media="all">
<title>充值过程</title>
</head>
<%
'查询金额
dim jine
dim na
dim kouling
dim yuanshijine
na = request.Form("yonghuming")
jine = request.Form("jine")
kouling = request.Form("kouling")
Set Rs = Server.CreateObject("Adodb.RecordSet")
sql="select top 1 Balance,UName from Idea_User Where 1=1 And UName = '" & na & "'order by id asc"
Rs.Open sql,conn,1,1
If Not Rs.EOF Then
yuanshijine=Rs("Balance")
na=Rs("UName")
End if
Rs.Close
Set Rs = Nothing
%>
<%
'修改金额
sql="select top 1 Balance,UName from Idea_User Where 1=1 And UName = '" & na & "'order by id asc"
Set Rs = Server.CreateObject("Adodb.Recordset")
Rs.Open sql,Conn,1,3
Rs("Balance") = yuanshijine+jine
Rs.Update
Rs.Close
Set Rs =Nothing
%>
<body>
<div class="wxs">
<div class="title">余额手工充值</div>
<div class="form">
<li>用户名称：<%=na%></li>
<li>原始金额：<%=yuanshijine%></li>
<li>充值金额：<%=jine%></li>
<li>充后金额：<%=yuanshijine+jine%></li>
<li>充值时间：<%=now()%></li>
</div>
</div>
</div>
<%
'充值记录写入数据库
sql="select cz,czh,sj,yh,ysj from cz where id = null"
set Rs = server.createobject("adodb.recordset")
Rs.Open sql,conn,1,3
Rs.addnew
Rs("cz") = jine
Rs("czh") = yuanshijine+jine
Rs("yh") = na
Rs("ysj") = yuanshijine
Rs.update
Rs.close
set Rs = nothing
%>
</body>
</html>
1143
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
