genjs.asp

来自「航空订票系统基于asp.net和sql2005包含数据库和图片」· ASP 代码 · 共 26 行

<!--#include file="../global/inc/CheckSession.asp"-->
<!--#include file="../global/inc/global.inc.asp"-->
<%
oConn_Start
strSql = "Select * From sm_Class Where ClassType=4 and FatherId=0"
Set oRs = oConn.Execute(strSql)
While Not oRs.Eof
	ClassId = oRs("ClassId")
	Response.Write("new aClass('"&ClassId&"','"&ClassId&"','"&oRs("ClassName")&"'),<br>")
	Set tempORs = oConn.Execute("Select * From sm_Class Where ClassType=4 And FatherId="&ClassId)
	While not tempORs.Eof
		tempClassId = tempORs("ClassId")
		Response.Write("new aClass('"&ClassId&"','"&tempClassId&"','"&tempORs("ClassName")&"'),<br>")
	tempORs.MoveNext
	Wend
	tempORs.Close
	Set tempORs = Nothing
oRs.MoveNext
Wend
oRs.Close
Set oRs = Nothing
oConn_Close


%>