gencityjs.asp

航空订票系统基于asp.net和sql2005包含数据库和图片

<!--#include file="../global/inc/CheckSession.asp"-->
<!--#include file="../global/inc/global.inc.asp"-->
<%
strTemp = strTemp +  "function aClass(aData, aValue, aText) {"& vbCrLf
strTemp = strTemp +  "    if (aClass.arguments.length < 3)"& vbCrLf
strTemp = strTemp +  "      alert(""传入的参数错误！"")"& vbCrLf
strTemp = strTemp +  "    else {"& vbCrLf
strTemp = strTemp +  "      this.Data  = aData;"& vbCrLf
strTemp = strTemp +  "      this.Value = aValue;"& vbCrLf
strTemp = strTemp +  "      this.Text  = aText;"& vbCrLf
strTemp = strTemp +  ""& vbCrLf
strTemp = strTemp +  "    }"& vbCrLf
strTemp = strTemp +  "  }"& vbCrLf
strTemp = strTemp +  ""& vbCrLf
strTemp = strTemp +  "  function chgDnCombobox(aSrc, aDes, aClass, aRemain){"& vbCrLf
strTemp = strTemp +  ""& vbCrLf
strTemp = strTemp +  "  	"& vbCrLf
strTemp = strTemp +  "    if (chgDnCombobox.arguments.length < 3)"& vbCrLf
strTemp = strTemp +  "alert(""传入的参数错误！"")"& vbCrLf
strTemp = strTemp +  "    else if (aSrc.type != ""select-one"")"& vbCrLf
strTemp = strTemp +  "      alert(""传入的参数错误！"")"& vbCrLf
strTemp = strTemp +  "    else if (aClass == null)"& vbCrLf
strTemp = strTemp +  "      alert(""aClass未定义错误！"")"& vbCrLf
strTemp = strTemp +  "    else {"& vbCrLf
strTemp = strTemp +  "      if (aRemain==null)"& vbCrLf
strTemp = strTemp +  "        aRemain = 1;"& vbCrLf
strTemp = strTemp +  "        "& vbCrLf
strTemp = strTemp +  "        "& vbCrLf
strTemp = strTemp +  "      chgDnComboboxItem(aSrc.options[aSrc.selectedIndex].value, aDes, aClass, aRemain);"& vbCrLf
strTemp = strTemp +  ""& vbCrLf
strTemp = strTemp +  "    }"& vbCrLf
strTemp = strTemp +  "  }"& vbCrLf
strTemp = strTemp +  ""& vbCrLf
strTemp = strTemp +  "  function chgDnComboboxItem(aValue, aDes, aClass, aRemain){"& vbCrLf
strTemp = strTemp +  "    if (chgDnComboboxItem.arguments.length<3)"& vbCrLf
strTemp = strTemp +  "      alert(""参数传入错误！"")"& vbCrLf
strTemp = strTemp +  "    else if (aClass==null)"& vbCrLf
strTemp = strTemp +  "      alert(""错误！aClass没有定义！"")"& vbCrLf
strTemp = strTemp +  "    else{"& vbCrLf
strTemp = strTemp +  "      if (aRemain==null)"& vbCrLf
strTemp = strTemp +  "        aRemain = 1;"& vbCrLf
strTemp = strTemp +  "        "& vbCrLf
strTemp = strTemp +  "       "& vbCrLf
strTemp = strTemp +  "      deleteAllComboboxItem(aDes, aRemain);"& vbCrLf
strTemp = strTemp +  "        "& vbCrLf
strTemp = strTemp +  "      for (var i=0; i<aClass.length; i++)"& vbCrLf
strTemp = strTemp +  "        if (aClass[i].Data==aValue)  /* check aClass[i].Data */"& vbCrLf
strTemp = strTemp +  "          if (aClass[i].Data!="""")"& vbCrLf
strTemp = strTemp +  "            addComboboxItem(aDes, aClass[i].Text, aClass[i].Value);"& vbCrLf
strTemp = strTemp +  "    }"& vbCrLf
strTemp = strTemp +  "  }"& vbCrLf
strTemp = strTemp +  ""& vbCrLf
strTemp = strTemp +  "  function deleteAllComboboxItem(aList, aRemain) {"& vbCrLf
strTemp = strTemp +  "  	"& vbCrLf
strTemp = strTemp +  "  	"& vbCrLf
strTemp = strTemp +  "    for (var i=aList.options.length; i > aRemain-1; i--)"& vbCrLf
strTemp = strTemp +  "      aList.options[i] = null;"& vbCrLf
strTemp = strTemp +  "  }    "& vbCrLf
strTemp = strTemp +  ""& vbCrLf
strTemp = strTemp +  "  function addComboboxItem(aList, aText, aValue) {"& vbCrLf
strTemp = strTemp +  "    var aOption = new Option(aText, aValue);"& vbCrLf
strTemp = strTemp +  "    eval(""aList.options[aList.options.length]=aOption"");"& vbCrLf
strTemp = strTemp +  "  }"& vbCrLf
strTemp = strTemp +  ""& vbCrLf
strTemp = strTemp +  "//数据区，可以在这里添加数据"& vbCrLf
strTemp = strTemp +  "//数据区，可以在这里添加数据"& vbCrLf
strTemp = strTemp +  "function changeClass(aForm) {"& vbCrLf
strTemp = strTemp +  "	"& vbCrLf
strTemp = strTemp +  "chgDnCombobox(aForm.ClassId1, aForm.ClassId, f_Set1 , 0);"& vbCrLf
strTemp = strTemp +  "}"& vbCrLf
strTemp = strTemp +  ""& vbCrLf
strTemp = strTemp +  ""& vbCrLf
strTemp = strTemp +  "function change_area(aForm) {"& vbCrLf
strTemp = strTemp +  "chgDnCombobox(aForm.LiveProvince, aForm.LiveCity, f_Set0 , 0);"& vbCrLf
strTemp = strTemp +  "}"& vbCrLf
strTemp = strTemp +  ""& vbCrLf
strTemp = strTemp +  "function changeArea(aForm) {"& vbCrLf
strTemp = strTemp +  "	"& vbCrLf
strTemp = strTemp +  "chgDnCombobox(aForm.HomeProvince, aForm.HomeCity, f_Set0 , 0);"& vbCrLf
strTemp = strTemp +  "}"& vbCrLf
strTemp = strTemp +  "function changeCommonArea(aForm) {"& vbCrLf
strTemp = strTemp +  "chgDnCombobox(aForm.WorldId, aForm.CountryId, f_Set0 , 0);"& vbCrLf
strTemp = strTemp +  "}"& vbCrLf
strTemp = strTemp +  "function changeCityArea(aForm) {"& vbCrLf
strTemp = strTemp +  "chgDnCombobox(aForm.CountryId, aForm.ToClassId, f_Set0 , 0);"& vbCrLf
strTemp = strTemp +  "}"& vbCrLf
strTemp = strTemp +  "function onchg(aForm) {"& vbCrLf
strTemp = strTemp +  "onchg(document.myform);}"& vbCrLf
strTemp = strTemp +  ""& vbCrLf
strTemp = strTemp +  ""& vbCrLf
strTemp = strTemp +  "var f_Set0 = new Array("& vbCrLf
oConn_Start
strSql = "Select * From sm_Class Where ClassType=4 and FatherId=0 order by ClassName"
Set oRs = oConn.Execute(strSql)
While Not oRs.Eof
	ClassId = oRs("ClassId")
	strTemp = strTemp + "new aClass('"&ClassId&"','"&ClassId&"','请选择"&oRs("ClassName")&"国家'),"& vbCrLf
	Set tempORs = oConn.Execute("Select * From sm_Class Where ClassType=4 And FatherId="&ClassId&"  order by ClassName")
	While not tempORs.Eof
		tempClassId = tempORs("ClassId")
		strTemp = strTemp + "new aClass('"&ClassId&"','"&tempClassId&"','"&tempORs("ClassName")&"'),"& vbCrLf
		Set SubtempORs = oConn.Execute("Select * From sm_Class Where ClassType=4 And FatherId="&tempClassId&" order by ClassName")
		While not SubtempORs.Eof
		strTemp = strTemp + "new aClass('"&tempClassId&"','"&SubtempORs("ClassId")&"','"&SubtempORs("ClassName")&"'),"& vbCrLf
		SubtempORs.MoveNext
		Wend
		SubtempORs.Close
		Set SubtempORs = Nothing
	tempORs.MoveNext
	Wend
	tempORs.Close
	Set tempORs = Nothing
oRs.MoveNext
Wend
oRs.Close
Set oRs = Nothing
oConn_Close
strTemp = strTemp +  "new aClass(""End"", ""End"", ""End""));" & vbCrLf

Set fso=Server.CreateObject("Scripting.FileSystemObject")
'创建要生成的静态页
Set f=fso.CreateTextFile(Server.MapPath("../global/script/changeDlList.js"),true)
'写入网页内容
f.WriteLine strTemp
f.close
set f=Nothing
set fso=Nothing
Response.Write "成功生成国际目的地js脚本！<br>"
%>