user_emoney.asp

漂亮的企业网站系统v11 1、整体修改了上一版的一些BUG。 2、修改了页面底部的统计形式。 3、修改了“公告更新”栏目

<!-- #include file="include/config_user.asp" -->
<!-- #include file="include/jk_ubb.asp" -->
<!-- #include file="include/conn.asp" -->
<%
dim integral,unit_num,emoney_1,chk,errs
tit="虚拟货币"

call web_head(2,0,0,0,0)
'------------------------------------left----------------------------------
call left_user()
'----------------------------------left end--------------------------------
call web_center(0)
'-----------------------------------center---------------------------------
response.write ukong
call emoney_top()

call emoney_main()

response.write ukong
'---------------------------------center end-------------------------------
call web_end(0)

sub emoney_main()
  dim emoneys,emoney_2,e_num,e_all,c_name,c_pass,c_emoney,c_id,userp
  unit_num=int(web_var(web_num,14)):errs="":emoney_2=0:c_id=0
  set rs=conn.execute("select integral from user_data where hidden=1 and username='"&login_username&"'")
  integral=rs("integral")
  rs.close:set rs=nothing
  emoney_1=integral\unit_num:userp=format_power(login_mode,2)
  if not(isnumeric(userp)) then userp=0
  userp=int(userp)
  chk=trim(request.querystring("chk"))
  if action<>"virement" and action<>"card" then action="converion"
  
  if (action="converion" or action="virement") and chk="yes" then
    e_num=trim(request.form("e_num")):e_all=trim(request.form("e_all"))
    emoneys=emoney_1
    if action="virement" then emoneys=login_emoney
    if e_all="yes" then
      emoney_2=emoneys
    else
      if not(isnumeric(e_num)) then
        errs="no"
      else
        if instr(1,e_num,".")>0 then
          errs="no"
        else
         if int(e_num)<1 or int(e_num)>int(emoneys) then
           errs="no"
         else
           emoney_2=e_num
         end if
        end if
      end if
    end if
    
    if action="converion" and int(emoney_2)>0 then
      conn.execute("update user_data set integral=integral-"&emoney_2*unit_num&",emoney=emoney+"&emoney_2&" where username='"&login_username&"'")
      integral=integral-emoney_2*unit_num:login_emoney=login_emoney+emoney_2:emoney_1=emoney_1-emoney_2
      response.write "<script language=javascript>alert(""您已成功换算了 "&emoney_2&" "&m_unit&"！\n\n您的积分消耗了："&emoney_2*unit_num&" 分\n\n目前的积分换算率为：每 "&unit_num&" 分可换算 1 "&m_unit&""");</script>"
    end if
    
    if action="virement" and int(emoney_2)>0 then
      dim username2:username2=trim(request.form("username2"))
      if symbol_name(username2)<>"yes" then
        errs="no"
      else
        set rs=conn.execute("select username from user_data where username='"&username2&"'")
        if rs.eof and rs.bof then errs="no"
        rs.close:set rs=nothing
      end if
      if errs="" then
        conn.execute("update user_data set emoney=emoney-"&emoney_2&" where username='"&login_username&"'")
        conn.execute("update user_data set emoney=emoney+"&emoney_2&" where username='"&username2&"'")
        login_emoney=login_emoney-emoney_2
        response.write "<script language=javascript>alert(""您已成功的给 "&username2&" 转帐了 "&emoney_2&" "&m_unit&"！\n\n您的拥有的"&tit&"也减少了："&emoney_2&" "&m_unit&""");</script>"
        sql="insert into user_mail(send_u,accept_u,topic,word,tim,types,isread) " & _
	    "values('"&login_username&"','"&username2&"','[系统]货币转帐信息提示','"&login_username&" 已成功的给 您 转帐了 "&emoney_2&" "&m_unit&"！','"&now_time&"',1,0)"
	conn.execute(sql)
      end if
    end if
  end if
  
  if action="card" and chk="yes" then
    c_name=code_form(trim(request.form("c_name")))
    c_pass=code_form(trim(request.form("c_pass")))
    if len(c_name)<1 or len(c_pass)<1 then errs="no"
    if errs="" then
      sql="select c_id,c_emoney from cards where c_name='"&c_name&"' and c_pass='"&c_pass&"' and c_hidden=0"
      set rs=conn.execute(sql)
      if rs.eof and rs.bof then
        errs="no"
      else
        c_id=rs("c_id"):c_emoney=rs("c_emoney")
      end if
      rs.close:set rs=nothing
    end if
    if errs="" then
      dim ok_msg:ok_msg=""
      conn.execute("update cards set c_hidden=1 where c_id="&c_id)
      sql="update user_data set emoney=emoney+"&c_emoney
      'if int(userp)>3 then sql=sql&",power="&format_power2(3,1):ok_msg="\n\n您也同时升级为 VIP 会员！"
      sql=sql&" where username='"&login_username&"'"
      conn.execute(sql)
      login_emoney=login_emoney+c_emoney
      response.write "<script language=javascript>alert(""您已成功的用会员卡（卡号："&c_name&"）给您充值了 "&c_emoney&" "&m_unit&"！"&ok_msg&""");</script>"
    end if
  end if
  
  select case action
  case "virement"
    call emoney_virement()
    call emoney_card()
    call emoney_converion()
  case "card"
    call emoney_card()
    call emoney_converion()
    call emoney_virement()
  case else
    call emoney_converion()
    call emoney_virement()
    call emoney_card()
  end select
  
  response.write ukong&table1
%>
<tr<%response.write table2%>><td>&nbsp;<%response.write img_small("fk00")%>&nbsp;<font class=end><b>相关说明</b></font></td></tr>
<tr<%response.write table3%>><td align=center>
  <table border=0 width='96%'>
  <tr><td height=25><font class=red>注意：</font></td><td>您输入的换算的<%response.write m_unit%>数值不能超过您目前可以换算的最大值（<font class=red><%response.write emoney_1&"</font>&nbsp;"&m_unit%>）</td></tr>
  <tr><td height=25></td><td>您输入的要转帐的<%response.write m_unit%>数值不能超过您目前拥有的最大值（<font class=red><%response.write login_emoney&"</font>&nbsp;"&m_unit%>）</td></tr>
  <tr><td height=25></td><td>您在这里进行的<font class=blue>积分换算</font>和<font class=blue>货币转帐</font>为<font class=red>不可逆操作</font>！请在操作前注意一下。</td></tr>
  </table>
</td></tr>
</table><%
  response.write ukong
end sub

sub emoney_converion()
  response.write ukong&table1
%>
<tr<%response.write table2%>><td>&nbsp;<%response.write img_small("fk00")%>&nbsp;<font class=end><b>积分换算</b></font></td></tr>
<tr<%response.write table3%>><td align=center>
  <table border=0 width='96%'>
  <tr><td height=25>您目前拥有的<%response.write tit%>为：<font class=red><%response.write login_emoney&"</font>&nbsp;"&m_unit%></td></tr>
  </table>
</td></tr>
<tr<%response.write table3%>><td align=center>
  <table border=0 width='96%'>
  <tr><td height=25>目前的积分换算率为：每&nbsp;<font class=red_3><b><%response.write unit_num%></b></font>&nbsp;分可换算&nbsp;<font class=red><b>1</b></font>&nbsp;<%response.write m_unit%></td></tr>
  <tr><td height=25>您目前的社区积分为：<font class=red_3><%response.write integral%></font>&nbsp;分</td></tr>
  <tr><td height=25>您目前可以换算：<font class=red><%response.write emoney_1&"</font>&nbsp;"&m_unit%></td></tr>
  </table>
</td></tr>
<tr<%response.write table3%>><td align=center>
  <table border=0 width='96%'>
<% if action="converion" and chk="yes" and errs<>"" then %>
  <tr><td height=50><font class=red_2>换算失败：</font>请输入一个不大于 <font class=red><%response.write emoney_1%></font> 的正整数！
&nbsp;&nbsp;&nbsp;&nbsp;<%response.write go_back%></td></tr>
<% else %>
  <form name=emoney_frm_1 action='?action=converion&chk=yes' method=post>
  <tr><td height=50>请输入您要换算的<%response.write m_unit%>数值：&nbsp;
<input type=text name=e_num size=12 maxlength=10 value=''>&nbsp;&nbsp;&nbsp;
<input type=checkbox name=e_all value='yes'>&nbsp;全部换算&nbsp;&nbsp;&nbsp;
<input type=submit value='进行换算'></td></tr>
  </form>
<% end if %>
  </table>
</td></tr>
</table><%
end sub

sub emoney_virement()
  response.write ukong&table1
%>
<tr<%response.write table2%>><td>&nbsp;<%response.write img_small("fk00")%>&nbsp;<font class=end><b>货币转帐</b></font></td></tr>
<tr<%response.write table3%>><td align=center>
  <table border=0 width='96%'>
  <tr><td height=25>您目前拥有的<%response.write tit%>为：<font class=red><%response.write login_emoney&"</font>&nbsp;"&m_unit%></td></tr>
  </table>
</td></tr>
<tr<%response.write table3%>><td align=center>
  <table border=0 width='96%'>
<% if action="virement" and chk="yes" and errs<>"" then %>
  <tr><td height=50><font class=red_2>转帐失败：</font></td><td>请输入一个不大于 <font class=red><%response.write emoney_1%></font> 的正整数&nbsp;或&nbsp;您要转入的注册用户不存在！&nbsp;&nbsp;<%response.write go_back%></td></tr>
<% else %>
  <form name=emoney_frm_2 action='?action=virement&chk=yes' method=post>
  <tr><td height=10></td></tr>
  <tr><td height=30>请输入您要转帐的注册用户：&nbsp;
<input type=text name=username2 size=15 maxlength=20 value=''>&nbsp;&nbsp;&nbsp;
<%response.write friend_select()%>
</td></tr>
  <tr><td height=30>请输入您要转帐的<%response.write m_unit%>数值：&nbsp;
<input type=text name=e_num size=12 maxlength=10 value=''>&nbsp;&nbsp;&nbsp;
<input type=checkbox name=eall value='yes'>&nbsp;全部转帐&nbsp;&nbsp;&nbsp;
<input type=submit value='进行转帐'></td></tr>
  <tr><td height=10></td></tr>
  </form>
<% end if %>
  </table>
</td></tr>
</table><%
end sub

sub emoney_card()
  response.write ukong&table1
%>
<tr<%response.write table2%>><td>&nbsp;<%response.write img_small("fk00")%>&nbsp;<font class=end><b>会员卡充值</b></font></td></tr>
<tr<%response.write table3%>><td align=center>
  <table border=0 width='96%'>
  <tr><td height=25>您目前拥有的<%response.write tit%>为：<font class=red><%response.write login_emoney&"</font>&nbsp;"&m_unit%></td></tr>
  </table>
</td></tr>
<tr<%response.write table3%>><td align=center>
  <table border=0 width='96%'>
<% if action="card" and chk="yes" and errs<>"" then %>
  <tr><td height=50><font class=red_2>会员卡充值失败：</font></td><td>您输入的会员 <font class=red>卡号</font> 或 <font class=red>密码</font> 有错误！&nbsp;&nbsp;<%response.write go_back%></td></tr>
<% else %>
  <form name=emoney_frm_3 action='?action=card&chk=yes' method=post>
  <tr><td height=50>
    <table border=0>
    <tr>
    <td>卡号：&nbsp;<input type=text name=c_name size=15 maxlength=20></td>
    <td>&nbsp;&nbsp;密码：&nbsp;<input type=password name=c_pass size=15 maxlength=20></td>
    <td>&nbsp;&nbsp;<input type=submit value='会员卡充值'></td>
    </tr>
    </table>
  </td><tr>
  </form>
<% end if %>
  </table>
</td></tr>
</table><%
end sub

sub emoney_top()
%>
<table width="512" border=0>
  <tr align=center> 
    <td width="100" height=50><a href='?action=converion'><img src='images/small/emoney_converion.gif' border=0></a></td>
    <td width=28></td>
    <td width="100"><a href='?action=virement'><img src='images/small/emoney_virement.gif' border=0></a></td>
    <td width=29></td>
    <td width="100"><a href='?action=card'><img src='images/small/emoney_card.gif' border=0></a></td>
    <td width="30">&nbsp;</td>
    <td width="95"><a href="z_bank_index.asp" target="_self"><img src="IMAGES/SMALL/emoney_bank.gif" width="95" height="25" border="0"></a></td>
  </tr>
</table>
<%
end sub

function friend_select()
  dim sql,rs,ttt
  friend_select=vbcrlf&"<script language=javascript>" & _
		vbcrlf&"function Do_accept(addaccept) {" & _
		vbcrlf&"  if (addaccept!=0) { document.emoney_frm_2.username2.value=addaccept; }" & _
		vbcrlf&"  return;" & _
		vbcrlf&"}</script>" & _
		vbcrlf&"<select name=friend_select size=1 onchange=Do_accept(this.options[this.selectedIndex].value)>" & _
		vbcrlf&"<option value='0'>选择我的好友</option>"
  sql="select username2 from user_friend where username1='"&login_username&"' order by id"
  set rs=conn.execute(sql)
  do while not rs.eof
    ttt=rs(0)
    friend_select=friend_select&vbcrlf&"<option value='"&ttt&"'>"&ttt&"</option>"
    rs.movenext
  loop
  rs.close
  friend_select=friend_select&vbcrlf&"</select>"
end function
%>