function B1_onclick() {
if ( frmsend.pass.value==""){
alert("密码不能为空！");
return false;
}else{
frmsend.submit();
return true;
}
}
//-->
管理员登陆
height="128" bgcolor="#FFCCFF" align="center">
请输入密码:
Set Conn=Server.CreateObject("ADODB.Connection")
Connstr="DBQ="+server.mappath("bbsdb.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UserCommitSync=Yes;"
Conn.Open connstr
%> B1=Request("B1")
'response.write B1
If B1="登陆" Then
sql="SELECT * FROM user WHERE username='" &trim( Request("name")) & "'"
Set Rs=conn.Execute(sql)
If Rs.Eof Then
%>
alert("管理员尚未注册,请先注册管理员");
//-->
Else
If Request("pass")Rs("pwd") Then
%>
alert("口令不对！");
//-->
else%> conn.Execute sql
conn.close%> End If
End If
%>
