📄 check.asp

📁 嘉缘人才6.0精简 ,很好用的人才系统
💻 ASP
字号:
<!--#include file="../../conn/conn.asp"-->
<!--#include file="../../inc/Commoncode.asp"-->
<!--#include file="../../inc/pay_md5.asp"-->
<!--#include file="../../inc/base64.asp"-->
<!--#include file="../paysub.asp"-->

<%
if session(FRHRCMS&"user_login")<>"" then 
user_class="预存会员费"
'					select case session("user_class")
'					case "pmember"
'					    user_class = "个人用户"
'					case "cmember"
'					   select case cint(session("user_type"))
'				   	   case 1
'					   user_class = "企业月VIP会员"
'					   case 2
'					   user_class = "企业季VIP会员"
'					   case 3
'					   user_class = "企业半年VIP会员"
'					   case 4
'					   user_class = "企业全年VIP会员"
'					   case 5
'					   user_class = "企业普通会员"
'					   end select
'					case "tmember"
'					   user_class = "培训会员"
'					case "smember"
'					   user_class = "院校会员"
'					end select
v_amount=Request("amount")
if Chkrequest(v_amount)=false then 
 Response.Write ("<script language=JavaScript>{alert('错误：对不起，输入金额有误！');location.href = 'javascript:history.go(-1)';}</script>")
 Response.End
end if

if v_amount<=0 then
 Response.Write ("<script language=JavaScript>{alert('错误：对不起，输入金额应该是大于0的整数！');location.href = 'javascript:history.go(-1)';}</script>")
 Response.End
end if

dim iii,ooo
iii=split(v_amount,".")
if ubound(iii)=0 then
v_amount=cstr(v_amount) & ".00"
else
if len(iii(1))=1 then v_amount=cstr(iii(0)) & "." &cstr(iii(1)) & "0"
if len(iii(1))=2 then v_amount=cstr(v_amount)
if len(iii(1))>2 then v_amount=cstr(iii(0)) & "." & left(iii(1),2)
end if
%>
<HTML><HEAD><TITLE>银行在线支付</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<SCRIPT language=JavaScript>
function conFirmAmount()
{
	var stConFirm = '您的转帐金额为: ' + document.netbank.amount.value + ' 元';
	return confirm(stConFirm);
}
</script><STYLE>TD {
	FONT-SIZE: 9pt; LINE-HEIGHT: 14pt
}
</STYLE>

<META content="MSHTML 6.00.2800.1226" name=GENERATOR></HEAD>
<BODY bgColor=#ffffff leftMargin=0 topMargin=0 marginheight="0" marginwidth="0">
<TABLE height=400 cellSpacing=0 cellPadding=2 width=500 
background=../pay_img/cmbchinabg.jpg border=0 align="center" style="border:#000000 1px double">
  <TBODY> 
  <TR>
    <TD vAlign=top>
      <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
        <TBODY>
        <TR>
          <TD><IMG height=86 src="../pay_img/blank.gif" width=10></TD>
          <TD>&nbsp;</TD></TR>
        <TR>
          <TD width=236 valign="top">请填入您要转帐的金额，转帐成功的话， <BR>
            该款项将直接划入您在本系统帐户上。 <BR>
            如果您正在进行交易，请确保您转帐的<BR>
            金额不少于您的交易金额。</TD>
          <TD vAlign=top>
		  <form method="post" action="paysend.asp" name="E_FORM" >
            <P>
              <input type=hidden name="v_amount" value="<%=v_amount%>">
	          <INPUT type=hidden value=<%=cint(request("paytype"))%> name=paytype>  
          </P>
  <TABLE cellSpacing=8 cellPadding=5 width="90%" border=0>  
              <TBODY>
              <TR>
                <TD>帐户名称：
                  <input name="username" type="text" value="<%=session(FRHRCMS&"user_login")%>" size="15" disabled="disabled"></TD>
			  </TR>
              <TR>
               <TR>
                <TD>充值用途：
                  <input name="userclass" type="text" value="<%=user_class%>" size="15" disabled="disabled"></TD>
               </TR>
			  <TR>
                <TD>请再次确认您输入的金额。</TD></TR>
              <TR>
                <TD>划帐金额： <INPUT size=18   name=amount value="<%=v_amount%>" disabled=1></TD></TR>
              <TR>
                <TD align=middle><INPUT type=image height=25 width=136 src="../pay_img/cmbsubmit.gif"  border=0></TD></TR></TBODY></TABLE></FORM>
<P>&nbsp;</P></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></BODY></HTML>
<%end if%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -