jmsdpay1.asp

来自「书店的管理系统。不错的一个源程序。提供给大家。」· ASP 代码 · 共 420 行

ASP
420 行
字号 
<%@ Language=VBScript %>
<%
ShopID=request("ShopID")

set con=server.createobject("ADODB.Connection")
con.open Application("str_con")

set res=server.createobject("ADODB.Recordset")
set res.ActiveConnection = con

res.source="select number from tempgwc where s_id='"&Session.SessionID&"'"
res.cursorlocation=3
res.open ,,adOpenDaynamic

if res.recordcount<1 then
%>
	<font style="font-size: 9pt">对不起，您还没有挑选要购买的书！</font>
<% 
	Res.Close () 
	con.Close ()
	Response.End
end if
	
Res.Close () 
 
if Session("log_name")="" then 
	Session("after_log_to")="../payment/JMSDpay1.asp?ShopID="&ShopID
	Response.Redirect ("../userlog/login.htm") 
else 
	Session("after_log_to")="" 
end if 
%> 

<html>

<head>
<meta NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
<title></title>
<SCRIPT ID=clientEventHandlersJS LANGUAGE=javascript>
<!--

function form_onsubmit(theForm) {
  if (theForm.name.value == "")
  {
    alert("请输入 \"收货人姓名\" .");
    theForm.name.focus();
    return (false);
  }

  if (theForm.name.value.length > 50)
  {
    alert("Please enter at most 50 characters in the \"name\" field.");
    theForm.name.focus();
    return (false);
  }

  if (theForm.comaddr.value == "")
  {
    alert("请输入 \"收货人通信地址\" .");
    theForm.comaddr.focus();
    return (false);
  }

  if (theForm.comaddr.value.length > 100)
  {
    alert("Please enter at most 100 characters in the \"comaddr\" field.");
    theForm.comaddr.focus();
    return (false);
  }

  if (theForm.zipcode.value == "")
  {
    alert("请输入 \"收货人邮编\" .");
    theForm.zipcode.focus();
    return (false);
  }

  if (theForm.zipcode.value.length < 6)
  {
    alert("\"邮政编码\" 输入错误.");
    theForm.zipcode.focus();
    return (false);
  }

  if (theForm.zipcode.value.length > 6)
  {
    alert("\"邮政编码\" 输入错误.");
    theForm.zipcode.focus();
    return (false);
  }

  var checkOK = "0123456789";
  var checkStr = theForm.zipcode.value;
  var allValid = true;
  var decPoints = 0;
  var allNum = "";
  for (i = 0;  i < checkStr.length;  i++)
  {
    ch = checkStr.charAt(i);
    for (j = 0;  j < checkOK.length;  j++)
      if (ch == checkOK.charAt(j))
        break;
    if (j == checkOK.length)
    {
      allValid = false;
      break;
    }
    allNum += ch;
  }
  if (!allValid)
  {
    alert("\"邮政编码\" 输入错误.");
    theForm.zipcode.focus();
    return (false);
  }

  if (theForm.tel.value == "")
  {
    alert("请输入 \"收货人联系电话\".");
    theForm.tel.focus();
    return (false);
  }

  var checkOK = "0123456789()-";
  var checkStr = theForm.tel.value;
  var allValid = true;
  for (i = 0;  i < checkStr.length;  i++)
  {
    ch = checkStr.charAt(i);
    for (j = 0;  j < checkOK.length;  j++)
      if (ch == checkOK.charAt(j))
        break;
    if (j == checkOK.length)
    {
      allValid = false;
      break;
    }
  }
  if (!allValid)
  {
    alert("请重输 \"收货人联系电话\".");
    theForm.tel.focus();
    return (false);
  }

  if (theForm.e_mail.value == "")
  {
    alert("请输入 \"e_mail\" .");
    theForm.e_mail.focus();
    return (false);
  }

  if (theForm.e_mail.value.length > 50)
  {
    alert("Please enter at most 50 characters in the \"e_mail\" field.");
    theForm.e_mail.focus();
    return (false);
  }

  if (theForm.othercom.value.length > 100)
  {
    alert("Please enter at most 100 characters in the \"othercom\" field.");
    theForm.othercom.focus();
    return (false);
  }
  
  return (true);
}

