confirmorderds.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
Dim sOdrid,sSubbtn
Dim sorderemailbody
DB_Connect(strconn)
  sOdrid=getForm("odrid")
  sSubbtn=getForm("subok")
  'sAdminid=getForm("adminid")
  
if  sSubbtn="订单确认" then  '处理订单确认状态
  	 oConn.Execute("update orderdetail set odr_ispass='y' where odr_id="&sOdrid)
	 '发信程序
   set rs=oConn.Execute("select odr_no,usr_name,Usr_email,Usr_realname from order_detail_view where odr_id="&sOdrid)
     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
	rs.close
	set rs=nothing

End if

oConn.Close
Set oConn=nothing 
response.write "确认成功！"
%>