<script language="JavaScript"> <!-- function check(){ var errors=''; if(document.form2.name2.value == '') errors='请输入用户姓名\n'; if(errors!=""){ alert('填写错误如下:\n'+errors); return false; } var ifpass=''; <% set conn = server.CreateObject("adodb.connection") set rsconn=server.createobject("adodb.recordset") conn.open "Driver={Microsoft Access Driver (*.mdb)};dbq="&server.mappath("data\hospital_data.mdb") rs="select if_pass from user_tab where name='"&document.Form2.name1.value&"' and password='"&document.form2.password2.value&"'" rsconn.open rs,conn,1,3 do while not rsconn.eof %> ifpass='<%=rsconn("if_pass")%>'; <% loop rsconn.close conn.close %> if(ifpass=='3') window.open("insystem.asp"); return true; } //--> </script> 帮忙看看我上面错在那儿? 这个页面是html文档
function connect(db_name) { var dbc = new ActiveXObject("ADODB.Connection"); var dbcon = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="+db_name; dbc.Open(dbcon); return dbc; }
<%
asp程序
%>
</script>
<%
asp程序
%>
</script>
<!--
function check(){
var errors='';
if(document.form2.name2.value == '')
errors='请输入用户姓名\n';
if(errors!=""){
alert('填写错误如下:\n'+errors);
return false;
}
var ifpass='';
<%
set conn = server.CreateObject("adodb.connection")
set rsconn=server.createobject("adodb.recordset")
conn.open "Driver={Microsoft Access Driver (*.mdb)};dbq="&server.mappath("data\hospital_data.mdb")
rs="select if_pass from user_tab where name='"&document.Form2.name1.value&"' and password='"&document.form2.password2.value&"'"
rsconn.open rs,conn,1,3
do while not rsconn.eof
%>
ifpass='<%=rsconn("if_pass")%>';
<%
loop
rsconn.close
conn.close
%>
if(ifpass=='3')
window.open("insystem.asp");
return true;
}
//-->
</script>
帮忙看看我上面错在那儿?
这个页面是html文档
var dbc = new ActiveXObject("ADODB.Connection");
var dbcon = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="+db_name;
dbc.Open(dbcon);
return dbc;
}