user_emoney.asp

打开目录ads文件夹 找到top_ads.js文件 用记事本打开后就可以看到: -------------------------------------- var head_ads_tx

%>
<script language=javascript>
<!--
var min_amount=<%response.write min_amount%>;
var base_unit_num=<%response.write dim_num(8)%>;
var strTemp="0123456789";
function emoney_pay_checkreturn()
{
  var num=document.emoney_frm_pay.pay_amount.value;
  if (num<5) 
  {
    alert('对不起，当前最低消费额为 5 元！');
    return false;
  }
  else
  {
    return click_return('您确定要购买 '+(num*base_unit_num)+' '+m_unit+'吗？\n\n您将支付 '+num+' 元人民币！\n\n点击确定进行在线支付购买……',1)
  }
}

function emoney_pay_checknum()
{
  //var num=emoney_pay_nums(document.emoney_frm_pay.pay_amount.value,min_amount);
  var num=document.emoney_frm_pay.pay_amount.value;
  document.emoney_frm_pay.pay_unit_num.value=num*base_unit_num;
}

function emoney_pay_nums(nums,bnum)
{
  var i,j;
  var tmpnum=nums;
  if (tmpnum=="" || tmpnum==null) { return bnum; }
  for (i=0;i<tmpnum.length;i++)
  {
    j=strTemp.indexOf(tmpnum.charAt(i));  
    if (j==-1) { return bnum; }
  }
  if (tmpnum<bnum) { tmpnum=bnum; }
  return tmpnum;
}
-->
</script>
<table cellspacing=1 cellpadding=4 class=table>
<tr><td class=td>&nbsp;<%response.write img_skin("m_user")%>购买<%response.write joekoe_cms.web_unit%></td></tr>
<tr class=bg_td><td align=center>
  <table border=0 class=tablew>
  <tr><td height=20>目前的人民币购买<%response.write joekoe_cms.web_unit%>的比率为：每&nbsp;<font class=red2><b>1</b></font>&nbsp;元人民币可购买&nbsp;<font class=red><b><%response.write dim_num(8)%></b></font>&nbsp;<%response.write joekoe_cms.web_unit%>，当前最低消费额为&nbsp;<font class=red><b><%response.write min_amount%></b></font>&nbsp;元</td></tr>
  </table>
</td></tr>
<tr class=bg_tds><td align=center>
  <table border=0 class=tablew>
<%
  if action="pay" and chk=true then
    call emoney_pay_chk()
  else
%>
  <form name=emoney_frm_pay action='?action=pay' method=post onsubmit="javascript:frm_submitonce(this);">
  <input type=hidden name=chk value='yes'>
  <tr><td height=30>
    <table border=0>
    <tr>
    <td>请输入您要购买<%response.write joekoe_cms.web_unit%>的人民币数额：</td>
    <td><input type=text name=pay_amount value='<%response.write min_amount%>' size=6 maxlength=10 onKeyUp="javascript:emoney_pay_checknum();" style="text-align: center">&nbsp;元</td>
    <td>可购买&nbsp;<input type=text name=pay_unit_num value='<%response.write min_amount*dim_num(8)%>' size=6 maxlength=10 readonly style="text-align: center">&nbsp;<%response.write joekoe_cms.web_unit%></td>
    <td><input type=submit value='在线支付购买' onclick="javascript:return emoney_pay_checkreturn();"></td>
    </tr>
    </table>
  </td></tr>
  </form>
<% end if %>
  </table>
</td></tr>
</table>
<%
end sub

sub emoney_converion()
%>
<table cellspacing=1 cellpadding=4 class=table>
<tr><td class=td>&nbsp;<%response.write img_skin("m_user")%>积分换算</td></tr>
<tr class=bg_td><td align=center>
  <table border=0 class=tablew>
  <tr><td>目前的积分换算率为：每&nbsp;<font class=red2><b><%response.write unit_num%></b></font>&nbsp;分可换算&nbsp;<font class=red><b>1</b></font>&nbsp;<%response.write joekoe_cms.web_unit%>，您目前可以换算：<font class=red><%response.write emoney_1&"</font>&nbsp;"&joekoe_cms.web_unit%></td></tr>
  </table>
</td></tr>
<tr class=bg_tds><td align=center>
<%if is_converion then%>
  <table border=0 class=tablew>
<% if action="converion" and chk=true and errs<>"" then %>
  <tr><td height=30><font class=red2>换算失败：</font>请输入一个不大于 <font class=red><%response.write emoney_1%></font> 的正整数！&nbsp;&nbsp;<input type=button name=go_back value='返回上一页' onclick="javascript:history.back(1);"></td></tr>
<% else %>
  <form name=emoney_frm_converion action='?action=converion' method=post onsubmit="javascript:frm_submitonce(this);">
  <input type=hidden name=chk value='yes'>
  <tr><td height=30>请输入您要换算的<%response.write joekoe_cms.web_unit%>数值：&nbsp;
