<%
set rstemp = Server.CreateObject("adodb.recordset")
rstemp.open "select c_sjdm from dydm where c_yjdm='省份' and c_ejdm='市级市'",conn,1,1
if not rstemp.eof then
response.Write("<script language='JavaScript'>")
Response.Write("function loadmenus(){")
Response.Write("if (window.mm_menu_0901235832_0) return;")
Response.Write("var bjdm=new Array();")
Response.Write("window.mm_menu_0105100415_0 = new Menu('root',56,18,'',12,'#000000','#000000','#FFFFFF','#FFFFFF','left','middle',3,0,1000,-5,7,true,true,true,0,true,true);")
for i=1 to rstemp.recordcount
Response.Write("bjdm["&i&"]='"&trim(rstemp("c_sjdm"))&"';")
Response.Write("mm_menu_0105100415_0.addMenuItem(bjdm["&i&"]);")
Response.Write("mm_menu_0105100415_0.hideOnMouseOut=true;")
Response.Write("mm_menu_0105100415_0.bgColor='#FFFFFF';")
Response.Write("mm_menu_0105100415_0.menuBorder=1;")
Response.Write("mm_menu_0105100415_0.menuLiteBgColor='#FFFFFF';")
Response.Write("mm_menu_0105100415_0.menuBorderBgColor='#FFFFFF';")
rstemp.movenext
next
Response.Write("}")
Response.Write("</script>")
end if
set rstemp=nothing
Response.Write("<script language='JavaScript'>loadmenus();</script>")
%>
<body bgcolor="#990000" text="#FFFFFF" link="#FFFFFF" vlink="#FFFFFF" alink="#FFFFFF">
<%
set rstemp = Server.CreateObject("adodb.recordset")
rstemp.open "select c_sjdm from dqdm where c_yjdm='省份' and c_ejdm='市级市'",conn,1,1
if not rstemp.eof then
response.Write("<script language='JavaScript'>")
Response.Write("function loadmenus(){")
Response.Write("var bjdm=new Array();")
Response.Write("window.mm_menu_0105100415_0 = new Menu('root',56,18,'',12,'#000000','#000000','#FFFFFF','#FFFFFF','left','middle',3,0,1000,-5,7,true,true,true,0,true,true);")
for i=1 to rstemp.recordcount
Response.Write("bjdm["&i&"]='"&trim(rstemp("c_sjdm"))&"';")
Response.Write("mm_menu_0105100415_0.addMenuItem(bjdm["&i&"],'window.open('ejdm.asp?ejdm=市级市', '_blank');")
Response.Write("mm_menu_0105100415_0.hideOnMouseOut=true;mm_menu_0105100415_0.bgColor='#FFFFFF';")
Response.Write("mm_menu_0105100415_0.menuBorder=1; mm_menu_0105100415_0.menuLiteBgColor='#FFFFFF';")
Response.Write("mm_menu_0105100415_0.menuBorderBgColor='#FFFFFF';")
rstemp.movenext
next
Response.Write("}")
Response.Write("</script>")
end if
set rstemp=nothing
Response.Write("<script language='JavaScript'>loadmenus();</script>")
%>
这样总是有错误:第一个错误:缺少),第二个错误:缺少对象