ProductBuySave.asp?MemberID=6

       ä¸€ã€‚一个在线订购表单。两个文件：1、ProductBuy.asp。2、ProductBuySave.asp。二。问题：在ProductBuy.asp页面填好订购信息，点提交，调用ProductBuySave.asp错误。无法显示。三。两个文件的源码：1、ProductBuy.asp<%

       dim ProductName,ProductNo

       ProductName=request.QueryString("ProductName")

       ProductNo=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)

       dim MemID,mRealName,mSex,mCompany,mAddress,mZipCode,mTelephone,mFax,mMobile,mEmail

       if session("MemName")<>"" and session("MemLogin")="Succeed" then

       call MemInfo()

       else

       mSex="Male"

       MemID=0

       end if

       %>

       <div align="center">

       <table width="" border="0" cellspacing="0" cellpadding="0" class="Outside">

       <tr>

       <td width="" valign="top" class="leftCenter" > </td>

       <td width="5"></td>

       <td valign="top" class="AllCenter"><table width="%" border="0" cellspacing="0" cellpadding="0">

       <tr>

       <td width="" height="1" background="../Images/TitBG.gif"></td>

       </tr>

       </table>

       <table width="%" border="0" cellspacing="0" cellpadding="0">

       <tr>

       <td width="" height=""> </td>

       <td> </td>

       <td width=""> </td>

       </tr>

       <tr>

       <td> </td>

       <td>

       <table width="" border="0" cellspacing="0" cellpadding="1">

       <form name="formBuy" method="post" action="ProductBuySave.asp?MemberID=<%=MemID%>">

       <tr>

       <td width="" align="right">Product Name:</td>

       <td width=""><input name="ProductName" type="text" class="TextBox" id="ProductName" value="<%=ProductName%>" size="" maxlength=""> <font color="#CC">*</font></td>

       </tr>

       <tr>

       <td align="right">Date:</td>

       <td>

       <%if da1="" then %>

       <script language=javascript>

       var myDate=new dateSelector0();

       myDate.year;

       myDate.date;

       myDate.inputName='start_date'; //注意这里设置输入框的name，同一页中日期输入框，不能出现重复的name�8�7

       myDate.display();

       </script>

       <%else%>

       <input name="start_date" type="text" class="TextBox" value="<%=da1%>" size="" maxlength="">

       <%end if%>

        <font color="#CC">*</font></td>

       </tr>

       <tr>

       <td align="right">PRoductNO.:</td>

       <td><input name="ProductNo" type="text" class="TextBox" id="ProductNo" value="<%=ProductNo%>" size="" maxlength=""> <font color="#CC">*</font></td>

       </tr>

       <tr>

       <td align="right">Amount:</td>

       <td><input name="Amount" type="text" class="TextBox" id="Amount" value="1" size="" maxlength="">

        <font color="#CC">*</font> Please add on the unit, like "1piece"</td>

       </tr>

       <tr>

       <td align="right">Remark:</td>

       <td><textarea name="Remark" cols="" rows="8" class="TextBox" id="Remark"></textarea></td>

       </tr>

       <tr>

       <td align="right">Name:</td>

       <td><input name="RealName" type="text" class="TextBox" id="RealName" value="<%=mRealName%>" size="" maxlength=""> <font color="#CC">*</font></td>

       </tr>

       <tr>

       <td align="right">Sex:</td>

       <td><input name="Sex" type="radio" value="Male" <%if mSex="Male" then response.write ("checked")%>>Male

       <input type="radio" name="Sex" value="FeMale" <%if mSex="FeMale" then response.write ("checked")%>>FeMale</td> </tr>

       <tr>

       <td align="right">Company:</td>

       <td><input name="Company" type="text" class="TextBox" id="Company" value="<%=mCompany%>" size="" maxlength="">

       <span style="color: #FF"> * Personal please fill in "Personal"</span></td>

       </tr>

       <tr>

       <td align="right">Address:</td>

       <td><input name="Address" type="text" class="TextBox" id="Address" value="<%=mAddress%>" size="" maxlength="">

       <span style="color: #FF"> * The address please fill in detail</span></td>

       </tr>

       <tr>

       <td align="right">ZipCode:</td>

       <td><input name="ZipCode" type="text" class="TextBox" id="ZipCode" value="<%=mZipCode%>" size="" maxlength="">

       <span style="color: #FF"> * Like:</span></td>

       </tr>

       <tr>

       <td align="right">Phone:</td>

       <td><input name="Telephone" type="text" class="TextBox" id="Telephone" value="<%=mTelephone%>" size="" maxlength="">

        <span style="color: #FF">* At least numbers</span></td>

       </tr>

       <tr>

       <td align="right">FAX:</td>

       <td><input name="Fax" type="text" class="TextBox" id="Fax" value="<%=mFax%>" size="" maxlength=""></td>

       </tr>

       <tr>

       <td align="right">Mobile:</td>

       <td><input name="Mobile" type="text" class="TextBox" id="Mobile" value="<%=mMobile%>" size="" maxlength=""></td>

       </tr>

       <tr>

       <td align="right">Email:</td>

       <td><input name="Email" type="text" class="TextBox" id="Email" value="<%=mEmail%>" size="" maxlength=""> <font color="#CC">*</font></td>

       </tr>

       <tr>

       <td height="" align="right"> </td>

       <td valign="bottom">

       <input name="Submit" type="submit" class="button" value=" Submit ">

       <input name="Reset" type="reset" class="button" value=" Reset "></td>

       </tr>

       </form>

       </table> </td>

       <td> </td>

       </tr>

       <tr>

       <td height=""></td>

       <td></td>

       <td></td>

       </tr>

       </table></td>

       </tr>

       </table>

       </div>

       <%

       function WebMenu(DataFrom,ID)

       Dim rs,sql

       Set rs=server.CreateObject("adodb.recordset")

       sql="Select * From "&DataFrom&" where ParentID="&id&" and ViewFlag order by id"

       rs.open sql,conn,1,1

       response.write("<table width='' border='0' cellspacing='0' cellpadding='0'>")

       if id=0 and rs.bof and rs.eof then

       response.write "<tr><td align='center'>No Data</td></tr>"

       else

       while not rs.eof

       response.write "<tr class='WebMenu'><td width=''><img src='../Images/Arrow_.gif' width='' height=''></td>"

       response.write "<td><a href='ProductList.asp?SortID="&rs("ID")&"&SortPath="&rs("SortPath")&"'>"&rs("SortName")&"</a></td></tr>"

       rs.movenext

       wend

       end if

       response.write("</table>")

       rs.close

       set rs=nothing

       end functionsub MemInfo()

       dim rs,sql

       set rs = server.createobject("adodb.recordset")

       sql="select * from Ameav_Members where MemName='"&session("MemName")&"'"

       rs.open sql,conn,1,1

       if rs.bof and rs.eof then

       response.write "No Data"

       else

       MemID=rs("ID")

       if not rs("RealName")="" then

       mRealName=rs("RealName")

       else

       mRealName=rs("MemName")

       end if

       mSex=rs("Sex")

       mCompany=rs("Company")

       mAddress=rs("Address")

       mZipCode=rs("ZipCode")

       mTelephone=rs("Telephone")

       mFax=rs("Fax")

       mMobile=rs("Mobile")

       mEmail=rs("Email")

       end if

       rs.close

       set rs=nothing

       end sub

       %>四。如果解决了问题，可加分。五。或者QQ联系：问题补充 -- :、ProductBuySave.asp<% Option Explicit %>

       <%Response.Charset="utf-8"%>

       <!--#include file="../Include/Const.asp"-->

       <!--#include file="../Include/ConnSiteData.asp"-->

       <!--#include file="../Include/Function.asp"-->

       <!--#include file="../Include/NoSqlHack.Asp" --><%

       dim Productname,ProductNo,Amount,Remark,StartDate

       dim MemID,RealName,Sex,Company,Address,ZipCode,Telephone,Fax,Mobile,Email,VerifyCode

       dim rs,sql

       StartDate=request.form("Start_Date")

       ProductName=trim(request.form("ProductName"))

       ProductNo=trim(request.form("ProductNo"))

       Amount=trim(request.form("Amount"))

       Remark=request.form("Remark")

       MemID=request.QueryString("MemberID")

       RealName=trim(request.form("RealName"))

       Sex=trim(request.form("Sex"))

       Company=trim(request.form("Company"))

       Address=trim(request.form("Address"))

       ZipCode=trim(request.form("ZipCode"))

       Telephone=trim(request.form("Telephone"))

       Fax=trim(request.form("Fax"))

       Mobile=trim(request.form("Mobile"))

       Email=trim(request.form("Email"))

       dim ErrMessage,ErrMsg(9),FindErr(9),i

       ErrMsg(0)="·The product range must fill, the length cannot surpass characters"

       ErrMsg(1)="·The product nomber must fill, the length cannot surpass characters"

       ErrMsg(2)="·The order number must fills, the length cannot surpass characters."

       ErrMsg(3)="·The name must fill, the length cannot surpass characters"

       ErrMsg(4)="·The company name,address must fill,the length must be 8- characters"

       ErrMsg(5)="·The zipcode length must be 6- characters"

       ErrMsg(6)="·The phone number length must be 7- characters"

       ErrMsg(7)="·The fax,mobile number length cannot surpass characters"

       ErrMsg(8)="·The email address form is not correct"

       if len(ProductName)> or len(ProductName)=0 then

       FindErr(0)=true

       end if

       if len(ProductNo)> or len(ProductNo)=0 then

       FindErr(1)=true

       end if

       if len(Amount)> or len(Amount)=0 then

       FindErr(2)=true

       end if

       if len(RealName)> or len(RealName)=0 then

       FindErr(3)=true

       end if

       if len(Company)> or len(Address)> or len(Company)<4 or len(Address)<4 then

       FindErr(4)=true

       end if

       if len(ZipCode)> or len(ZipCode)<6 then

       FindErr(5)=true

       end if

       if len(Telephone)> or len(Telephone)<7 then

       FindErr(6)=true

       end if

       if len(Fax)> or len(Mobile)> then

       FindErr(7)=true

       end if

       if not IsValidEmail(Email) then

       FindErr(8)=true

       end if

       for i = 0 to UBound(FindErr)

       if FindErr(i)=true then

       ErrMessage=ErrMessage+ErrMsg(i)+"<br>"

       end if

       next

       if not (ErrMessage="" or isnull(ErrMessage)) then

       WriteMsg(ErrMessage)

       response.end

       end if

       set rs = server.createobject("adodb.recordset")

       sql="select * from Ameav_Order"

       rs.open sql,conn,1,3

       rs.addnew

       rs("Start_Date")=StartDate

       rs("ProductName")=StrReplace(ProductName)

       rs("ProductNo")=StrReplace(ProductNo)

       rs("Amount")=StrReplace(Amount)

       rs("Remark")=StrReplace(Remark)

       rs("MemID")=MemID

       rs("Linkman")=StrReplace(RealName)

       rs("Sex")=Sex

       rs("Company")=StrReplace(Company)

       rs("Address")=StrReplace(Address)

       rs("ZipCode")=StrReplace(ZipCode)

       rs("Telephone")=StrReplace(Telephone)

       rs("Fax")=StrReplace(Fax)

       rs("Mobile")=StrReplace(Mobile)

       rs("Email")=Email

       rs("AddTime")=now()

       rs.update

       rs.close

       set rs=nothing

       WriteMsg("·Successful，View <a href='MemberOrder.asp'><font color='red'>[My Order]</font></a>。")

       %>

