📄 ordersent.asp
字号:
<!--#include file="conn.asp" --><!--#include file="Inc/md5.asp"-->
<%
UserName=session("UserName") '登陆用户id
Receiver=request.form("Receiver") '必填字段
Sex=request.form("Sex") '
Phone=request.form("Phone") '必填字段
Add=request.form("Add") '必填字段
Notes=request.form("Notes")
Email=request.form("Email")
Subject=request.form("Subject")
CompanyName=request.form("CompanyName")
Fax=request.form("Fax")
if UserName="" then
UserName="游客"
end if
if Add="" then
Add=null
end if
if Fax="" then
Fax=null
end if
'判断购物车是否为空
ProductList = Session("ProductList")
if productlist="" then
response.redirect "error.asp?error=007"
response.end
else
sql_product="select * from Product where Product_Id in ("&productlist&") order by Product_Id"
Set rs_order = conn.Execute(sql_product)
end if
BranchID="0022"
CoNo="000040"
'交易日期，格式：YYYYMMDD
yy=right(year(date),2)
mm=right("00"&month(date),2)
dd=right("00"&day(date),2)
riqi=yy & mm & dd
'生成订单号所有所需元素,格式为：小时，分钟，秒
xiaoshi=right("00"&hour(time),2)
fenzhong=right("00"&minute(time),2)
miao=right("00"&second(time),2)
'产生外部和内部定单号
BillNo=xiaoshi & fenzhong & miao
inBillNo=yy & mm & dd & "-" & xiaoshi & fenzhong & miao
Set rsadd=server.createobject("adodb.recordset")
rsadd.Open "select * from OrderList" ,conn,1,3
Set rsdetail=server.createobject("adodb.recordset")
rsdetail.Open "select * from OrderDetail" ,conn,1,3
'事务定义开始
'conn.Begintrans
'操作之一开始写入订单列表信息
rsadd.AddNew
rsadd("UserName")=UserName
rsadd("OrderNum")=inBillNo
rsadd("Receiver")=Receiver
rsadd("Sex")=Sex
rsadd("Phone")=Phone
rsadd("Add")=Add
rsadd("RecTime")=now()
if Subject<>"" then rsadd("Subject")=Subject
if Email<>"" then rsadd("Email")=Email
if CompanyName<>"" then rsadd("CompanyName")=CompanyName
if Fax<>"" then rsadd("Fax")=Fax
if Notes<>"" then rsadd("Notes")=Notes
if error>0 then
response.write " 操作订单列表生成错误！！"
return
end if
rsadd("Flag")="No"
rsadd.Update
While Not rs_order.EOF '把购买的产品资料读出来，写入定单详细资料表中
rsdetail.AddNew
rsdetail("UserName")=UserName '下单用户号
rsdetail("OrderNum")=inBillNo '订单号码
rsdetail("Product_Id")=rs_order("Product_Id") '产品编码
rsdetail("OrderTime")=date()
IF ERROR>0 THEN
response.write "操作订单详细信息表生成错误！！"
RETURN
END if
rsdetail.Update
rs_order.MoveNext
Wend
'事务操作结束
'conn.CommitTrans
rsdetail.close
set rsdetail=nothing
rsadd.close
set rsadd=nothing
rs_order.close
set rs_order=nothing
Session("ProductList") =""
%> <!--#include file="inc/function.asp"--> <HTML xmlns="http://www.w3.org/1999/xhtml"><HEAD><TITLE>企业荣誉</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META http-equiv=Content-Language content=zh-CN>
<META content=all name=robots>
<META content=LJCMS name=Copyright>
<META
content=
name=description>
<META
content=""
name=keywords><LINK id="skin"
href="../images/css.css"
type=text/css rel=stylesheet>
<SCRIPT language=javascript>
function opencat(cat,img){
if(cat.style.display=="none"){
cat.style.display="";
img.src="img/class2.gif";
} else {
cat.style.display="none";
img.src="img/class1.gif";
}
}
</Script>
<SCRIPT language=JavaScript
src="../images/Prototype.js"></SCRIPT>
<script type="text/javascript" src="../images/setCss.js"></script>
<META content="MSHTML 6.00.6000.16441" name=GENERATOR></HEAD>
<BODY><!-- 顶部开始 -->
<DIV id=BigTop>
<DIV id=TopLeft></DIV>
<DIV id=TopCenter>
<DIV id=Logo><IMG height=84
src="../images/Logo.gif"
width=238 border=0> </DIV>
<DIV id=BigMenu>
<UL class=AllUl>
<LI class=MenuLi1>换皮肤：<a href="" onClick="setCss('../images/css.css'); return false; " ><span class="blue">水晶蓝</span></a> <a href="" onClick="setCss('../images/css1.css'); return false; "><span class="pink">浪漫粉</span></a> </li><SPAN class=S_Spanlink>⊙<A href="<%=EnterpriseMail%>" > 企业邮局 </A>⊙<A onClick="window.external.addFavorite('<%=SiteUrl%>','<%=SiteName%>');return false;" target="mainFrame" href="#"> 加入收藏 </A>⊙<A onClick="this.style.behavior='url(#default#homepage)';this.setHomePage('<%=SiteUrl%>');" href="#"> 设为首页 </A> <a href="Contact.asp"></a> ⊙ <a id="based">繁体中文</a>
<Script Language=Javascript Src="../Inc/southidcj2f.Js"></Script> ⊙ <a href="../enHtml/index.html">English</a></LI>
<form name="Search_form" id="Search_form" class="AllForm" action="search.asp" target="_blank" method="get">
<li class="MenuLi1"><span class="S_Span"><input type="text" name="KeyWords" id="KeyWords" class="Input" style="width:200px;" /></span><span class="S_SeType"><input type="hidden" name="SeTypeTxt" id="SeTypeTxt" value="" /><input type="button" name="Setype" id="Setype" value="搜索类型" class="S_Typebutton" onClick="Dis_HiddenDiv();" /></span><span class="S_ImgSpan"><img src="../images/ssBount.jpg" width="57" height="20" border="0" align="absbottom" onClick="Fun_Se_Form();" /></span></li>
</form></LI>
<LI class=MenuLi2><div class="menu"><ul>
<!--#include file="inc/menu.asp" -->
</ul></div></LI>
</UL></DIV></DIV>
<DIV id=TopRight></DIV></DIV><!-- 顶部结束 --><!-- 主体部分开始 -->
<DIV id=BodyDiv><!-- 主体左边部分 -->
<DIV id=BodyLeft><!-- 用户登陆 -->
<DIV class=BigLoginDiv>
<DIV class=Login_Type_Div><SPAN class=Lo_Web_User_1 id=Lo_Web_User
></SPAN></DIV>
<DIV><iframe name="login_frame1" src="../login.asp" style=" width:100%; height:100px" frameborder="0"></iframe></DIV>
</DIV><!-- 用户登陆结束 --><!-- 快速通道 -->
<!-- 快速通道结束 --><!-- 产品中心 -->
<!-- 产品中心结束 -->
<!-- 代理中心 -->
<!-- 代理中心结束 -->
<!-- 解决方案 -->
<!-- 解决方案结束 -->
<!-- 合作联盟 -->
<!-- 合作联盟结束 -->
</DIV>
<!-- 主体左边部分结束 --><!-- 主体中间部分 -->
<!-- 产品介绍结束 --><!-- 购买流程 -->
<DIV class="DivBorder OrderDiv1">
<DIV class=News_Top1><SPAN class=News_Dot><IMG height=9
src="../images/Ddot.jpg"
width=9 border=0></SPAN><SPAN class=News_Text1>产品订购信息</SPAN></DIV>
<DIV class=Fs_All_Bottom1> <table Class=border width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="206" valign="top"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td class="title_right" height="32"> <img src="../Images/smallbook.jpg" width="10" height="10"> 产品订购信息</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<TR>
<TD><table width="100%" border="0" cellspacing="1" cellpadding="0">
<TR>
<TD> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="56" align="center" bgcolor="eeeeee"><font color="B0266D">谢谢您，询价提交成功，请您记住您的询价号码，以便查询。</font></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="100%" align="center" valign="middle"><br>
感谢您咨询我们的产品!<b><br>
<br>
</b><font color="B0266D">您的询价号码是:</font><b><font color="B0266D"><b><%=inBillNo%></b><br>
<br>
</font>
<br>
</b>
</td>
</tr>
<tr>
<td height="10"></td>
</tr>
<tr>
<td><div align="center"></div></td>
</tr>
<tr>
<td height="10"></td>
</tr>
</table></td>
</TR>
<tr>
</tr>
</table></TD>
</tr>
</table> </td>
</tr>
<TR>
<TD
height=1 colspan="3" background=img/naBialym.gif><IMG height=1 src="img/1x1_pix.gif"
width=10></TD>
</TR>
<TR>
<TD
height=25 colspan="3" bgcolor="#D8D8D8"> <div align="right">
</div></TD>
</TR>
</table>
<%
rs.close
set rs=nothing
%>
<DIV class=Fs_C_Center></DIV>
</DIV></DIV><!-- 购买流程结束 --><!-- 客户案例 -->
<!-- 客户案例结束 -->
</DIV>
<!-- 主体中间部分结束 --><!-- 右边部分开始 -->
<!-- 右边部分结束 -->
</DIV></div>
<!-- 主体部分结束 --><!-- 版权部分开始 -->
<!--#include file="inc/foot.asp" --><!-- 版权部分结束 -->
<SCRIPT language=javascript
src="../images/js.js"
type=text/javascript></SCRIPT>
</BODY></HTML>
<%call CloseConn
sub WriteErrMsg()
response.write "<table align='center' width='300' border='0' cellpadding='2' cellspacing='0' class='border'>"
response.write "<tr class='title'><td align='center' height='15'>由于以下的原因不能注册用户！</td></tr>"
response.write "<tr class='tdbg'><td align='left' height='100'><br>" & errmsg & "<p align='center'>【<a href='javascript:onclick=history.go(-1)'>返 回</a>】<br></p></td></tr>"
response.write "</table>"
end sub
sub RegSuccess()
response.write "<table align='center' width='300' border='0' cellpadding='2' cellspacing='0' class='border'>"
response.write "<tr class='title'><td align='center' height='15'>成功注册用户！</td></tr>"
response.write "<tr class='tdbg'><td align='left' height='100'><br>你注册的用户名：" & UserName & "<p align='center'>【<a href='javascript:onclick=window.close()'>关 闭</a>】<br></p></td></tr>"
response.write "</table>"
end sub
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -