南强小屋 Design By 杰米
********************** (一) 打开记录集,创建数组,把记录集的值赋给数组.
<%
Dim count
set Rs=server.createobject("adodb.recordset")
Sql = "select * from BookBoard order by ClassId desc"
Rs.open Sql,cn,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("BoardName"))%>","<%= trim(Rs("ClassId"))%>","<%= trim(Rs("BoardId"))%>");
<%count = count + 1
Rs.movenext
loop
Rs.close%>
onecount=<%=count%>;
function changelocation(locationid)
{document.form1.BoardId.length = 0;
var locationid=locationid;
var i;
for (i=0;i < onecount; i++)
{if (subcat[i][1] == locationid)
{document.form1.BoardId.options[document.form1.BoardId.length] = new Option(subcat[i][0], subcat[i][2]);
}}}
</script>
********************** (二) 显示分组,并编写列表框的OnChange事件.
<%set Rs=server.CreateObject("adodb.recordset")
Sql="select * from BookClass order by ClassId desc"
Rs.open Sql,cn,1,1
if Rs.eof and Rs.bof then
response.write "请先添加总类。"
response.end
else%>
<select name="ClassId" onChange="changelocation(document.form1.ClassId.options[document.form1.ClassId.selectedIndex].value)">
<option selected value="">==请选择大类==</option>
<% do until Rs.eof%>
<option value="<%=trim(Rs("ClassId"))%>"><%=trim(Rs("ClassName"))%></option>
<%Rs.movenext
loop
end if
Rs.close
set Rs = nothing%>
</select>
<select name="BoardId"><option selected value="">==请选择小类==</option>
</select>
<%
Dim count
set Rs=server.createobject("adodb.recordset")
Sql = "select * from BookBoard order by ClassId desc"
Rs.open Sql,cn,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("BoardName"))%>","<%= trim(Rs("ClassId"))%>","<%= trim(Rs("BoardId"))%>");
<%count = count + 1
Rs.movenext
loop
Rs.close%>
onecount=<%=count%>;
function changelocation(locationid)
{document.form1.BoardId.length = 0;
var locationid=locationid;
var i;
for (i=0;i < onecount; i++)
{if (subcat[i][1] == locationid)
{document.form1.BoardId.options[document.form1.BoardId.length] = new Option(subcat[i][0], subcat[i][2]);
}}}
</script>
********************** (二) 显示分组,并编写列表框的OnChange事件.
<%set Rs=server.CreateObject("adodb.recordset")
Sql="select * from BookClass order by ClassId desc"
Rs.open Sql,cn,1,1
if Rs.eof and Rs.bof then
response.write "请先添加总类。"
response.end
else%>
<select name="ClassId" onChange="changelocation(document.form1.ClassId.options[document.form1.ClassId.selectedIndex].value)">
<option selected value="">==请选择大类==</option>
<% do until Rs.eof%>
<option value="<%=trim(Rs("ClassId"))%>"><%=trim(Rs("ClassName"))%></option>
<%Rs.movenext
loop
end if
Rs.close
set Rs = nothing%>
</select>
<select name="BoardId"><option selected value="">==请选择小类==</option>
</select>
南强小屋 Design By 杰米
广告合作：本站广告合作请联系QQ：858582 申请时备注：广告合作（否则不回）
免责声明：本站文章均来自网站采集或用户投稿，网站不提供任何软件下载或自行开发的软件！ 如有用户或公司发现本站内容信息存在侵权行为，请邮件告知！ 858582#qq.com
免责声明：本站文章均来自网站采集或用户投稿，网站不提供任何软件下载或自行开发的软件！ 如有用户或公司发现本站内容信息存在侵权行为，请邮件告知！ 858582#qq.com
南强小屋 Design By 杰米
暂无编写一个含二级目录的源码(Asp+JavaScript)的评论...
稳了！魔兽国服回归的3条重磅消息！官宣时间再确认！
昨天有一位朋友在大神群里分享，自己亚服账号被封号之后居然弹出了国服的封号信息对话框。
这里面让他访问的是一个国服的战网网址，com.cn和后面的zh都非常明白地表明这就是国服战网。
而他在复制这个网址并且进行登录之后，确实是网易的网址，也就是我们熟悉的停服之后国服发布的暴雪游戏产品运营到期开放退款的说明。这是一件比较奇怪的事情，因为以前都没有出现这样的情况，现在突然提示跳转到国服战网的网址，是不是说明了简体中文客户端已经开始进行更新了呢？