<style type="text/css">
<!--
body,td,th {
    font-size: 12px;
}
-->
</style>

<!--#include file="conn.asp"-->
<%
StartTime = Timer()
Str    = ""
roota  = "root"
Set rs = Server.Createobject("ADODB.RecordSet")
Sql    = "select * From MT_sshqdei"
rs.Open Sql,conn,1,1
I      = 0
Do While Not rs.Eof
Str    = Str &"array["&I&"]=new Array('"&rs("deiname")&"','"&roota&"','"&rs("deiname")&"');"&chr(13) '地域
I      = I + 1
        rootb   = rs("deiname")
        Set rs1 = Server.Createobject("ADODB.RecordSet")
        Sql     = "select * From MT_province where deiid="& rs("id")
        rs1.Open Sql,conn,1,1
        Do While Not rs1.Eof
        Str     = Str &"array["&I&"]=new Array('"&rs1("shengname")&"','"&rootb&"','"&rs1("shengname")&"');"&chr(13)'省级
        I       = I + 1
rootc   = rs1("shengname")
Set rs2 = Server.Createobject("ADODB.RecordSet")
Sql     = "select * From MT_city where shengid="& rs1("id")
rs2.Open Sql,conn,1,1
Do While Not rs2.Eof
Str     = Str &"array["&I&"]=new Array('"&rs2("shiname")&"','"&rootc&"','"&rs2("shiname")&"');"&chr(13)'市级
I       = I + 1
        rootd   = rs2("shiname")
        Set rs3 = Server.Createobject("ADODB.RecordSet")
        Sql     = "select * From MT_xiang where shiid="& rs2("id")
        rs3.Open Sql,conn,1,1
        Do While Not rs3.Eof
        Str     = Str &"array["&I&"]=new Array('"&rs3("xiangname")&"','"&rootd&"','"&rs3("xiangname")&"');"&chr(13)'县级
        I       = I + 1
        rs3.MoveNext
        Loop
        rs3.Close
        Set rs3 = Nothing
rs2.MoveNext
Loop
rs2.Close
Set rs2 = Nothing
        rs1.MoveNext
        Loop
        rs1.Close
        Set rs1 = Nothing
rs.MoveNext
Loop
rs.Close
Set rs = Nothing

Set FSO = Server.Createobject("scripting.filesystemobject")
Set fil2= FSO.CreateTextFile(server.mappath("sshqjs.html"),2,True)
fil2.Write "<select id=""s1"" name=""s1""></select><select id=""s2"" name=""s2""></select><select id=""s3"" name=""s3""></select><select id=""s4"" name=""s4""></select>" & vbNewLine
fil2.Write "<script language=""JavaScript"">" & vbNewLine
fil2.Write "<!--" & vbNewLine
fil2.Write "function LianDong(arr, sel)" & vbNewLine
fil2.Write "{" & vbNewLine
fil2.Write "var me = this;" & vbNewLine
fil2.Write "this.$ = function(o)" & vbNewLine
fil2.Write "{" & vbNewLine
fil2.Write "return document.getElementById(o);" & vbNewLine
fil2.Write "}" & vbNewLine
fil2.Write "this.sub = function (i, pid)" & vbNewLine
fil2.Write "{" & vbNewLine
fil2.Write "for (var j=i+1; j<sel.length; j++)" & vbNewLine
fil2.Write "{" & vbNewLine
fil2.Write "me.$(sel[j]).length = 0;" & vbNewLine
fil2.Write "me.$(sel[j]).options[0] = new Option(""请选择"", """");" & vbNewLine
fil2.Write "}" & vbNewLine
fil2.Write "for ( var j = 0; j < arr.length; j++)" & vbNewLine
fil2.Write "{" & vbNewLine
fil2.Write "if (arr[j][1] == pid)" & vbNewLine
fil2.Write "{" & vbNewLine
fil2.Write "me.$(sel[i+1]).options[me.$(sel[i+1]).length] = new Option(arr[j][2], arr[j][0]);" & vbNewLine
fil2.Write "}" & vbNewLine
fil2.Write "}" & vbNewLine
fil2.Write "}" & vbNewLine
fil2.Write "this.init = function()" & vbNewLine
fil2.Write "{" & vbNewLine
fil2.Write "me.sub(-1,""root"");" & vbNewLine
fil2.Write "for (var i=0; i<sel.length-1; i++)" & vbNewLine
fil2.Write "{" & vbNewLine
fil2.Write "me.$(sel[i]).onchange = function()" & vbNewLine
fil2.Write "{" & vbNewLine
fil2.Write "var i;" & vbNewLine
fil2.Write "for (i=0; me.$(sel[i])!=this; i++);" & vbNewLine
fil2.Write "me.sub(i, me.$(sel[i]).value);" & vbNewLine
fil2.Write "}" & vbNewLine
fil2.Write "}" & vbNewLine
fil2.Write "}" & vbNewLine
fil2.Write "this.init();" & vbNewLine
fil2.Write "}" & vbNewLine
fil2.Write "var array=new Array();" & vbNewLine
fil2.Write Str
fil2.Write "var select = new Array(""s1"",""s2"",""s3"",""s4"");" & vbNewLine
fil2.Write "var liandong=new LianDong(array, select)" & vbNewLine
fil2.Write "//-->" & vbNewLine
fil2.Write "</script>" & vbNewLine
Set FSO = Nothing
EndTime = Timer()
CountTime = EndTime - StartTime
Response.Write "文件生成完毕......<P>耗时:<Font color=red>0"&CountTime&"</font>毫秒"
%>