关于网站PHP代码问题

{$MODULE[7][linkurl]}
输出数组元素$MODULE[7][linkurl]
相当于在 echo $MODULE[7][linkurl]

{rewrite('price.php?product=all')}
这个也一样，输出用rewrite这个函数处理过的'price.php?product=all'。

源代码和网页问题

web页面是开源的，其实没有区别，说有区别那是奸商在讹诈，花钱让他们开发的东西，当然要把源代码给你们。而他们给你的东西，就是源代码。
之于你想换空间服务商，这个跟网站本身更没有关系，换完上传就OK了。
不过，看来贵司的工作人员对网站确实必较陌生，建议随便找一个学计算机专业的人给指导一下最好。

关于网站源代码问题 高分请进！

是一个关于网站购物系统的代码问题：
在购买的最后一步出现错误：如下：
Microsoft JET Database Engine 错误 '80040e09'

没有使用 'orders' 对象的必要权限。请让系统管理员或安装此对象的人为您设置适当的权限。

/payment3.asp，行 68


下面为payment3.asp的部分代码：
Set cmdTemp = Server.CreateObject(ADODB.Command)
Set InsertCursor = Server.CreateObject(ADODB.Recordset)
cmdTemp.CommandText = SELECT top 1 * FROM orders order by id desc
cmdTemp.CommandType = 1
Set cmdTemp.ActiveConnection = conn
InsertCursor.Open cmdTemp, , 3, 3
InsertCursor.addnew
if session(memberID)<> then
InsertCursor(memberID) =session(memberID)
else
InsertCursor(memberID) =·??á?±
end if
InsertCursor(customerName) =Request(customerName)
InsertCursor(address) =Request(address)
InsertCursor(code) =Request(code)
InsertCursor(phone) =Request(phone)
InsertCursor(email) =Request(email)
InsertCursor(payment) =Request(payment)
InsertCursor(remark) =Request(remark)
InsertCursor(fUserId) =session(crgw)
InsertCursor(refererID) =session(refererID)
InsertCursor.update
InsertCursor.close
sql=select top 1 * from orders order by id desc
'set rs=conn.execute (sql)
set rs = server.createobject(adodb.recordset)
rs.open sql,conn,1,1
if rs.eof or err then
response.write êy?Y?a2ù×÷꧰ü￡???<a href='Javascript:window.history.go(-1)'>·μ??</a>
response.End
else
orderID=rs(id)
end if
'response.write rs(id)&rsid<br>
'response.write InsertCursor(id)&rsid<br>
set InsertCursor=nothing
' response.write session(quantityList)&quantityList<br>
' response.write session(productList)&productList<br>
productList=session(productList)
If Len(productList) <>0 Then
quantityArray = Split(session(quantityList), , )
productArray = Split(session(productList), , )
for i=0 to UBound(productArray)
set rs=server.createobject(adodb.recordset)
sql = Select * From product where id=&productArray(i)
rs.open sql,conn,1,1
if Not rs.EOF or err then
quantity = quantityArray(i)
' quantity = cstr(quantityArray(i))
' response.write quantity&quantity
' response.End
If quantity <= 0 Then quantity = 1
sql = INSERT INTO orderDetail (orderID, productID, productName, price,quantity)
sql = sql & VALUES( & orderID & ,
sql = sql & productArray(i) &,'
sql = sql & rs(name)& ','
sql = sql & rs(memberPrice)& ',
sql = sql & quantity&)
' response.write sql
Conn.Execute(sql)
sql=update product set buyNum=buyNum+1 where id=&productArray(i)
conn.execute (sql)