显示 函数未定义 0x80040E14 错误
我 的代码运行到:<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="public/appsetting.asp"-->
<!--#include file="public/ado.asp"-->
<!--#include file="public/components.asp"-->
<!--#include file="public/customers.asp"-->
<%
dim id,sql,uid
id=request.QueryString("pid")
uid="GetCustomerID()"
sql="delete * from t_shopcar where c_code="& uid &" and p_code='"& id &"'"
datasource.ExecuteCommand(sql)
Set datasource=Nothing
response.Redirect("shopcar.asp")
%>
就出错了,显示
Microsoft JET Database Engine
错 误 码:0x80040E14
错误代码:cmd.Execute
错误描述:表达式中 'GetCustomerID' 函数未定义。
可是我的GetCustomerID'是写在
<!--#include file="public/customers.asp"-->
里的<%
function GetCustomerName()
Dim infos,arr
infos =Request.Cookies("LoginInfo")
if infos <> "" then
arr=split(infos,",")
GetCustomerName=arr(1)
else
GetCustomerName=""
end if
end function
function GetCustomerID()
Dim infos,arr
infos=Request.Cookies("LoginInfo")
if infos<>"" then
arr=split(infos,",")
GetCustomerID=arr(0)
else
GetCustomerID=-1
end if
end function
%>
请帮忙看看啊