复制代码代码如下:
<!-#includefile = "conn.asp"->
<html>
<head>
<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*FRONSHIINFOORDERBYIDASC"
Rs.opensql, Conn, 1,1
-
<scriptLanguage = "JavaScript">
Varonecount;
onecount = 0;
subcat = newarray ();
-
นับ = 0
dowhilenotrs.eof
-
subcat [<%= count%>] = newarray ("<%= trim (rs (" shiname "))%>", "," <%= trim (rs ("shengcode"))%> "," <%= trim (rs ("id"))%> ");
-
นับ = นับ+1
Rs.Movenext
วง
Rs.close
-
oneCount = <%= นับ%>;
FunctionChangelocation (locationId)
-
document.form1.cid.length = 0;
varlocationId = locationId;
Vari;
สำหรับ (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;
returntrue
-
-
</script>
<formName = form1onSubMit = "ตรวจสอบ ()">
省份 <%
sql = "เลือก*fromshenginfo"
Rs.opensql, Conn, 1,1
ifrs.eofandrs.bofthen
Response.write "请先添加省份。"
Response.end
อื่น
-
<selectName = "sid" onchange = "changelocation (document.form1.sid.options [document.form1.sid.selectedIndex] .Value)"> <%
dowhilenotrs.eof
%> <optionSelectedValue = "<%= trim (rs (" id "))%>"> <%= trim (rs ("shengname"))%> </petion>
-
Rs.Movenext
วง
endif
Rs.close
-
</เลือก>