<input type=text name=e_num size=12 maxlength=10 value=''>&nbsp;&nbsp;&nbsp;
<input type=checkbox name=e_all value='yes' class=bg_tds>&nbsp;全部换算&nbsp;&nbsp;&nbsp;
<input type=submit value='进行换算'></td></tr>
  </form>
<% end if %>
  </table>
<%else%>
  <table border=0 class=tablew>
  <tr><td height=30><font class=red><b>积分换算</b>功能暂时关闭！</font></td></tr>
  </table>
<%end if%>
</td></tr>
</table>
<%
end sub

sub emoney_virement()
%>
<table cellspacing=1 cellpadding=4 class=table>
<tr><td class=td>&nbsp;<%response.write img_skin("m_user")%>货币转帐</td></tr>
<tr class=bg_td><td align=center>
  <table border=0 class=tablew>
  <tr><td height=20>目前的转帐的手续费为：<font class=red2><b><%response.write dim_num(22)%>%</b></font>，不足&nbsp;<font class=red><b>1</b></font>&nbsp;<%response.write joekoe_cms.web_unit%>的按&nbsp;<font class=red><b>1</b></font>&nbsp;<%response.write joekoe_cms.web_unit%>计算</td></tr>
  </table>
</td></tr>
<tr class=bg_tds><td align=center>
<%if is_virement then%>
  <table border=0 class=tablew>
<% if action="virement" and chk=true and errs<>"" then %>
  <tr><td height=30><font class=red2>转帐失败：</font></td><td>请输入一个不大于 <font class=red><%response.write emoney_1%></font> 的正整数&nbsp;或&nbsp;您要转入的注册用户不存在！&nbsp;&nbsp;<input type=button name=go_back value='返回上一页' onclick="javascript:history.back(1);"></td></tr>
<% else %>
  <form name=emoney_frm_virement action='?action=virement' method=post onsubmit="javascript:frm_submitonce(this);">
  <input type=hidden name=chk value='yes'>
  <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 joekoe_cms.web_unit%>数值：&nbsp;
<input type=text name=e_num size=12 maxlength=10 value=''>&nbsp;&nbsp;&nbsp;
<input type=checkbox name=e_all value='yes' class=bg_tds>&nbsp;全部转帐&nbsp;&nbsp;&nbsp;
<input type=submit value='进行转帐'></td></tr>
  </form>
<% end if %>
  </table>
<%else%>
  <table border=0 class=tablew>
  <tr><td height=30><font class=red><b>货币转帐</b>功能暂时关闭！</font></td></tr>
  </table>
<%end if%>
</td></tr>
</table>
<%
end sub

sub emoney_card()
%>
<table cellspacing=1 cellpadding=4 class=table>
<tr><td class=td>&nbsp;<%response.write img_skin("m_user")%>会员卡充值</td></tr>
<tr class=bg_td><td align=center>
  <table border=0 class=tablew>
<% if action="card" and chk=true and errs<>"" then %>
  <tr><td height=30><font class=red2>会员卡充值失败：</font></td><td>您输入的会员 <font class=red>卡号</font> 或 <font class=red>密码</font> 有错误！&nbsp;&nbsp;<input type=button name=go_back value='返回上一页' onclick="javascript:history.back(1);"></td></tr>
<% else %>
  <form name=emoney_frm_card action='?action=card' method=post onsubmit="javascript:frm_submitonce(this);">
  <input type=hidden name=chk value='yes'>
  <tr><td height=30>
    <table border=0>
    <tr>
    <td>卡号：&nbsp;<input type=text name=c_name size=20 maxlength=20></td>
    <td>&nbsp;&nbsp;密码：&nbsp;<input type=password name=c_pass size=20 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 border=0>
<tr height=50 align=center>
<td><a href='?action=pay'><img src='<%response.write joekoe_cms.web_dir_skin%>main/emoney_pay.gif' border=0></a></td>
<td width=30></td>
<td><a href='?action=converion'><img src='<%response.write joekoe_cms.web_dir_skin%>main/emoney_converion.gif' border=0></a></td>
<td width=30></td>
<td><a href='?action=virement'><img src='<%response.write joekoe_cms.web_dir_skin%>main/emoney_virement.gif' border=0></a></td>
<td width=30></td>
<td><a href='?action=card'><img src='<%response.write joekoe_cms.web_dir_skin%>main/emoney_card.gif' border=0></a></td>
</tr>
</table>
<table cellspacing=1 cellpadding=4 class=table>
<tr><td class=td><%response.write img_skin("m_user")%>当前信息</td></tr>
<tr class=bg_td><td align=center>
  <table border=0 class=tablew>
  <tr><td height=25>您目前拥有的<%response.write tit%>为：<font class=red><%response.write login_emoney&"</font>&nbsp;"&joekoe_cms.web_unit%>，社区积分为：<font class=red><%response.write login_integral%></font>&nbsp;分</td></tr>
  </table>
</td></tr>
</table>
<%
end sub

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