<!--#include file="conn.asp" --> <% set cmd = conn.execute("select bigclassid,bigclassname from bigclass") tempid=cmd("bigclassid") %> <select name="menu" onChange="getsubcategory(this.value);">
<% if not cmd.eof then do while not cmd.eof bigclassid= cmd("bigclassid") bigclassname = cmd("bigclassname") %> <option value="<%=bigclassid%>"><%=bigclassname%></option> <% cmd.movenext loop end if cmd.close set cmd = nothing %> </select> <div id="subclass"> <select name="submenu">
<% set cxd = conn.execute("select * from smallclass where bigclassid=" & tempid) if not cxd.eof then do while not cxd.eof smallclassid= cxd("smallclassid") smallclassname = cxd("smallclassname")%> <option value="<%=smallclassid%>"><%=smallclassname%></option> <% cxd.movenext loop cxd.close set cxd = nothing else html = "<select name='smallclassid'><option value='0' selected>暫無小類</option></select>" response.write html end if %> </select> </div>
function getsubcategory(bigclassid){ if(bigclassid==0){ document.getElementById("subclass").innerHTML="<select name='smallclassid'><option value='0' selected>選擇二級分類</option></select>"; return; }; var xmlhttpobj = createxmlhttp(); if(xmlhttpobj){//如果創建對象xmlhttpobj成功 xmlhttpobj.onreadystatechange=handle; xmlhttpobj.open('get',"getsubcategory.asp?bigclassid="+bigclassid+"&number="+Math.random(),true);//get方法 加個隨機數。
xmlhttpobj.send(null); } }
function handle(){//客戶端監控函數 //if(xmlhttpobj.readystate==4){//服務器處理請求完成 if(xmlhttpobj.status==200){ //alert('ok'); var html = xmlhttpobj.responseText;//獲得返回值 document.getElementById("subclass").innerHTML=html; }else{ document.getElementById("subclass").innerHTML="對不起，您請求的頁面有問題..."; } //} //else{ //document.getElementById("subclass").innerHTML=xmlhttpobj.readystate;//服務器處理中 //} //}
}
getsubcategory.asp 代碼
<%@language="vbscript" codepage="936"%> <!--#include file="conn.asp"--> <% response.charset="gb2312" bigclassid=safe(request.querystring("bigclassid")) if bigclassid<>"" then set re=new regexp re.ignorecase=true re.global=false re.pattern = "^[0-9]{1,3}$" if not re.test(bigclassid) then response.write "非法參數" response.end end if%>
<%on error resume next set p = conn.execute("select * from smallclass where bigclassid=" & bigclassid) if err then err.clear response.write "查詢出錯" response.end end if if not p.eof then html = "<select name='select2'>"&vbnewline do while not p.eof html = html&"<option value='"&p("smallclassid")&"'>"&p("smallclassname")&"</option>"&vbnewline p.movenext loop html = html&"</select>" else html = "<select name='smallclassid'><option value='0' selected>暫無小類</option></select>" end if p.close set p = nothing conn.close set conn = nothing response.write html html = "" end if %>
