复制代码代码如下:
<! - # includeFile = "conn.asp" ->
<html>
<adal>
<Metahttp-Equiv = "Content-Type" Content = "Text / Html; charSet = GB2312">
<métaname = "générateur" contenu = "MicrosoftFrontPage4.0">
<métaname = "Progid" content = "FrontPage.Editor.Document">
<Title> NewPage1 </Title>
</ head>
<body>
<%
diminue
dimsql
diminue
setrs = server.createObject ("adodb.recordSet")
SQL = "SELECT * NOSHIINFOORDERBYIDASC"
Rs.OpenSQL, Conn, 1,1
%>
<criptLanguage = "JavaScript">
VaroNeCount;
onCount = 0;
subcat = newArray ();
<%
comte = 0
dowhilenotrs.eof
%>
subcat [<% = count%>] = newArray ("<% = trim (rs (" shiname "))%>", "<% = trim (rs (" shengcode "))%>", "<% = trim (rs (" id "))%>");
<%
Count = Count + 1
Rs.MovEnext
boucle
Rs.Close
%>
onCount = <% = count%>;
FunctionChangelocation (locationID)
{
document.form1.cid.length = 0;
varLocationId = locationId;
vari;
pour (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]);
}
}
}
</cript>
<criptLanguage = "JavaScript">
<! -
FonctionCheckForm ()
{
document.form1.txtContent.value = document.form1.doc_html.value;
retourner
}
// ->
</cript>
<formName = form1onsubmit = "check ()">
省份 <%
SQL = "SELECT * NORSHENGINFO"
Rs.OpenSQL, Conn, 1,1
ifrs.eofandrs.bofthen
réponse.WRITE "请先添加省份。"
réponse.
autre
%>
<lectName = "sid" onChange = "ChangeLocation (document.form1.sid.options [document.form1.sid.selectedIndex] .Value)"> <%
dowhilenotrs.eof
%> <OptionselectedValue = "<% = trim (rs (" id "))%>"> <% = Trim (RS ("Shengname"))%> </opoption>
<%
Rs.MovEnext
boucle
endire
Rs.Close
%>
</lect>