CopyCode The Code is as follows: <! -- # Include file = "conn. asp" -->
<HTML>
<Head>
<Meta http-equiv = "Content-Type" content = "text/html; charset = gb2312">
<Meta name = "generator" content = "Microsoft FrontPage 4.0">
<Meta name = "progid" content = "FrontPage. Editor. Document">
<Title> New Page 1 </title>
</Head>
<Body>
<%
Dim rs
Dim SQL
Dim count
Set rs = server. Createobject ("ADODB. recordset ")
SQL = "select * From shiinfo order by ID ASC"
Rs. Open SQL, Conn, 1, 1
%>
<Script language = "JavaScript">
VaR onecount;
Onecount = 0;
Subcat = new array ();
<%
Count = 0
Do while not Rs. EOF
%>
Subcat [<% = count %>] = new array ("<% = trim (RS (" shiname ") %> ", "<% = trim (RS (" shengcode ") %>", "<% = trim (RS (" ID ") %> ");
<%
Count = count + 1
Rs. movenext
Loop
Rs. Close
%>
Onecount = <% = count %>;
Function changelocation (locationid)
{
Document. form1.cid. Length = 0;
VaR locationid = locationid;
VaR I;
For (I = 0; I <onecount; I ++)
{
If (subcat [I] [1] = locationid)
{
Document. form1.cid. Options [document. form1.cid. Length] = New Option (subcat [I] [0], subcat [I] [2]);
}
}
}
province <%
SQL =" select * From shenginfo "
Rs. open SQL, Conn, 1, 1
If RS. EOF and Rs. bof then
response. write "add a province first. "
response. end
else
%>
<% do while not Rs. EOF %> "> <% = trim (RS ("shengname ")) %> <% Rs. movenext loop end if Rs. close %>
city: == select city ==