📄 user_money.asp
字号:
<!--#include file="user_popedom.asp"-->
<%
'==============================================================
'程序名称：茂盛网站管理系统(Maoin CSM)
'当前版本：Maosin CMS Version 1.1 Powered by maosin.com
'程序作者：阿茂（李胜茂）
'网站地址：www.maosin.com www.maosin.net
' QQ：57861417
'电子邮箱：maosin@163.com maosin@maosin.com
'--------------------------------------------------------------
'Copyright (C) 2006 maosin.com All Rights Reserved.
'免费版本请在程序首页保留(Powered by：Maosin CMS)版权链接信息；
'您可以对此版本进行修改，美化，但请保留此ASP文件内的版权信息；
'茂盛设计网保留此软件的法律追究权利
'==============================================================
select case request("operation")
case "toMoney"
toMoney
case "toJifen"
toJifen
case "transfer"
transfer
end select
%>
<br/>
<table width="100%" border="0" cellpadding="1" cellspacing="1" class="tableBC">
<tr>
<td width="100%" height="22" valign="middle" class="tdT"> 货币汇率</td>
</tr>
<tr>
<td height="65" valign="middle" class="tdBC" style="padding:6px;line-height:18px;">
<font color="#ff2200">当前汇率↓</font><br>
<%=pointName%>换<%=moneyName%>：<font color="#ff2200"><%=jifen2money_j%></font><%=pointName%> = <font color="#ff2200"><%=jifen2money_m%></font><%=moneyName%><br>
<%=moneyName%>换<%=pointName%>：<font color="#ff2200"><%=money2jifen_m%></font><%=moneyName%> = <font color="#ff2200"><%=money2jifen_j%></font><%=moneyName%><br>
<font color="#ff2200">您的帐户信息↓</font><br>
当前您的<%=pointName%>：<font color="#ff2200"><%=FormatNumber(userinfo(3),2,-1)%></font><br>
当前您的<%=moneyName%>：<font color="#ff2200"><%=FormatNumber(userinfo(4),2,-1)%></font><br>
当前您可兑换<%=moneyName%>：<font color="#ff2200"><%=FormatNumber(userinfo(3)/(jifen2money_j/jifen2money_m),2,-1)%></font><br>
当前您可兑换<%=pointName%>：<font color="#ff2200"><%=FormatNumber(userinfo(4)*(money2jifen_j/money2jifen_m),2,-1)%></font><br>
<font color="#ff2200">当前兑换规则↓</font><br>
允许用户将<%=pointName%>转换成<%=moneyName%>。<br>
允许用户将<%=moneyName%>转换成<%=pointName%>。
</td>
</tr>
<tr>
<td height="22" valign="middle" class="tdT"> <%=pointName%>换<%=moneyName%>：</td>
</tr>
<form name="toMoneyForm" action="user_center.asp?action=money&operation=toMoney" method="post">
<tr>
<td height="30" valign="middle" class="tdBC"> 请您输入您要兑换的<%=pointName%>数：
<input type="text" name="jifenNum" class="wenbenkang">
<input type="submit" name="Submit" value="兑换<%=moneyName%>" class="but1" onMouseOver="this.className='but2'" onMouseOut="this.className='but1'"> </td>
</tr>
</form>
<tr>
<td height="22" valign="middle" class="tdT"> <%=moneyName%>换<%=pointName%>：</td>
</tr>
<form name="toJifen" action="user_center.asp?action=money&operation=toJifen" method="post">
<tr>
<td height="30" valign="middle" class="tdBC"> 请您输入您要兑换的<%=moneyName%>数：
<input type="text" name="moneyNum" class="wenbenkang">
<input type="submit" name="Submit2" value="兑换<%=pointName%>" class="but1" onMouseOver="this.className='but2'" onMouseOut="this.className='but1'"> </td>
</tr>
</form>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="1" style="margin-top:10px;" class="tableBC">
<tr>
<td width="100%" height="22" valign="middle" class="tdT"> 转账</td>
</tr>
<form name="transferform" action="user_center.asp?action=money&operation=transfer" method="post">
<tr>
<td height="30" valign="middle" class="tdBC"> 我要将
<input name="transferNum" type="text" size="12" class="wenbenkang">
<input type="radio" name="transferType" value="jifen" checked><%=pointName%>
<input type="radio" name="transferType" value="money"><%=moneyName%> 转到
<input name="toName" type="text" size="14" class="wenbenkang">
帐户
<input type="submit" name="Submit" value="转帐" class="but1" onMouseOver="this.className='but2'" onMouseOut="this.className='but1'"></td>
</tr>
</form>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="1" style="margin-top:10px;" class="tableBC">
<tr>
<td width="*" height="22" valign="middle" class="tdT"> 注意：</td>
</tr>
<tr>
<td height="44" valign="middle" class="tdBC"> 您在这里进行的<font color="#ff2200"><%=pointName%>/<%=moneyName%>换算</font>和<font color="#ff2200"><%=pointName%>/<%=moneyName%>转帐</font>等为<font color="#ff2200">不可逆操作</font>！请在操作前注意一下。</td>
</tr>
</table>
<%
sub toMoney()
dim jfefnNum,sql,getMoneyNum
jifenNum=trim(Request("jifenNum"))
if isNumeric(jifenNum)=false then
showmsg "<font color=""#ff0000"">系统返回如下信息：</font><br><br><li>您输入的"&pointName&"值不是数字型，请输入一个正确的数字型"&pointName&"</li>","出错信息"
exit sub
end if
if csng(jifenNum)>csng(userInfo(3)) then
showmsg "您输入的"&pointName&"值大于您目前的"&pointName&" <font color=""#ff0000"">"&userInfo(3)&"</font>。","转换出错"
exit sub
elseif csng(jifenNum)<1 then
showmsg "您输入的"&pointName&"值最小不能小于 <font color=""#ff0000"">1</font>。","转换出错"
exit sub
end if
conn.BeginTrans
jifenNum=csng(jifenNum)
getMoneyNum=FormatNumber(jifenNum/(jifen2money_j/jifen2money_m),2,-1)
getMoneyNum=csng(replace(getMoneyNum,",",""))
sql="update ms_user set user_money=user_money+"&getMoneyNum&",user_point=user_point-"&jifenNum&" where user_id="&userInfo(0)
conn.execute(sql)
userInfo=session("userInfo")
userInfo(3)=replace(FormatNumber(csng(userInfo(3))-jifenNum,2,-1),",","")
userInfo(4)=replace(FormatNumber(csng(userInfo(4))+getMoneyNum,2,-1),",","")
session("userInfo")=userInfo
if conn.errors.count>0 then
conn.errors.clear
conn.RollbackTrans
showmsg "此次转换失败","失败信息"
exit sub
else
conn.CommitTrans
showmsg "恭喜恭喜，转换成功","成功信息"
response.redirect "user_center.asp?action=money"
exit sub
end if
end sub
sub toJifen()
dim moneyNum,sql,getMoneyNum
moneyNum=trim(Request("moneyNum"))
if isNumeric(moneyNum)=false then
showmsg "<font color=""#ff0000"">系统返回如下信息：</font><br><br><li>您输入的"&moneyName&"值不是数字型，请输入一个正确的数字型"&moneyName&"</li>","出错信息"
exit sub
end if
if csng(moneyNum)>csng(userInfo(4)) then
showmsg "您输入的"&moneyName&"值大于您目前的"&moneyName&" <font color=""#ff0000"">"&userInfo(4)&"</font>。","转换出错"
exit sub
elseif csng(moneyNum)<1 then
showmsg "您输入的"&moneyName&"值最小不能小于 <font color=""#ff0000"">1</font>。","转换出错"
exit sub
end if
conn.BeginTrans
moneyNum=csng(moneyNum)
getJifenNum=FormatNumber(moneyNum*(money2jifen_j/money2jifen_m),2,-1)
getJifenNum=csng(replace(getJifenNum,",",""))
sql="update ms_user set user_money=user_money-"&moneyNum&",user_point=user_point+"&getJifenNum&" where user_id="&userInfo(0)
conn.execute(sql)
userInfo=session("userInfo")
userInfo(3)=replace(FormatNumber(csng(userInfo(3))+getJifenNum,2,-1),",","")
userInfo(4)=replace(FormatNumber(csng(userInfo(4))-moneyNum,2,-1),",","")
session("userInfo")=userInfo
if conn.errors.count>0 then
conn.errors.clear
conn.RollbackTrans
showmsg "此次转换失败","失败信息"
exit sub
else
conn.CommitTrans
showmsg "恭喜恭喜，转换成功","成功信息"
response.redirect "user_center.asp?action=money"
exit sub
end if
end sub
sub transfer()
dim transferNum,transferType,toName,transql,tosql,sms_content
transferNum=trim(Request("transferNum"))
transferType=trim(Request("transferType"))
toName=Request("toName")
if transferType="" then
showmsg "请选择您要转帐类型","出错信息"
exit sub
end if
if toName="" then
showmsg "目标用户名不能为空","出错信息"
exit sub
end if
if isNumeric(transferNum)=false then
showmsg "<font color=""#ff0000"">系统返回如下信息：</font><br><br><li>您输入的数值不是数字型，请输入一个正确的数字型数值</li>","出错信息"
exit sub
end if
if csng(transferNum)<1 then
showmsg "您输入的数值最小不能小于 <font color=""#ff0000"">1</font>。","转换出错"
exit sub
end if
if chkIsAvaStr(toName)=false then
showmsg "<font color=""#ff0000"">系统返回信息：</font><br><br>用户名含有非法字符！","出错信息"
exit sub
end if
toName=trim(replace(toName,"'",""))
if conn.execute("select count(user_id) from ms_user where user_name='"&toName&"'")(0)=0 then
showmsg "对不起,您要转帐的目标用户不存在。<br>转帐中止操作。","转帐失败"
exit sub
end if
if transferType="jifen" then
if csng(transferNum)>csng(userInfo(3)) then
showmsg "您输入的转帐数目大于您目前拥有的"&pointName&"数 <font color=""#ff0000"">"&userInfo(3)&"</font>。<br>转帐中止操作","转换出错"
exit sub
end if
transql="update ms_user set user_point=user_point-"&csng(transferNum)&" where user_name='"&userInfo(1)&"'"
tosql="update ms_user set user_point=user_point+"&csng(transferNum)&" where user_name='"&toName&"'"
elseif transferType="money" then
if csng(transferNum)>csng(userInfo(4)) then
showmsg "您输入的转帐数目大于您目前拥有的"&moneyName&"数 <font color=""#ff0000"">"&userInfo(4)&"</font>。<br>转帐中止操作","转换出错"
exit sub
end if
transql="update ms_user set user_money=user_money-"&csng(transferNum)&" where user_name='"&userInfo(1)&"'"
tosql="update ms_user set user_money=user_money+"&csng(transferNum)&" where user_name='"&toName&"'"
else
showmsg "请选择您要转帐类型","出错信息"
exit sub
end if
conn.BeginTrans
conn.execute(transql)
conn.execute(tosql)
if conn.Errors.Count>0 then
conn.Errors.Clear
conn.RollBackTrans
showmsg "转帐失败","失败信息"
exit sub
else
Conn.CommitTrans
if transferType="jifen" then
userInfo=session("userInfo")
userInfo(3)=replace(FormatNumber(csng(userInfo(3))-csng(transferNum),2,-1),",","")
session("userInfo")=userInfo
sms_content="尊敬的"&toName&"："&_
userInfo(1)&" 于 "&now()&",成功把 <font color=""#ff0000"">"&csng(transferNum)&"</font> "&pointName&"转到您的账户,请注意查收！"
elseif transferType="money" then
userInfo=session("userInfo")
userInfo(4)=replace(FormatNumber(csng(userInfo(4))-csng(transferNum),2,-1),",","")
session("userInfo")=userInfo
sms_content="尊敬的"&toName&"："&chr(10)&_
" "&userInfo(1)&" 于 "&now()&",成功把 [color=#ff0000]"&csng(transferNum)&"[/color] "&moneyName&"转到您的账户,请注意查收！"
end if
conn.execute "insert into ms_sms(send_user,incept_user,sms_title,sms_content,sms_date,sms_isSend,sms_isSystem) values('系统短信精灵','"&toName&"','转账成功信息','"&sms_content&"',#"&now&"#,1,1)"
showmsg "恭喜恭喜，转帐成功","成功信息"
exit sub
end if
end sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -