<%
dim i
dim aa
sql = "select * from sjk"
rs.open sql,conn,1,1
do while not rs.eof
aa = split(rs("BCE"),"/")if ubound(aa) > 2 then
i = i&","&rs("id")
end if
rs.movenext
loop
response.Write i%>
dim i
dim aa
sql = "select * from sjk"
rs.open sql,conn,1,1
do while not rs.eof
aa = split(rs("BCE"),"/")if ubound(aa) > 2 then
i = i&","&rs("id")
end if
rs.movenext
loop
response.Write i%>
<script language="javascript">
//用 javascript 写服务器端连接数据库的代码示例
function conn(){
var db_bbs
db_bbs="dd.mdb"//定义数据库
var conn = new ActiveXObject("ADODB.Connection");
conn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+db_bbs+"");
var rs = new ActiveXObject("ADODB.Recordset");
var sql="select name from authors"; //数据库中有authors表,name字段
rs.open(sql,conn);
alert(rs(0))//取出第一个来conn.close();
conn = null;
}
</script>
另外LZ要好好学学基础知识了