global.asp

ajax动态树菜单

<%
CODEPAGE="65001"
server.scripttimeout=20
dim errMessage,errCount
errCount=0
errmessage="发生以下错误:"
dim con_mdbpath
con_mdbpath="./fj51758movie.mdb"'数据库路径，相对，有必要请修修为绝对路径
sub raiseErr(whatwrong)
  if err then:errcount=errcount+1:errmessage=errmessage & " " & whatwrong & "时出错<br/>":err.clear:end if
end sub
sub showErr()
  if errcount<>0 then response.write(errMessage)
end sub
%>