db="db1.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
'如果你的服务器采用较老版本Access驱动,请用下面连接方法
'connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(db)
conn.Open connstr
%>
用户组……
sql1="select * from rsGroup"
set rs1=conn.Execute(sql1)
rs1.MoveFirst
While Not rs1.EOF
%>
rs1.MoveNext
Wend
%>
用户……
//读入 rsUser的数据
arrSelect=new Array();
arrSelect[0] = new Array("用户……",0,0)
sql2="select * from rsUser"
Set rs2= Server.CreateObject("ADODB.Recordset")
rs2.Open sql2,conn,3,2
rcount=rs2.RecordCount
%>
rs2.MoveFirst
for i=1 to rcount
%>
arrSelect[]=new Array("","","");
rs2.MoveNext
next
%>
//更新 user 下拉列表的函数
function change_select(selvalue)
{
document.userset.sltUserID.length=0;
var i;
for(i=0;i
{
if(arrSelect[i][1]==selvalue)
{
var newoption=new Option(arrSelect[i][0],arrSelect[i][2]);
document.userset.sltUserID.add(newoption);
}
}
}