asp+ajaxとデータベースドライバーによる二次連携メニュー_PHPチュートリアル

Index.asp 页面代码

复制代 代码如下:

<%
set cmd = conn.execute("select bigclassid,bigclassname from bigclass")
tempid=cmd("bigclassid")
%>


cmd.eof でない場合は
cmd.eof でないときに実行する
bigclassid= cmd("bigclassid")
bigclassname = cmd("bigclassname")
%>
<%=bigclassname%>
cmd.movenext
ループ
end if
cmd.close
set cmd = nothing
%>

<名前="サブメニュー"を選択>

<%
set cxd = conn.execute("select * from smallclass where bigclassid=" & tempid)
cxd.eofでない場合は、
cxd.eofでない場合は実行します
smallclassid= cxd("smallclassid")
smallclassname = cxd("小さいクラス名")%>
<%=smallclassname%>
<%
cxd.movenext
loop
cxd.close
set cxd = nothing
else
html = "

暂無小类< ;/オプション>"
response.write html
end if
%>

ajax.js 代码

复制代码 代码如下:

// JavaScript Document
function createxmlhttp()
{
xmlhttpobj = false;
try{
xmlhttpobj = 新しい XMLHttpRequest;
}catch(e){
try{
xmlhttpobj=new ActiveXObject("MSXML2.XMLHTTP");
}catch(e2){
try{
xmlhttpobj=new ActiveXObject("Microsoft.XMLHTTP");
}catch(e3){
xmlhttpobj = false;
}
}
}
xmlhttpobj を返します。
}

function getsubcategory(bigclassid){
if(bigclassid==0){
document.getElementById("subclass").innerHTML="選択二段階目";
戻る;
};
var xmlhttpobj = createxmlhttp();
if(xmlhttpobj){//如果创建对オブジェクトxmlhttpobj成功
xmlhttpobj.onreadystatechange=handle;
xmlhttpobj.open('get',"gestbcategory.asp?bigclassid="+bigclassid+"&number="+Math.random(),true);//get メソッド加个随机数。


xmlhttpobj.send(null );
}
}

function handle(){//客户端监制御関数
//if(xmlhttpobj.readystate==4){// 服务器处理请要求完了
if(xmlhttpobj.status==200){
//アラート('ok');
var html = xmlhttpobj.responseText;//获得返值
document.getElementById("subclass").innerHTML=html;
}else{
document.getElementById("subclass").innerHTML="对不起，您请求的页面有问题...";
}
//}
//else{
//document.getElementById("subclass").innerHTML=xmlhttpobj.readystate;//服务器处理中
//}
//}

}

月別カテゴリ。 asp 代

复制代 代码如下:

<%@ language="vbscript" codepage="936"%>

<%
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 エラーで次の再開
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 = ""&vbnewline
do while not p.eof
html = html&"p.movenext
loop
html = html&""
else
html = "暂無小类"
end if
p.close
set p = nothing
conn.close
set conn = nothing
response.write html
html = ""
end if
%>

http://www.bkjia.com/PHPjc/321638.htmlwww.bkjia.comtru​​ehttp://www.bkjia.com/PHPjc/321638.html技術記事 Index.asp ページ コードのコピー コードは次のとおりです: !--#include file="conn.asp" -- % set cmd = conn.execute("select bigclassid,bigclassname from bigclass") tempid=cmd("bigclassid") % ...