复制代码代码如下:
<!-#includeFile = "conn.asp"->
<Html>
<head>
<metahttp-equiv = "konten-tipe" 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 = "pilih*fromshiinfoorderbyidasc"
rs.opensql, Conn, 1,1
%>
<ScriptLanguage = "JavaScript">
varonecount;
Onecount = 0;
subcat = newArray ();
<%
Hitung = 0
dowhilenotrs.eof
%>
Subcat [<%= Count%>] = newArray ("<%= trim (rs (" shiname "))%>", "<%= trim (rs (" shengcode "))%>", "<%= trim (rs (" id "))%>");
<%
hitung = hitung+1
rs.movenext
lingkaran
rs.close
%>
Onecount = <%= Count%>;
FunctionChangelocation (LocationID)
{
document.form1.cid.length = 0;
varlocationId = locationId;
vari;
untuk (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>
<ScriptLanguage = "JavaScript">
<!-
functionCheckform ()
{
document.form1.txtcontent.value = document.form1.doc_html.value;
kembali
}
//->
</script>
<formname = form1onsubmit = "check ()">
省份 <%
sql = "pilih*fromshenginfo"
rs.opensql, Conn, 1,1
ifrs.eofandrs.bofthen
response.write "请先添加省份。"
respons.end
kalau tidak
%>
<SelectName = "sid" onchange = "changelocation (document.form1.sid.options [document.form1.sid.selectedIndex] .value)"> <%
dowhilenotrs.eof
%> <OptionsElectedValue = "<%= trim (rs (" id "))%>"> <%= trim (rs ("shengname"))%> </pection>
<%
rs.movenext
lingkaran
endif
rs.close
%>
</Pilih>