wm.finance_pay_user.asp

来自「网人分类信息5.0商业版。非常优秀的分类信息系统。比较少见。」· ASP 代码 · 共 62 行

<!--#include file="WM.Sys_Cook.asp"-->
<%
If CheckAdminFlag("Finance") = False Then Call WRMPS.ErrView("·您没有权限进行此操作",0)
Call WM_Content
Sub WM_Content()
  Dim User, Money, Remark,CountOut,Integral,Faith
  Call DBConnBegin()
  Set Rs = Server.CreateObject("ADODB.RecordSet")
  Select Case WRMPS.CheckStr(Request("Action"), 0)
    Case "Save"
       User = WRMPS.CheckStr(Request("User"), 0)
       Remark = WRMPS.CheckStr(Request("Remark"), 0)
       Money = WRMPS.CheckStr(Request("Money"), 8)
	   CountOut = WRMPS.CheckStr(Request("CountOut"), 1)
	   Integral = WRMPS.CheckStr(Request("Integral"), 1)
	   Faith = WRMPS.CheckStr(Request("Faith"), 1)
	   If Money = "" Then Money = 0
	   If CountOut = "" Then CountOut = 0
	   If Integral = "" Then Integral = 0
	   If Faith = "" Then Faith = 0
       If User = "" Then Call WRMPS.ErrView("·请输入待充值用户名<meta http-equiv=refresh content='1;URL=WM.Finance_Pay_User.asp'>", 0): Exit Sub
       If Money = 0 and CountOut = 0 and Integral = 0 and Faith = 0 Then Call WRMPS.ErrView("·请输入操作明细<meta http-equiv=refresh content='1;URL=WM.Finance_Pay_User.asp'>", 0): Exit Sub
       If Remark = "" Then Remark = "管理中心(会员账户操作)"
       
	   Rs.Open "Select WM_Money From WM_Member Where WM_UserName = '" & User & "'", Conn, 1, 1
       If Rs.EOF Then
         Call WRMPS.ErrView("·该用户不存在<meta http-equiv=refresh content='1;URL=WM.Finance_Pay_User.asp'>", 0): Exit Sub
       Else
	     Call WRDB.SaveConsume(1,User,Money,CountOut,Integral,Faith,remark)
	   End If
       Rs.Close
	   Call WRMPS.ErrView("·"&User&" 账户操作成功<meta http-equiv=refresh content='1;URL=WM.Finance_Pay_User.asp'>", 1): Exit Sub
	   
    Case Else
	   User = WRMPS.CheckStr(Request("User"), 0)
       Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 Class=td1>" & vbCrLf
       Content = Content & "<form name='addform' method='post' Action='?Action=Save'>" & vbCrLf
       Content = Content & "<tr Class=td4><td colspan=2><strong>会员资金管理</strong></td></tr>" & vbCrLf
       Content = Content & "<tr Class=td2><td><b>用 户 名</b></td>" & vbCrLf
       Content = Content & "<td><input name='User' type='text' size=20 style='width:150' value='"&User&"'></td></tr>" & vbCrLf
       Content = Content & "<tr Class=td2><td width='35%'><b>金钱</b></td>" & vbCrLf
       Content = Content & "<td width='65%'><input name=Money type='text' size=20 style='width:138' maxlength=10 value=0></td></tr>" & vbCrLf
       Content = Content & "<tr Class=td2><td><b>"&WR_Other(0)&"</b></td>" & vbCrLf
       Content = Content & "<td><input name=CountOut type='text' size=20 style='width:138' maxlength=10 value=0></td></tr>" & vbCrLf
       Content = Content & "<tr Class=td2><td><b>积分</b></td>" & vbCrLf
       Content = Content & "<td><input name=Integral type='text' size=20 style='width:138' maxlength=10 value=0></td></tr>" & vbCrLf
       Content = Content & "<tr Class=td2><td><b>信用</b></td>" & vbCrLf
       Content = Content & "<td><input name=Faith type='text' size=20 style='width:138' maxlength=10 value=0></td></tr>" & vbCrLf
       Content = Content & "<tr Class=td2><td><b>备注</b></td>" & vbCrLf
       Content = Content & "<td><input name=Remark type='text' size=20 style='width:300' maxlength=50></td></tr>" & vbCrLf
       Content = Content & "<tr Class=td2><td></td><td><input type=submit name='Submit' value='提 交'></td></tr>" & vbCrLf
       Content = Content & "</form></table><script>document.addform.User.focus()</script>" & vbCrLf
  End Select
  Set Rs = Nothing
  Call DBConnEnd()
  Call ClassEnd()
  Response.write Content
  Call GetBottom()
End Sub


%>