企业网上订购系统如何制作？

       ä¼ä¸šç½‘上订购系统做一个要不少钱的，谁愿意给你下载，下载的都是有问题不安全的，我都是自己写。

网上书店系统源码，网上书店 源码 asp，订购订货书店源码，源码源码 书店asp源码下载，订购订货书店网站源码，源码源码正在急寻免费正式版

       网上书店系统源码，订购订货网上书店 源码 asp，源码源码书店源码，订购订货 书店asp源码下载，源码源码免费 flash 上传网站源码书店网站源码，订购订货正在急寻免费正式版

       搂主放心，我有一套网上书店，非常漂亮的，功能又特别强大的，现免费给网友下载

       这是程序说明

       软件名称：网上书店asp网站管理系统源码正式版

       软件版本：V

       建议分类：源码下载/ASP源码/电子商务

       演示网站：/wsgw

       电信下载地址：/dow/wsgw.rar

       软件容量：KB

       软件类型：简体中文/免费版

       应用平台：Win9x/Me/NT//XP/asp+access

       界面预览：/dow/wsgw.jpg

       软件介绍：后台管理: admin/login.asp 帐户/密码:admin/admin

       网上书店asp网站管理系统源码正式版(广州购物系统)，由专业网上购物公司开发的一套专业网上购物系统,网上开店系统，是中国最具营

       销潜力的专业网上购物网站管理系统源码。让客户只需花几百元就可以拥有功能强大的网上购物,是商家开店最佳系统!真正做到只会打字就可

       以建立自己独立的网上购物网站。是您网上开店首选购物程序。 轻松使用电子商务网站系统，网上销售购物系统,使创业者成功。开店商城系

       统(也称为购物系统，易支付整合版源码网上商店系统)，是方便企业及个人商家在网上产品展示及在线购物电子商务的系统软件。网上购物网站管理系统是书店

       企业及个人开展电子商务的一种形式，开店系统则是网上开店及产品展示的良好工具。有了开店商城系统，再加个域名和空间，就可以很方便

       地建立属于您自己的网上商店了。网上购物网站系统正式版为客户提供域名注册，空间租用及网站推广等系列电子商务服务，让您无开店之忧

       ，让您轻松网上开店。本系统适合于如下关键字的人员使用：“网上购物网站管理系统源码,网上购物论坛,网上购物商城,网上购物商城购物系

       统,网上购物系统,在线购物系统,购物系统,购物软件,网上购物,网上购物商城,电子购物系统,购物车系统,asp 购物系统,asp,虚拟购物系统,购

       物平台,购物系统下载,购物软件下载。网上购物网站系统正式版是临界点线源码基于WEB开发的大型购物系统。它以构建电子商务网站为目标，由前台购物、

       后台管理、在线支付三大部分组成。各大部分完美结合，都有着最为完善和强大的功能，最大限度的满足客户在线购物和网站管理员管理的需

       求。系统满足各个级别用户购建电子商务平台的需要。是构建各种大中小电子商务购物网站的首选系统！不需要专门编程，半天便能建立门户

       级专业电子商务购物网站。购物系统轻松管理维护，经济效率实实在在看得见。武侠大宗师源码头如不会本机调试本系统,请查看《IIS安装使用说明书》

       网上购物网站管理系统源码前台功能栏目

       分类浏览商品或使用搜索工具查找商品；

       可按价格、商品分类、关键字搜索商品

       可打印订单的详细信息以及电子邮件通知；

       保存购物车，查看购物车，清空购物车

       查看已经提交的订单；

       会员注册、享受会员价格；

       会员登录；

       市场价，会员价和VIP会员价的比较；

       为朋友订购商品（送礼物的好办法哦)；

       完整的客户服务中心

       新品上架展示区，推荐商品展示区，特价商品展示区，销售排行展示区，关注排行展示区

       阅读、发表商品评论信息并显示

       顾客可选择多种网上支付方式

       顾客可选多种运输方式并在结帐时自动加入所需费用

       同类商品显示

       商品分类的名称及显示

       显示商品详细介绍以及相关产品

       零售价，会员价VIP会员价显示

       商品显示可按任何字段排序

       查看已经提交的订单

       客户留言

       网上购物网站管理系统源码后台管理特征:

       店主管理--商店管理--强大的后台管理系统

       添加、删除、修改，移动商品分类

       在线添加、（批量）删除、修改商品

       商品价格分市场价格，会员价格和VIP会员价格

       在线订单查询，订单处理、发布订单处理跟踪信息

       每条订单自动发送电子邮件给顾客和商店管理员

       查看、删除、修改会员资料功能

       记录会员下单购买情况和登录情况

       前台会员分非注册会员、普通会员和VIP会员

       管理员分三个不同的权限等级， 使管理商城更加灵活

       统计所有分类中商品数,并在前台显示

       商场购物卷积分功能

       添加修改首页新闻，首页公告

       编辑删除商品评论，客户留言

       探测远程服务器，空间查看

       广告系统管理

       管理网站文字友情链接和友情链接

       在线设定汇款方式、支付方式、购物流程、注册条约、交易条款、常见问题、法律版权信息、运输方式、保密安全、售前售后服务、工作时间

sps是什么意思？

       sps，全称为Software Product Specification，即软件产品规格说明。它是一个详细文档，包含了关于已建成的软件设计、编辑过程、源代码以及支持信息。这个文档用于订购和交付可执行软件或相应的源文件，它是针对特定计算机软件配置项（CSCI）的基础支持文档。SPS的内容涵盖了CSCI的标识、系统概述、文档概述、引用文件、需求规定（包括可执行软件、源文件和打包需求的精确匹配），以及软件支持信息，如已建成软件设计、编译/建立过程、修改过程、硬件资源使用情况等。它还强调了需求的可追踪性和保密性要求，便于软件开发和维护的进行。

       在编写SPS时，会明确标识文档适用的系统和软件，提供系统用途和历史背景，以及与之相关的文档清单。文档的每个部分都具有明确的结构，如引言、文档概述、需求定义、软件支持信息的具体说明等，以确保软件实体被认为是CSCI的有效拷贝。此外，SPS还强调了对硬件资源使用的量化描述，确保软件性能和资源需求的明确性。