复制代码代码如下 :
<!-#includefile = "conn.asp"->
<html>
<헤드>
<metahttp-equiv = "content-type"content = "text/html; charset = gb2312">
<metaname = "Generator"Content = "MicrosoftFrontPage4.0">
<metaname = "progid"content = "FrontPage.editor.document">
<title> NewPage1 </title>
</head>
<body>
<%
희미한
dimsql
디미커
setrs = server.createobject ( "adodb.recordset")
sql = "select*fromshiinfoorderbyidasc"
Rs.Opensql, Conn, 1,1
%>
<scriptLanguage = "JavaScript">
VaroneCount;
oneCount = 0;
subcat = newArray ();
<%
카운트 = 0
dowhilenotrs.eof
%>
서브 캣 [<%= count%>] = newArray ( "<%= trim (rs ("shiname "))%>", "<%= trim (rs ("shengcode ")))%>", "<%= trim ("id "))%>");
<%
count = count+1
rs.movenext
고리
Rs.Close
%>
oneCount = <%= count%>;
FunctionChangelocation (locationId)
{
document.form1.cid.length = 0;
varlocationid = locationId;
vari;
for (i = 0; i <oneCount; i ++)
{
if (subcat [i] [1] == locationid)
{
document.form1.cid.options [docum
}
}
}
</스크립트>
<scriptLanguage = "JavaScript">
<!-
functioncheckform ()
{
document.form1.txtContent.value = document.form1.doc_html.Value;
returntrue
}
//->
</스크립트>
<formname = form1onsubmit = "Check ()">
省份 <%
sql = "select*fromshenginfo"
Rs.Opensql, Conn, 1,1
ifrs.eofandrs.bofthen
응답. write "" "
응답. 엔드
또 다른
%>
<selectname = "sid"onchange = "changelocation (document.form1.sid.options [document.form1.sid.SelectedIndex] .Value)"> <%
dowhilenotrs.eof
%> <OptionSelectedValue = "<%= trim (rs ("id "))%>"> <%= trim (rs ( "shengname"))%> </옵션>
<%
rs.movenext
고리
endif
Rs.Close
%>
</선택>