52,797
社区成员
发帖
与我相关
我的任务
分享
<%@LANGUAGE="VBSCRIPT.Encode" CODEPAGE="65001"%>
<%
Db="data/test12.mdb"
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(Db)
On Error Resume Next
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ConnStr
function getBigClass()
dim sql
sql = "select * from BigClass"
set rs = server.CreateObject("adodb.Recordset")
rs.open sql,conn,1,3
do while not rs.eof
BigClass= BigClass&"<option value='"&rs("BigClassId")&"'>"&rs("BigClassName")&"</option>"
rs.movenext
loop
Response.Write BigClass
End function
%>
<script>
function sendajax(BigClassId)
{
var ajaxObj;
var values;
if(window.XMLHttpRequest){
ajaxObj = new XMLHttpRequest();
} else if(window.ActiveXObject){
ajaxObj = new ActiveXObject("Microsoft.XMLHTTP");
}
if(ajaxObj){
//alert("创建ajax成功!");
}
ajaxObj.open("GET","getSmallClass.asp?BigClassId="+BigClassId,true);
ajaxObj.onreadystatechange = function(){
if(ajaxObj.readyState==4){
if(ajaxObj.status==200)
{
var txt = ajaxObj.responseText
document.getElementById("t").innerHTML=txt;
}
}
}
ajaxObj.send(null);
}
</script>
<div>
<select id="BigClass" onchange="sendajax(this.options[selectedIndex].value)">
<%
Call getBigClass()
%>
</select>
<select id="SmallClass">
</select>
</div>
<span id="t"></span>
<%@LANGUAGE="VBSCRIPT.Encode" CODEPAGE="65001"%>
<% Db="data/test12.mdb"
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(Db)
On Error Resume Next
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ConnStr
BigClassId = request("BigClassId")
set rs = server.CreateObject("adodb.recordset")
rs.open "select * from SmallClass where BigClassId="&BigClassId,conn,1,3
do while not rs.eof
SmallClassStr = SmallClassStr&rs("SmallClassId")&","&rs("SmallClassName")&"|"
rs.movenext
loop
Response.Write SmallClassStr
rs.close
set rs = nothing
%>
var txt = gb2utf8(ajaxObj.responseBody)
function gb2utf8(data){
var glbEncode = [];
gb2utf8_data = data;
execScript("gb2utf8_data = MidB(gb2utf8_data, 1)", "VBScript");
var t=escape(gb2utf8_data).replace(/%u/g,"").replace(/(.{2})(.{2})/g,"%$2%$1").replace(/%([A-Z].)%(.{2})/g,"@$1$2");
t=t.split("@");
var i=0,j=t.length,k;
while(++i<j) {
k=t[i].substring(0,4);
if(!glbEncode[k])
{
gb2utf8_char = eval("0x"+k);
execScript("gb2utf8_char = Chr(gb2utf8_char)", "VBScript");
glbEncode[k]=escape(gb2utf8_char).substring(1,6);
}
t[i]=glbEncode[k]+t[i].substring(4);
}
gb2utf8_data = gb2utf8_char = null;
return unescape(t.join("%"));
}