订单受理的代码

精华区

当前位置：网易精华区>>讨论区精华>>编程开发>>● ASP>>个人专栏>>yahao>>订单受理的代码

主题：订单受理的代码

发信人: yahao(亚豪)
整理人: i_am_trueman(2004-01-14 09:24:34), 站内信件

订单受理的代码，也来SHOW SHOW~~ :)
===========================================
<%@ Language=VBScript %>
<%Option Explicit%>
<%
'##############################################################################
'## Copyright (C) 1998-2003 Yahao Software Studio
'##
'## 订单管理 - 订单受理
'##
'##
'##
'## Code by Yahao
'##############################################################################
'## FileDate: 2003-10-15
%>

<object runat="server" id="conn" scope="page" progid="ADODB.Connection"></object>
<object runat="server" id="cmd" scope="page" progid="ADODB.Command"></object>



<!doctype html public "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title>管理系统 - 订单受理</title>

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="Author" content="Yahao">

<style type="text/css">

</style>
</head>

<body leftmargin=0 topmargin=10>

<%
'---- 检查登录状态 ----
Call CheckLogin(ACL_EasyCartShop)
%>

<div class=tip><CENTER><H2>管理系统</H2></CENTER></div>

<div class=tip>
<table align="center" border=0 height=1 width=100%>
<tr>
<td align="left" colspan=2>■ 管理系统首页 -> 网上商店 -> 订单管理 -> 订单受理</td>
</tr>
</table>
</div>

<%
On Error Resume Next

'---- 数据库连接 ----
Const gStrConnString = "Provider=SQLOLEDB;Password=123456;User ID=yahao;Initial Catalog=mydb;Data Source=(local);Connect Timeout=15"

'---- 权限对象ID ----
Const gIntObjectID = 3

Dim intOrderID,strOp
Dim intProcessID,intStatusValue
Dim intPos,strMsg,replMsgData,msgModel

Dim strAdminMsg,strOpUser,strRemoteAddr,strClientMsg
Dim intUseMail,strMailTo,strSubject,strContent
Dim strMailToWho,intMailUseHtml,intReturnValue

Dim strRowIDString,arrRowID,aItem,arrInvoiceRowID
Dim strProductSN,strUpdateProductSNString,strUpdateInvoiceStatusString
Dim strISRowIDString,strInvoiceStatus

'---- 用户权限变量 ----
Dim aclRead,aclNew,aclEdit,aclDelete,aclList,strAcl
Dim arrAclStatus(2),strUserSID

arrAclStatus(0) = " disabled "
arrAclStatus(1) = " "

strUserSID = Session.Contents("LoginSID")
strOpUser = Session.Contents("AdminName")
strRemoteAddr = Request.ServerVariables("REMOTE_ADDR")

'---- 表单变量 ----
intOrderID = Request.Form("OrderID")
strOp = Request.Form("ProcessVal")
strAdminMsg = Trim(CStr(Request.Form("AdminMsg")))
strClientMsg = Trim(CStr(Request.Form("ClientMsg")))
replMsgData = Trim(Request.Form("replMsgData"))
msgModel = Request.Form("msgModel")
intUseMail = Request.Form("OpMail")

'---- 留言截取到限制长度以内（120字节/60汉字） ----
If strAdminMsg <> "" Then strAdminMsg = MyMidB(strAdminMsg,1,120)
If strClientMsg <> "" Then strClientMsg = MyMidB(strClientMsg,1,120)

'---- 受理操作ID ----
intPos = InStr(1,strOp,",",vbTextCompare)
intProcessID = Mid(strOp,1,intPos-1)
intStatusValue = Mid(strOp,intPos+1)

cmd.CommandType = adCmdStoredProc

'---- 存贮过程：受理订单 ----
cmd.CommandText = "usp_ProcessOrder"

With cmd.Parameters
'---- 输入参数： ObjectID ----
.Append cmd.CreateParameter("ObjectID",adInteger,adParamInput,,gIntObjectID)
'---- 输入参数： UserSID ----
.Append cmd.CreateParameter("UserSID",adVarChar,adParamInput,16,strUserSID)
'---- 输入参数：订单ID ----
.Append cmd.CreateParameter("OrderID",adInteger,adParamInput,,intOrderID)
'---- 输入参数：操作ID ----
.Append cmd.CreateParameter("ProcessID",adInteger,adParamInput,,intProcessID)
'---- 输入参数：订单状态值 ----
.Append cmd.CreateParameter("StatusValue",adInteger,adParamInput,,intStatusValue)
'---- 输入参数： AdminMsg ----
.Append cmd.CreateParameter("AdminMsg",adVarChar,adParamInput,120,MyMidB(strAdminMsg,1,120))
'---- 输入参数： ClientMsg ----
.Append cmd.CreateParameter("ClientMsg",adVarChar,adParamInput,120,MyMidB(strClientMsg,1,120))
'---- 输入参数： UpdateSNString ----
.Append cmd.CreateParameter("UpdateSNString",adVarChar,adParamInput,300,MyMidB(strUpdateProductSNString,1,300))
'---- 输入参数： UpdateISString ----
.Append cmd.CreateParameter("UpdateISString",adVarChar,adParamInput,600,MyMidB(strUpdateInvoiceStatusString,1,600))
'---- 输入参数： OpUser ----
.Append cmd.CreateParameter("OpUser",adVarChar,adParamInput,12,strOpUser)
'---- 输入参数： RemoteAddr ----
.Append cmd.CreateParameter("RemoteAddr",adVarChar,adParamInput,20,strRemoteAddr)
'---- 返回值 ----
.Append cmd.CreateParameter("ReturnValue",adInteger,adParamOutput)
End With

'---- 打开数据库连接 ----
conn.Open gStrConnString

Set cmd.ActiveConnection = conn

cmd.Execute,,adExecuteNoRecords

If Err.Number <> 0 Then
strMsg = Err.Description
intReturnValue = cmd.Parameters("ReturnValue").Value

strMsg = "运行出错：(" & CStr(intReturnValue) & ")" & strMsg & ""
Set cmd.ActiveConnection = Nothing
Call TableMsgBox(strMsg,"javascript:history.back()")
Response.End
End If

conn.close
Response.Redirect "orderlist.asp?OrderID=" & CStr(intOrderID) & "&ShowPart=" & Request.Form("ShowPart") & "&gp=" & Request.Form("gp")
%>

<SCRIPT LANGUAGE="JavaScript">

</SCRIPT>

</body>
</html>

----
绿色签名 - 欢迎光临网易广州虚拟社区ASP版

[关闭][返回]