//-->
</SCRIPT>
</head>

<body text=Blue style="font-size: 9pt">
<% 
log_name=Session("log_name")  
 
res.source="select name,e_mail,comaddr,zipcode,detaddr,othercom,tel from User_login where log_name='"&log_name&"'" 
res.cursorlocation=3 
res.open ,,adOpenDaynamic 
 
name="" 
comaddr="" 
zipcode="" 
tel="" 
e_mail="" 
detaddr="" 
othercom="" 
if res.recordcount<1 then 
	Response.Write "没有查找到您的个人信息！" 
else 
	name=Res("name").value 
	comaddr=Res("comaddr").value 
	zipcode=Res("zipcode").value 
	tel=Res("tel").value 
	e_mail=Res("e_mail").value 
	detaddr=Res("detaddr").value 
	othercom=Res("othercom").value 
end if 
Res.close  
%> 
 
    <div align="center"> 
      <center> 
      <table border="0" width="100%"> 
        <tr> 
          <td width="100%" bgcolor="#FF00FF"> 
            <p align="center"><b><font color="#0000A0">请输入收货人信息</font></b></td> 
        </tr> 
      </table> 
      </center> 
    </div> 
   
<form method="POST" action="JMSDpay4<%=ShopID%>.asp" enctype="GB2312" name="form" LANGUAGE=javascript onsubmit="return form_onsubmit(this)">   
  <table border="0" width="100%" style="font-size: 9pt" align=center>   
    <tr>   
      <td width="16%" align=right><font color="#FF0000">*</font>姓名</td>   
      <td width="13%" align=right> 
        <p align="left"><input type="text" name="name" style="font-size: 9pt" value="<%=name%>" size="11"></p> 
      </td>   
      <td width="5%"> 
        <p align="right"><font color="#FF0000">*</font>邮编</td>   
      <td width="10%"><input type="text" name="zipcode" style="font-size: 9pt" value="<%=zipcode%>" maxlength=6 size="7"></td>   
      <td width="10%"> 
        <p align="right"><font color="#FF0000">*</font>联系电话</td>   
      <td width="22%"><input type="text" name="tel" style="font-size: 9pt" value="<%=tel%>"></td>   
      <td width="7%"> 
        <p align="right"><font color="#FF0000">*</font>E-mail</td>   
      <td width="18%"><input type="text" name="e_mail" style="font-size: 9pt" value="<%=e_mail%>"></td>   
    </tr>   
    <tr>   
      <td width="16%" align=right><font color="#FF0000">*</font>通信地址</td>   
      <td width="88%" align=right colspan="7"> 
        <p align="left"><input type="text" name="comaddr" style="font-size: 9pt" value="<%=comaddr%>" size=65></td>   
    </tr>   
    <tr>   
      <td width="13%" align=right>详细地址</td>   
      <td width="89%" align=right colspan="7"> 
        <p align="left"><input type="text" name="detaddr" style="font-size: 9pt" value="<%=detaddr%>" size=65></p> 
      </td>   
    </tr>   
    <tr>   
      <td width="13%" align=right> 
        <p align="right">其他联系方式</p> 
      </td>   
      <td width="89%" align=right colspan="7"> 
        <p align="left"><textarea rows=4 name="othercom" style="font-size: 9pt" cols=63><%=othercom%></textarea></p> 
      </td>   
    </tr>   
  </table>   
 
<p>   
   




