<%
'**************************************
'* 最后更新 2014-08-29 by 56770.Kingdge
'* Copyright www.56770.com
'**************************************
Dim myuser_main,sql,jifen,num1,num2,num4,num5,num6,subject,strmsg,idate,ifre,to_user
Dim ps1,ps,page,url
Dim vip,title,bank,yxq,usermoney,ifpay,shenqing
ShowPath = "<a href='"& Eshop_url & LangPath &"'>"& Lebi_word(0) &"</a> → <a href='"& Eshop_url & PagePath(0) &"'>"& Lebi_word(8) &"</a>"

Select Case Request("action")
	   Case "ok" : strwebtitle = Lebi_user(6) &"-" : myuser_main = myuser_chongzhi_ok : ShowPath = ShowPath &" → "& Lebi_user(6)
	   Case "update" : strwebtitle = Lebi_user(6) &"-" : myuser_main = myuser_chongzhi_update : ShowPath = ShowPath &" → "& Lebi_user(6)
	   Case Else
		     strwebtitle = Lebi_user(6) &"-"
			 myuser_main = myuser_chongzhi
End Select
description = Replace(trim(Sys_description),chr(13),"")
keywords = Replace(trim(Sys_keywords),chr(13),"")

Function myuser_chongzhi()
        If Lebi_UserId ="" Then
                response.redirect Eshop_url & PagePath(1) &"?action=needlogin"
		        response.End
        End If
        session("chongzhi")="ok"
        myuser_chongzhi = "<script language='javascript'>maxLen = 255; function checkMaxInput(form) {if (form.cz_fuyan.value.length > maxLen) form.cz_fuyan.value = form.cz_fuyan.value.substring(0, maxLen);else form.remLen.value = maxLen - form.cz_fuyan.value.length;}</script>"
        myuser_chongzhi = myuser_chongzhi&"<div class=""myuserinfo""><h2>"& Lebi_UserId &" ，"& Lebi_user(122) &"</h2><table width='100%' border='0' cellpadding='0' cellspacing='1' align='center'><tbody>"
        myuser_chongzhi = myuser_chongzhi&"<form name='form' method='post' action='"& Eshop_url & PagePath(26) &"?action=ok'>"
        myuser_chongzhi = myuser_chongzhi&"<tr><th>"& Lebi_user(123) &"：</th><td class='list2'>&nbsp;"& dw &" <input type='text' name=cz_price size='5' class=form onkeyup=""value=value.replace(/[^\d\.]/g,'');"" value='"& request("price") &"'> "& dw2 &"</td></tr>"
        myuser_chongzhi = myuser_chongzhi&"<tr><th>"& Lebi_user(124) &"：</th><td class='list2'>&nbsp;<font size='1' face='arial, helvetica, sans-serif'><textarea name='cz_fuyan' wrap=physical cols='40' rows='6' id='textarea3' onKeyDown='checkMaxInput(this.form)' onKeyUp='checkMaxInput(this.form)' class='form-textarea'></textarea>&nbsp;<INPUT class=form readonly type=text name=remLen size=3 maxlength=3 value='255'></font></td></tr>"
        myuser_chongzhi = myuser_chongzhi&"<tr><td height='30' colspan='2' class='list2'><input type='hidden' name='shenqingtype' value='"& request("shenqingtype") &"'><input type='submit' name='submit' value=' "& Lebi_user(103) &" ' class='button'></td></tr>"
        'myuser_chongzhi = myuser_chongzhi&"<tr><td height='180' align='center' class='bg_l'><img src='"&Eshop_url&"images/paymentsby_01_1.gif'></td></tr>"
        myuser_chongzhi = myuser_chongzhi&"</form></tbody></table></div>"
End Function

