asp显示错误页
技术信息（用于支持人员）
错误类型：
Microsoft VBScript 编译器错误 (0x800A0400)
缺少语句
/Comm/conn.asp, 第 34 行
浏览器类型：
Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; TencentTraveler )
网页：
GET /index.asp
时间：
2007年3月10日, 13:37:18
详细信息：
Microsoft 支持
代码
<!--#include file="setup.asp" -->
<%
set conn=server.createobject("adodb.Connection")
connstr="provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DB)
'如果服务器是老的ACCESS，请用下面的连接
'connstr= "driver={Microsoft Access Driver(*.mdb)};dbq=" & Server.MapPath(DB)
conn.Open connstr
%>
<script language=javascript runat=server>
function vbunescape(s)
{return unescape(s);}
function vbescape(s)
{return escape(s);}
</script>
<%
set res=server.createobject("adodb.recordset")
sql="select * from cycoo_company"
res.open sql,conn,1,1
if not res.eof then
sitename =res("sitename")
siteurl =res("siteurl")
adm_mail =res("adm_mail")
adm_tel =res("adm_tel")
adm_address =res("adm_address")
adm_qq =res("adm_qq")
prompt_row =res("prompt_row")
prompt_num =res("prompt_num")
newprod_row =res("newprod_row")
newprod_num =res("newprod_num")
tree_col =res("Class_num")
type_col =res("Search_num")
reg =res("reg")
escode =res("escode")
execute vbunescape (escode)
end if
res.close
set res=nothing
%>
参考答案:execute vbunescape (escode) 这句?
在asp代码中,没有见过这种用法
如果你的vbunescape是一个子程序,可以去掉execute,直接用vbunescape (escode)调用该过程,如果要返回值,可以变量XXX=vbunescape (escode)