一个新手的ASP问题.
对ASP还是不了解.用DW2004做的东西..
http://no365.wapjh.com/ww
下载地址是:http://no365.wapjh.com/ww.rar
一个购物系统 :(
功能有问题:
不同的用户,不能买同一件商品,都是加到一个ShopingCatr表里去的.这个要怎样解决..
还有一个下订单的功能不知道怎么弄!
谢谢大家.
Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'
/iisHelp/common/500-100.asp,行242
Microsoft OLE DB Provider for ODBC Drivers 错误 '80040e14'
[Microsoft][ODBC Microsoft Access Driver] INSERT INTO 语句的语法错误。
/ww/showcart.asp,行15
<%
'********下订单代码
Dim cmdSQLforOrder
Dim strCurrentTime
Dim strUsername
If (CStr(REQUEST("MM_MyOWNforOrder"))<>"") Then
MM_editConnection = MM_ee_STRING
strCurrentTime=Now()
Set cmdSQLforOrder=Server.CreateObject("ADODB.Command")
cmdSQLforOrder.ActiveConnection=MM_ee_STRING
strUsername=LTRIM(RTRIM(CStr(Request("hidUsername"))))
cmdSQLforOrder.CommandText = "INSERT Order SELECT '" + CSTR(strCurrentTime) + strUsername+"',ShopingCart.Username,ShopingCart.ProductID,Catalog.Listprice,ShopingCart.Quantity,CAST('"+CSTR(strCurrentTime)+"'AS datetime) FROM ShopingCart,Catalog WHERE LTRIM(RTRIM(ShopingCart.Username)) ='"+strUsername+"'AND LTRIM(RTRIM(ShopingCart.ProductID)) = LTRIM(RTRIM(Catalog.ProductID))"
cmdSQLforOrder.Execute
Response.Redirect("payment.asp")
End If
%>