Function myuser_chongzhi_ok()
        If Lebi_UserId ="" Then
                response.redirect Eshop_url & PagePath(1) &"?action=needlogin"
		        response.End
        End If
	    Dim cz_price,cz_fuyan,linkurl,shenqingtype,chongzhiinfo,curdate,v_oid,text,v_md5info,tl,mes
        payprice=checknum(request("cz_price"),0)
	    cz_fuyan=safereplace(request("cz_fuyan"))
		If request.ServerVariables("SERVER_PORT") <> 80 Then
				linkurl = "http://"&Request.ServerVariables("SERVER_NAME")&":"&request.ServerVariables("SERVER_PORT")
		Else
				linkurl = "http://"&Request.ServerVariables("SERVER_NAME")
		End If
		linkurl = linkurl & Eshop_url & PagePath(26) &"?action=update"
	    shenqingtype=safereplace(request("shenqingtype"))
	    If payprice=0 Then
		        myuser_chongzhi_ok = CallBack(Lebi_user(6),"·"& Lebi_user(125),0,3)
	    Else
	            '根据系统时间产生订单，格式：YYYYMMDD-v_mid-HMMSS
	            curdate=now()
                order_number=Right(year(curdate),2)&month(curdate)&day(curdate)&hour(curdate)&minute(curdate)&second(curdate)
'	            text = cz_price&Pay_chinabank(3)&v_oid&Pay_chinabank(1)&linkurl&Pay_chinabank(2)
'	            v_md5info=Ucase(trim(md5(text)))
				If shenqingtype="" Then
						chongzhiinfo=Lebi_user(6)
				Else
						chongzhiinfo=Lebi_user(13)
				End If
				conn.execute("insert into [Lebi_buy](name,price,fuyan,order_num,addtime,ip)values('"& Lebi_UserId &"',"&payprice&",'"&cz_fuyan&"','"&order_number&"',"&sqlnowstring&",'"& request.servervariables("remote_addr") &"')")
				rem 预存款消费明细 2006-1-2 56770.kingdge
				conn.execute("insert into [Lebi_money_log](m_user_id,m_content,m_order_num,m_sj,m_type,m_price,m_zt)values('"& Lebi_UserId &"','"&cz_fuyan&"','"&order_number&"',"&sqlnowstring&",'"&chongzhiinfo&"',"&payprice&",0)")
