confirmorder.asp

java的一个网上商店的源码,后台是Access数据库.功能还可以.界面比较简单,但是基本的功能都有.

<% Option Explicit %>
<%
'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
'	功能：订单确认处理功能页
'	OriAuthor: 邓健
'	@Language=VBscript
'	Create: 2002-10-15
'	Modify: 
'   1
'   Modifyer:邓健 ModifyerDate:2003-7-30
'   ModifyContent: 发送给订货管理员Email添加订购人公司名和电话
'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
%>
<!--#include file="_ccwlib/orderform_lib.asp" -->
<%
Dim RS,Sql
Dim soid,sorderemailbody
soid=request("odrid")
DB_Connect(strconn)
oConn.beginTrans
oConn.Execute("update orderdetail set Odr_ispass='y' where odr_id="&soid)
oConn.Committrans

set rs=oConn.Execute("select odr_no,usr_name,Usr_email,Usr_realname from order_detail_view where odr_id="&soid)
     sorderemailbody="用户"&rs(3)&"订购"&chr(10)&chr(15)
	  sorderemailbody=sorderemailbody&"订单号为："&rs(0)&chr(10)&chr(15)
      sorderemailbody=sorderemailbody&"订购人公司："&GetUserComName(rs(1))&chr(10)&chr(15)	 
	  sorderemailbody=sorderemailbody&"订购人电话："&GetUserTel(rs(1))&chr(10)&chr(15)
	  sorderemailbody=sorderemailbody&"点击"&WebDomain&"登录"
	  sendmail WebSiteSendEmail,getadminemail(sOrderSubAdmin_name, oConn),"","New Order",sorderemailbody,1,1
oConn.Close
Set oConn=nothing 
response.write "确认成功！"%>