<%
dim count
set rs=server.createobject("adodb.recordset")
sql="select * from tbl_xx"
rs.open sql,connstr,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("newtype"))%>","<%= trim(rs("id"))%>");
<%
count = count + 1
rs.movenext
loop
rs.close
%>
onecount=<%=count%>;
function changelocation(locationid)
{
document.form1.a1.length = 0;
var locationid=locationid;
var i;
for (i=0;i < onecount; i++)
{
if (subcat[i][1] == locationid)
{
document.form1.a1.options[document.form1.a1.length] = new Option(subcat[i][1], subcat[i][0]);
}
}
<script language="vbscript">
Function bytes2BSTR(vIn)
Dim strReturn,i,ThisCharCode,innerCode,Hight8,Low8,NextCharCode
strReturn = ""
For i = 1 To LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
If ThisCharCode < &H80 Then
strReturn = strReturn & Chr(ThisCharCode)
Else
NextCharCode = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
i = i + 1
End If
Next
bytes2BSTR = strReturn
End Function
</script>
<script language="JavaScript">
/*
* 思路:通过XMLHTTP发出请求返回数据.再对数据进行处理.
* XMLHTTP返回的格式是"字符1,字符2,字符3".再到客户端分析.构建Select
* author:wanghr100(灰豆宝宝.net)
* update:2004-5-14 15:01
*/
function getData(str)
{
//通过XMLHTTP发出请求返回数据.
var oBao = new ActiveXObject("Microsoft.XMLHTTP");
oBao.open("POST","demo.asp?t1="+str,false);
oBao.send();
sdata = bytes2BSTR(oBao.ResponseBody);
//alert(sdata)
Javascript:buildSel(sdata,document.all.t2);
}
function buildSel(str,sel)
{
//接收到数据,构建Select,先清除原来的信息.
sel.options.length=1;
var arrstr = new Array();
arrstr = str.split(",");
for(var i=0;i<arrstr.length;i++)
{
sel.options[sel.options.length]=new Option(arrstr[i],arrstr[i])
}
}
</script>
<!--#include file="conn.asp"-->
<select name="t1" id="t1" OnChange="JavaScript:getData(this.value)">
<option selected value="">选择内容</option>
<%
strSQL = "Select distinct WEBAPP from WEBAccess order by WEBAPP"
set rsASP = Server.CreateObject("ADODB.Recordset")
rsASP.Open strSQL, conn
while not rsASP.EOF%>
<option value="<%=rsASP("WEBAPP")%>"><%=rsASP("WEBAPP")%></option>
<%rsASP.movenext
wend%>
</select>
第二个是:<select name="t2" id="t2">
<option selected value="">选择内容</option>
</select>
demo.asp
<!--#include file="conn.asp"-->
<%
t1=Request("t1")
strSQL = "Select distinct WEBASP from WEBAccess where WEBAPP='"&t1&"'"
set rs = conn.Execute(strSQL)
outstr = ""
set rsASP = Server.CreateObject("ADODB.Recordset")
rsASP.Open strSQL, conn
while not rsASP.EOF
outstr=outstr&rsASP("WEBASP")&","
rsASP.movenext
wend
Response.Write Left(outstr,Len(outstr)-1)
%>
conn.asp
<%
dim conn
dim connstr
on error resume next
connstr="DBQ="+server.MapPath("data.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.CreateObject("ADODB.CONNECTION")
conn.open connstr
%>