'				itemUrl="https://pay3.chinabank.com.cn/PayGate?v_md5info="&v_md5info&"&v_mid="&Pay_chinabank(1)&"&v_oid="&v_oid&"&v_amount="&cz_price&"&v_moneytype="&Pay_chinabank(3)&"&v_url="&linkurl&"&style="&Pay_chinabank(3)&"&remark1="&Lebi_UserId&"&remark2="&shenqingtype
'				response.redirect itemUrl
'				response.End
                myuser_chongzhi_ok = "<div class=""myuserinfo""><h2>"& Lebi_UserId &" ，"& Lebi_user(122) &"</h2><table width='100%' border='0' cellpadding='3' cellspacing='1' align='center'><tbody>"
                If Pay_chinabank(0)=1 And InStr(Pay_chinabank(11),LangName)>0 Then
						myuser_chongzhi_ok = myuser_chongzhi_ok &"<tr><td>"
						If Pay_chinabank(7) <> "" Then
								myuser_chongzhi_ok = myuser_chongzhi_ok &"<a href='"& Eshop_url &"plus/Onlinepay.asp?pay_page=2&pay_type=4&pro_id=0&subject="& order_number &"&trade_no="& order_number &"&price="& payprice &"&md5char="& md5(payprice) &"&paybackurl="& Pay_chinabank(4) &"&remark1="& LangPath &"|"& Lebi_UserId &"&Recharge=1' title='"& Pay_chinabank(9) &"' target='_blank'><img src='"& Eshop_url & Pay_chinabank(7) &"' alt='"& Pay_chinabank(9) &"' border='0' align='absmiddle'></a>"
						Else
								myuser_chongzhi_ok = myuser_chongzhi_ok &"<input type='button' onclick=""window.open('"& Eshop_url &"plus/Onlinepay.asp?pay_page=2&pay_type=4&pro_id=0&subject="& order_number &"&trade_no="& order_number &"&price="& payprice &"&md5char="& md5(payprice) &"&paybackurl="& Pay_chinabank(4) &"&remark1="& LangPath &"|"& Lebi_UserId &"&Recharge=1');"" value='"& Pay_chinabank(9) &"' class='button'>"
						End If
						myuser_chongzhi_ok = myuser_chongzhi_ok &"</td></tr>"
		        End If
                'If Pay_alipay(0)=1 And Pay_alipay(14)<>2 And InStr(Pay_alipay(13),LangName)>0 Then
						'myuser_chongzhi_ok = myuser_chongzhi_ok &"<tr><td>"
						'If Pay_alipay(8) <> "" Then
								'myuser_chongzhi_ok = myuser_chongzhi_ok &"<a href='"& Eshop_url &"plus/Onlinepay.asp?account=1&pay_page=2&pay_type=1&pro_id=0&subject="& order_number &"&trade_no="& order_number &"&price="& payprice &"&md5char="& md5(payprice) &"&paybackurl="& Pay_alipay(6) &"&extra_common_param="& LangPath &"|"& Lebi_UserId &"&Recharge=1' title='"& Pay_alipay(11) &"' target='_blank'><img src='"& Eshop_url & Pay_alipay(8) &"' alt='"& Pay_alipay(11) &"' border='0' align='absmiddle'></a>"
						'Else
								'myuser_chongzhi_ok = myuser_chongzhi_ok &"<input type='button' onclick=""window.open('"& Eshop_url &"plus/Onlinepay.asp?account=1&pay_page=2&pay_type=1&pro_id=0&subject="& order_number &"&trade_no="& order_number &"&price="& payprice &"&md5char="& md5(payprice) &"&paybackurl="& Pay_alipay(6) &"&extra_common_param="& LangPath &"|"& Lebi_UserId &"&Recharge=1');"" value='"& Pay_alipay(11) &"' class='button'>"
						'End If
						'myuser_chongzhi_ok = myuser_chongzhi_ok &"</td></tr>"
		        'End If
                If Pay_paypal(0)=1 And InStr(Pay_paypal(11),LangName)>0 Then
						myuser_chongzhi_ok = myuser_chongzhi_ok &"<tr><td>"
						If Pay_paypal(5) <> "" Then
								myuser_chongzhi_ok = myuser_chongzhi_ok &"<a href='"& Eshop_url &"plus/Onlinepay.asp?pay_page=2&pay_type=3&pro_id=0&subject="& order_number &"&trade_no="& order_number &"&price="& payprice &"&md5char="& md5(payprice) &"&paypal_currency_code="& paypal_currency_code &"&paybackurl="& Pay_paypal(7) &"&custom="& LangPath &"|"& Lebi_UserId &"&Recharge=1' title='"& Pay_paypal(9) &"' target='_blank'><img src='"& Eshop_url & Pay_paypal(5) &"' alt='"& Pay_paypal(9) &"' border='0' align='absmiddle'></a>"
						Else
								myuser_chongzhi_ok = myuser_chongzhi_ok &"<input type='button' onclick=""window.open('"& Eshop_url &"plus/Onlinepay.asp?pay_page=2&pay_type=3&pro_id=0&subject="& order_number &"&trade_no="& order_number &"&price="& payprice &"&md5char="& md5(payprice) &"&paypal_currency_code="& paypal_currency_code &"&paybackurl="& Pay_paypal(7) &"&custom="& LangPath &"|"& Lebi_UserId &"&Recharge=1');"" value='"& Pay_paypal(9) &"' class='button'>"
						End If
						myuser_chongzhi_ok = myuser_chongzhi_ok &"</td></tr>"
		        End If
                If Pay_paypal_cn(0)=1 And InStr(Pay_paypal_cn(11),LangName)>0 Then
						myuser_chongzhi_ok = myuser_chongzhi_ok &"<tr><td>"
						If Pay_paypal_cn(5) <> "" Then
								myuser_chongzhi_ok = myuser_chongzhi_ok &"<a href='"& Eshop_url &"plus/Onlinepay.asp?pay_page=2&pay_type=7&pro_id=0&subject="& order_number &"&trade_no="& order_number &"&price="& payprice &"&md5char="& md5(payprice) &"&paybackurl="& Pay_paypal_cn(7) &"&custom="& LangPath &"|"& Lebi_UserId &"&Recharge=1' title='"& Pay_paypal_cn(9) &"' target='_blank'><img src='"& Eshop_url & Pay_paypal_cn(5) &"' alt='"& Pay_paypal_cn(9) &"' border='0' align='absmiddle'></a>"
						Else
								myuser_chongzhi_ok = myuser_chongzhi_ok &"<input type='button' onclick=""window.open('"& Eshop_url &"plus/Onlinepay.asp?pay_page=2&pay_type=7&pro_id=0&subject="& order_number &"&trade_no="& order_number &"&price="& payprice &"&md5char="& md5(payprice) &"&paybackurl="& Pay_paypal_cn(7) &"&custom="& LangPath &"|"& Lebi_UserId &"&Recharge=1');"" value='"& Pay_paypal_cn(9) &"' class='button'>"
						End If
						myuser_chongzhi_ok = myuser_chongzhi_ok &"</td></tr>"
		        End If
                If Pay_bill(0)="1" And InStr(Pay_bill(10),LangName)>0 Then
						myuser_chongzhi_ok = myuser_chongzhi_ok &"<tr><td>"
						If Pay_bill(6) <> "" Then
								myuser_chongzhi_ok = myuser_chongzhi_ok &"<a href='"& Eshop_url &"plus/Onlinepay.asp?pay_page=2&pay_type=2&pro_id=0&subject="& order_number &"&trade_no="& order_number &"&price="& payprice &"&md5char="& md5(payprice) &"&paybackurl="& Pay_bill(3) &"' title='"& Pay_bill(8) &"' target='_blank'><img src='"& Eshop_url & Pay_bill(6) &"&ext1="& LangPath &"|"& Lebi_UserId &"&Recharge=1' alt='"& Pay_bill(8) &"' border='0' align='absmiddle'></a>"
						Else
								myuser_chongzhi_ok = myuser_chongzhi_ok &"<input type='button' onclick=""window.open('"& Eshop_url &"plus/Onlinepay.asp?pay_page=2&pay_type=2&pro_id=0&subject="& order_number &"&trade_no="& order_number &"&price="& payprice &"&md5char="& md5(payprice) &"&paybackurl="& Pay_bill(3) &"&ext1="& LangPath &"|"& Lebi_UserId &"&Recharge=1');"" value='"& Pay_bill(8) &"' class='button'>"
						End If
						myuser_chongzhi_ok = myuser_chongzhi_ok &"</td></tr>"
		        End If
                If Pay_tenpay(0)="1" And InStr(Pay_tenpay(11),LangName)>0 Then
						myuser_chongzhi_ok = myuser_chongzhi_ok &"<tr><td>"
						If Pay_tenpay(7) <> "" Then
								myuser_chongzhi_ok = myuser_chongzhi_ok &"<a href='"& Eshop_url &"plus/Onlinepay.asp?pay_page=2&pay_type=5&pro_id=0&subject="& order_number &"&trade_no="& order_number &"&price="& payprice &"&md5char="& md5(payprice) &"&paybackurl="& Pay_tenpay(4) &"&Pay_tenpay_attach="& LangPath &"|"& Lebi_UserId &"&Recharge=1' title='"& Pay_tenpay(9) &"' target='_blank'><img src='"& Eshop_url & Pay_tenpay(7) &"' alt='"& Pay_tenpay(9) &"' border='0' align='absmiddle'></a>"
						Else
								myuser_chongzhi_ok = myuser_chongzhi_ok &"<input type='button' onclick=""window.open('"& Eshop_url &"plus/Onlinepay.asp?pay_page=2&pay_type=5&pro_id=0&subject="& order_number &"&trade_no="& order_number &"&price="& payprice &"&md5char="& md5(payprice) &"&paybackurl="& Pay_tenpay(4) &"&Pay_tenpay_attach="& LangPath &"|"& Lebi_UserId &"&Recharge=1');"" value='"& Pay_tenpay(9) &"' class='button'>"
						End If
						myuser_chongzhi_ok = myuser_chongzhi_ok &"</td></tr>"
		        End If
                If Pay_ips(0)="1" And InStr(Pay_ips(11),LangName)>0 Then
						myuser_chongzhi_ok = myuser_chongzhi_ok &"<tr><td>"
						If Pay_ips(7) <> "" Then
							    myuser_chongzhi_ok = myuser_chongzhi_ok &"<a href='"& Eshop_url &"plus/Onlinepay.asp?pay_page=2&pay_type=8&pro_id=0&subject="& order_number &"&trade_no="& order_number &"&price="& payprice &"&md5char="& md5(payprice) &"&paybackurl="& Pay_ips(4) &"' title='"& Pay_ips(10) &"&attach="& LangPath &"|"& Lebi_UserId &"' target='_blank'><img src='"& Eshop_url & Pay_ips(7) &"' alt='"& Pay_ips(10) &"' border='0' align='absmiddle'></a>"
						Else
								myuser_chongzhi_ok = myuser_chongzhi_ok &"<input type='button' onclick=""window.open('"& Eshop_url &"plus/Onlinepay.asp?pay_page=2&pay_type=8&pro_id=0&subject="& order_number &"&trade_no="& order_number &"&price="& payprice &"&md5char="& md5(payprice) &"&paybackurl="& Pay_ips(4) &"&attach="& LangPath &"|"& Lebi_UserId &"');"" value='"& Pay_ips(10) &"' class='button'>"
						End If
						myuser_chongzhi_ok = myuser_chongzhi_ok &"</td></tr>"
		        End If
                If Pay_baofu(0)=1 And InStr(Pay_baofu(11),LangName)>0 Then
						myuser_chongzhi_ok = myuser_chongzhi_ok &"<tr><td>"
						If Pay_baofu(7) <> "" Then
								myuser_chongzhi_ok = myuser_chongzhi_ok &"<a href='"& Eshop_url &"plus/Onlinepay.asp?pay_page=2&pay_type=9&pro_id=0&subject="& order_number &"&trade_no="& order_number &"&price="& payprice &"&md5char="& md5(payprice) &"&paybackurl="& Pay_baofu(4) &"&AdditionalInfo="& LangPath &"|"& Lebi_UserId &"&Recharge=1' title='"& Pay_baofu(9) &"' target='_blank'><img src='"& Eshop_url & Pay_baofu(7) &"' alt='"& Pay_chinabank(9) &"' border='0' align='absmiddle'></a>"
						Else
								myuser_chongzhi_ok = myuser_chongzhi_ok &"<input type='button' onclick=""window.open('"& Eshop_url &"plus/Onlinepay.asp?pay_page=2&pay_type=9&pro_id=0&subject="& order_number &"&trade_no="& order_number &"&price="& payprice &"&md5char="& md5(payprice) &"&paybackurl="& Pay_baofu(4) &"&AdditionalInfo="& LangPath &"|"& Lebi_UserId &"&Recharge=1');"" value='"& Pay_baofu(9) &"' class='button'>"
						End If
						myuser_chongzhi_ok = myuser_chongzhi_ok &"</td></tr>"
		        End If
                myuser_chongzhi_ok = myuser_chongzhi_ok &"</table></div>"
        End If
