第2个回答 2008-05-07
这是用的VB
<%
dim conn,db
dim connstr
dim username,password
username=trim(request.Form("username"))
password=trim(request.Form("password"))
db="../data/sjk.mdb" '数据库文件位置
on error resume next
connstr="DBQ="+server.mappath(""&db&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};UID="&username&";PWD="&password&";" ‘或者先登录再查询比较
set conn=server.createobject("ADODB.CONNECTION")
if err then
alert("错误的用户名和密码!")
else
conn.open connstr
end if
sub CloseConn()
conn.close
set conn=nothing
end sub
%>