<%
res.source="select 书店名称,是否送货上门,送货上门说明,大陆平邮说明,货到付款说明,银行汇款银行转帐说明,邮局汇款说明 from JMSD where 书店ID='"&ShopID&"'" 
res.cursorlocation=3 
res.open ,,adOpenDaynamic 
%>
    <div align="center"> 
      <center> 
      <table border="0" width="100%"> 
        <tr> 
          <td width="100%" bgcolor="#FF00FF"> 
            <p align="center"><b><font color="#0000A0">请选择送货方式</font></b></td> 
        </tr> 
      </table> 
      </center> 
    </div> 
 
  <table border="0" width="100%" style="font-size: 9pt"> 



	<%if res("是否送货上门") then%>
    <tr bgcolor="PapayaWhip">  
      <td width="100%" colspan="2"> 
        <input type="radio" value="送货上门" name="R1"> 送货上门
      </td> 
    </tr> 

    <tr>  
      <td width="100%" colspan="2">
      <%=res("送货上门说明")%>
      </td> 
    </tr> 

    <tr>  
      <td width="50%">请选定您方便的收货时间： <input type="text" name="send_time" size="20"> </td> 
      <td width="50%">留言：  <input type="text" name="leave_word" size="32"> </td> 
    </tr>
    <%end if%>




    <tr>  
      <td width="100%" bgcolor="PapayaWhip" colspan="2"> 
        <input type="radio" name="R1" value="大陆平邮" checked> 大陆平邮：</td> 
    </tr> 

	<tr>
	<td width="100%" colspan="2">
	<%=res("大陆平邮说明")%>
	</td>
	</tr>

  </table> 

  <div align="center"><center><p></center></div> 
 
   
   
   
   
   
    <div align="center"> 
      <center> 
      <table border="0" width="100%"> 
        <tr> 
          <td width="100%" bgcolor="#FF00FF"> 
            <p align="center"><b><font color="#0000A0">请选择付款方式</font></b></td> 
        </tr> 
      </table> 
      </center> 
    </div> 

请选择付款方式（除另有说明外，以下方式全国通用）

  <table border="0" width="100%" style="font-size: 9pt">

	<%if res("是否送货上门") then%>
    <tr bgcolor="PapayaWhip"> 
      <td width="100%"> <input type="radio" value="货到付款" name="pay_method">货到付款</td>
    </tr>

    <tr>
      <td width="100%">
      <%=res("货到付款说明")%>
      </td>
    </tr>
    <%end if%>



    <tr bgcolor="PapayaWhip"> 
      <td width="100%"> <input type="radio" name="pay_method" value="银行汇款、银行转帐">银行汇款、银行转帐</td>
    </tr>

    <tr>
      <td width="100%">
      <%=res("银行汇款银行转帐说明")%>
      </td>
    </tr>



    <tr bgcolor="PapayaWhip"> 
      <td width="100%"> <input type="radio" name="pay_method" value="邮局汇款" checked>邮局汇款</td>
    </tr>

    <tr>
      <td width="100%">
      <%=res("邮局汇款说明")%>
      </td>
    </tr>

    <tr></tr>




    <tr>
      <td width="100%">网上直接划付，我们已开通了以下银行的网上支付：</td>
    </tr>
    <tr bgcolor="PapayaWhip"> 
      <td width="100%"> 
        <input type="radio" name="pay_method" value="招商银行一网通">
        招商银行一网通（北京24小时内完成结算）（也可直接选招行一网通）</td>
    </tr>
    <tr>
      <td width="100%" height="25"></td>
    </tr>
  </table>


  <div align="center"><center><p>

  欢迎您到<%=res("书店名称")%>交款处<p>
  
  <input type="hidden" name="ShopID" value="<%=ShopID%>">
  <input type="hidden" name="ShopName" value="<%=res("书店名称")%>">
  
  <input type="submit" value="下一步" name="B1">

  </p>
  </center></div>
   
</form>   

 
<%
Res.close
con.Close
%> 

</body> 
</html>

jmsdpay1.asp - 源码说明

本页面展示了「书店的管理系统。不错的一个源程序。提供给大家。」中的 jmsdpay1.asp 源码文件，采用 ASP 编程语言编写，共 420 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与管理系统相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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