End Function
Function myuser_chongzhi_update()
        If Lebi_UserId ="" Then
                response.redirect Eshop_url & PagePath(1) &"?action=needlogin"
		        response.End
        End If
		Set rsuser = server.CreateObject("adodb.recordset")
		rsuser.open "select user_id,user_name,usermoney,user_mobile from [Lebi_User] where user_id='"& Lebi_UserId &"'",conn,1,3
		usermoney = rsuser(2)
		If SMS_State = "1" Then
				Dim LoadSMSInfo,SMSMsg
				LoadSMSInfo = LoadStyle(Eshop_url&"include/lebi_data/SMS"& LangTxt &".data")
				If InStr(","& SMS_SendMode &",",",6,") > 0 Then
						If CheckMobile(rsuser(3)) Then
								SMSMsg = splits(Split(LoadSMSInfo,"@@@")(5))
								ReplaceStyle "user_id",rsuser(0),SMSMsg
								ReplaceStyle "user_name",rsuser(1),SMSMsg
								ReplaceStyle "time",Now(),SMSMsg
								ReplaceStyle "money",v_amount,SMSMsg
								Call RedirectSendSMS(rsuser(3),SMSMsg,"payment","",sms_sendtype)
						End If
				End If
				If InStr(","& SMS_SendMode &",",",12,") > 0 Then
						If CheckMobile(sms_receiveno) Then
								SMSMsg = splits(Split(LoadSMSInfo,"@@@")(11))
								ReplaceStyle "user_id",rsuser(0),SMSMsg
								ReplaceStyle "user_name",rsuser(1),SMSMsg
								ReplaceStyle "mobile",rsuser(3),SMSMsg
								ReplaceStyle "time",Now(),SMSMsg
								ReplaceStyle "money",v_amount,SMSMsg
								Call RedirectSendSMS(sms_receiveno,SMSMsg,"payment_admin","",sms_sendtype)
						End If
				End If
				rsuser.close : Set rsuser= Nothing
		End If
		myuser_chongzhi_update = "<div class=""myuserinfo""><h2>"& Lebi_UserId &" ，"& Lebi_user(122) &"</h2><table width='100%' border='0' cellpadding='3' cellspacing='1' align='center'><tbody>"
		myuser_chongzhi_update = myuser_chongzhi_update &"<tr><td><font color='#FF0000'>"& Lebi_word(68) &"</font></td></tr><tr><td>"& Lebi_user(82) &"："& dw & FormatNumber2(usermoney) & dw2 &"</td></tr>"
        myuser_chongzhi_update = myuser_chongzhi_update &"</tbody></table></div>"
