复制代码代码如下::
<!-#includeFile = "conn.asp"->
<html>
<kopf>
<metahttp-äquiv = "content-type" content = "text/html; charSet = gb2312">
<metaname = "generator" content = "microsoftfrontPage4.0">
<metaname = "progid" content = "FrontPage.Editor.Document">
<title> newpage1 </title>
</head>
<body>
<%
dimrs
Dimsql
Dimcount
setrs = server.createObject ("adodb.recordset")
SQL = "SELECT*AUSSHIINFOORDERBYIDASC"
Rs.opensql, Conn, 1,1
%>
<criptuanguage = "javaScript">
varonecount;
OneCount = 0;
subcat = newArray ();
<%
count = 0
dowhilenotrs.eof
%>
subcat [<%= count%>] = newArray ("<%= trim (rs (" shiname ")%>", "<%= trim (rs (" shengcode ")%>", "<%= trim (rs (" id ")%>");
<%
count = count+1
Rs.Movenext
Schleife
rs.close
%>
OneCount = <%= count%>;
FunktionChangelocation (StandortID)
{
document.form1.cid.length = 0;
varLocationId = locationId;
vari;
für (i = 0; i <OneCount; i ++)
{
if (subcat [i] [1] == locationId)
{
document.form1.cid.options [document.form1.cid.length] = newOption (subcat [i] [0], subcat [i] [2]);
}
}
}
</Script>
<criptuanguage = "javaScript">
<!-
functionCheckform ()
{
document.form1.txtContent.value = document.form1.doc_html.value;
returnTrue
}
//->
</Script>
<formname = form1onsubmit = "check ()">
省份 <%
SQL = "SELECT*AUSSCHENGINFO"
Rs.opensql, Conn, 1,1
ifrs.eofandrs.Bofthen
Antwort.Write "请先添加省份。"
Antwort.end
anders
%>
<SelectName = "sid" onchange = "änderung (document.form1.sid.options [document.form1.sid.selectedIndex] .Value)"> <%
dowhilenotrs.eof
%> <OptionSelectedValue = "<%= trim (rs (" id ")%>"> <%= trimm (rs ("shengname")%> </option>
<%
Rs.Movenext
Schleife
Endif
rs.close
%>
</Select>