12、類型不匹配（一下午的教訓(xùn)）
Microsoft VBScript 運(yùn)行時(shí)錯(cuò)誤 錯(cuò)誤 '800a000d'
類型不匹配
/shop/Present.asp，行 24
錯(cuò)誤源代碼如下：
Session("ProductPriceList") = Trim(Request.Form("DY_price"))
Session("ProductNumList") = Trim(Request.Form("PNAmount"))
ProductPriceList = Session("ProductPriceList")
ProductNumList = Session("ProductNumList")
ProductPriceList = Split(ProductPriceList,",")'-------------產(chǎn)品ID數(shù)組 注意這里，此變量已經(jīng)變成了數(shù)組類型，應(yīng)該使用PriceListArray
NumListArray = Split(ProductNumList,",")'-------------產(chǎn)品數(shù)量數(shù)組
??? Response.Write("<br>")
??? Response.Write ProductPriceList(0)
??? If Len(ProductPriceList) = 0 OR Len(ProductNumList) = 0 Then
原因：低級(jí)錯(cuò)誤，變量混淆

?

13、沒有打開數(shù)據(jù)庫(kù)連接
ADODB.Recordset 錯(cuò)誤 '800a0bb9'
參數(shù)類型不正確，或不在可以接受的范圍之內(nèi)，或與其他參數(shù)沖突。
/shop/Present.asp，行 45
就是沒有<!--#include file="../Conn.asp" -->

14、函數(shù)內(nèi)彈出窗口
'======================設(shè)置：修改付款方式（開始）========================

Sub OperateModify(TypeId)
??????? If Trim(Request("DyTypeName"))="" Or Trim(Request("Discount"))="" Or Trim(Request("OrderID"))="" Or IsNull(Request("DyTypeName"))=True Then
??????? ??? Response.write("<script language='javascript'>alert('不能為空');window.location='Shop_payment_manage.asp';</script>") ’使用這句就OK
??????? ??? 'Response.Redirect("Shop_payment_manage.asp") ’關(guān)鍵是有時(shí)候使用的是這句，所以有時(shí)候不彈出窗口
??????? ??? Response.End
??????? End If
End Sub

'======================設(shè)置：修改付款方式（結(jié)束）========================

15、數(shù)據(jù)類型錯(cuò)誤
Microsoft OLE DB Provider for ODBC Drivers 錯(cuò)誤 '80040e57'
[Microsoft][ODBC SQL Server Driver][SQL Server]將 numeric 轉(zhuǎn)換為數(shù)據(jù)類型 numeric 時(shí)發(fā)生算術(shù)溢出錯(cuò)誤。
/shop/Order.asp，行 56

16、 多步 OLE DB 操作產(chǎn)生錯(cuò)誤
Microsoft OLE DB Provider for SQL Server 錯(cuò)誤 '80040e21'
多步 OLE DB 操作產(chǎn)生錯(cuò)誤。如果可能，請(qǐng)檢查每個(gè) OLE DB 狀態(tài)值。沒有工作被完成。
引起這個(gè)問題的原因簡(jiǎn)單的說就是數(shù)據(jù)庫(kù)的字段類型不匹配或者字符個(gè)數(shù)超出了數(shù)據(jù)庫(kù)的字段的最大限制個(gè)數(shù)。
? 1> 自動(dòng)編號(hào)字段的就不應(yīng)該指定值；
? 2> 限制 50 個(gè)字符的字段你就不應(yīng)該提交多于 50 個(gè)字符的字符串
? 3> 記錄沒有向下移動(dòng)。
???????????? OrderSql2 = "Select * From PE_OrderFormItem Where OrderFormID="&OrderFormID*1
????????????? Set OrderRs2 = Server.CreateObject("ADODB.RecordSet")
????????????? ?????? OrderRs2.Open OrderSql2,Conn,1,3
????????????? ?????? Do While Not OrderRs2.Eof
???????????????????? ?????? OrderRs2.Delete
????????????? ?????? OrderRs2.MoveNext
????????????? ?????? Loop
?????? ?????? OrderRs2.Close
????????????? Set OrderRs2 = Nothing