End Function
'Function myuser_chongzhi_update()
'        If Lebi_UserId ="" Then
'                response.redirect Eshop_url & PagePath(1) &"?action=needlogin"
'		        response.End
'        End If
'        v_oid=safereplace(request("v_oid"))
'        v_pmode=safereplace(request("v_pmode"))
'        v_pstatus=safereplace(request("v_pstatus"))
'        v_pstring=safereplace(request("v_pstring"))
'        v_md5info=safereplace(request("v_md5info"))
'        v_amount=checknum(request("v_amount"),0)
'        v_moneytype=safereplace(request("v_moneytype"))
'        v_md5money=safereplace(request("v_md5money"))
'        v_md5=safereplace(request("v_md5"))
'        user_id=safereplace(request("user_id"))
'        remark1=safereplace(request("remark1"))
'        remark2=safereplace(request("remark2"))
'        cz_user_id=remark1
'        'md5校验
'        text = v_oid&v_pstatus&v_amount&v_moneytype&Pay_chinabank(2)
'        md5text = trim(md5(text))
'        myuser_chongzhi_update = "<div class=""myuserinfo""><h2>"& Lebi_UserId &" ，"& Lebi_user(122) &"</h2><table width='100%' border='0' cellpadding='0' cellspacing='1' align='center'><tbody>"
'        '按md5检验情况输出结果 Ucase转换为大写
'        If Ucase(md5text)<>Ucase(v_md5) Then
'                myuser_chongzhi_update = myuser_chongzhi_update &"<tr><td height='50' align='center' class='list'>Error</td></tr>"
'        Else
'		        rem 增加防刷新 2006-7-25 by 56770.kingdge
'		        set Rs = conn.execute("select * from [Lebi_money_log] where m_order_num='"& v_oid &"' and m_zt=0")
'		        If not rs.eof Then
'                        conn.execute("UPDATE [Lebi_money_log] SET m_zt=1 where m_order_num='"&v_oid&"'")
'			            conn.execute("UPDATE [Lebi_buy] SET orderzt=1 where order_num='"&v_oid&"'")
'						Set rsuser = server.CreateObject("adodb.recordset")
'						rsuser.open "select user_id,user_name,usermoney,user_mobile from [Lebi_User] where user_id='"& cz_user_id &"'",conn,1,3
'						rsuser(2) = rs(2) + v_amount
'						rsuser.update
'						If SMS_State = "1" Then
'								Dim LoadSMSInfo,SMSMsg
'								LoadSMSInfo = LoadStyle(Eshop_url&"include/lebi_data/SMS"& LangTxt &".data")
'								If InStr(","& SMS_SendMode &",",",6,") > 0 Then
'										If CheckMobile(rsuser(3)) Then
'												SMSMsg = splits(Split(LoadSMSInfo,"@@@")(5))
'												ReplaceStyle "user_id",rsuser(0),SMSMsg
'												ReplaceStyle "user_name",rsuser(1),SMSMsg
'												ReplaceStyle "time",Now(),SMSMsg
'												ReplaceStyle "money",v_amount,SMSMsg
'												Call RedirectSendSMS(rsuser(3),SMSMsg,"payment","",sms_sendtype)
'										End If
'								End If
'								If InStr(","& SMS_SendMode &",",",12,") > 0 Then
'										If CheckMobile(sms_receiveno) Then
'												SMSMsg = splits(Split(LoadSMSInfo,"@@@")(11))
'												ReplaceStyle "user_id",rsuser(0),SMSMsg
'												ReplaceStyle "user_name",rsuser(1),SMSMsg
'												ReplaceStyle "mobile",rsuser(3),SMSMsg
'												ReplaceStyle "time",Now(),SMSMsg
'												ReplaceStyle "money",v_amount,SMSMsg
'												Call RedirectSendSMS(sms_receiveno,SMSMsg,"payment_admin","",sms_sendtype)
'										End If
'								End If
'								rsuser.close : Set rsuser= Nothing
'						End If
'		        End If
'				rs.close : Set rs = Nothing
'                rem 若有错误发生
'                If Err.Number <> 0 Then
'		                myuser_chongzhi_update = myuser_chongzhi_update &"<tr><td height='100' align='center' class='list'><br>"
'                        myuser_chongzhi_update = myuser_chongzhi_update &"error" & Err.Number & "<br>"
'                        myuser_chongzhi_update = myuser_chongzhi_update &"error" & Err.Source & "<br>"
'                        myuser_chongzhi_update = myuser_chongzhi_update &"error" & Err.Description & "<br>"
'			            myuser_chongzhi_update = myuser_chongzhi_update &"</td></tr>"
'                Else
'                        myuser_chongzhi_update = myuser_chongzhi_update &"<tr><td height='50' class='list'><font color='#FF0000'>提示：</font><br><br>&nbsp; &nbsp; &nbsp;此次交易编号 "& v_oid &"<br><br>&nbsp; &nbsp; &nbsp;"
'		                if v_pstatus=1 Then
'                                myuser_chongzhi_update = myuser_chongzhi_update & "支付已提交，但已对您的非实时银行卡已经进行扣款"
'		                elseif v_pstatus=20 then
'                                myuser_chongzhi_update = myuser_chongzhi_update & "在线支付充值成功"
'		                elseif v_pstatus=30 then
'                                myuser_chongzhi_update = myuser_chongzhi_update & "在线支付失败!"
'		                end If
'                        myuser_chongzhi_update = myuser_chongzhi_update &"</td></tr><tr><td height='25' class='list'>&nbsp; &nbsp; &nbsp;"& Lebi_user(123) &"："& FormatNumber(v_amount,2) &"</td></tr>"
'                End If
'        End If
'        myuser_chongzhi_update = myuser_chongzhi_update &"</tbody></table></div>"
'End Function
%>