#12002/10/24 13:49:47
帮我把数据库连到access,不通过 odbc
<%
dim zddh,zcm,mm
zddh=Trim(request.form("zddh"))
zcm=trim(request.form("aname"))
mm=trim(request.form("mm"))
comp="select code,adname from nameco where (code="+"'"+zddh+"'"+"AND"+" adname="+"'"+zcm+"'"+"AND"+" adcipher="+"'"+mm+"'"+")"
set conn=server.createobject("adodb.connection")
connpath="DBQ=" & server.mappath("yourtable.mdb")
conn.Open "DRIVER={Microsoft Access Driver (nameco.mdb)}; " & connpath
set rs=conn.execute("select from authors")
%>
<%if not rs.eof then%>
<%
response.cookies("login")("zddh")=zddh
response.cookies("login")("zcm")=zcm
response.redirect "manage.asp"
response.end
%>