太阳能硅片:关于ASP中登陆的问题

来源:百度文库 编辑:查人人中国名人网 时间:2024/05/13 12:11:48
<%
' Declare our variables
Dim strDBVirtualPath, strDBLocation, strConnect
strDBVirtualPath = "memberDB/LoginInfo.mdb"
strDBLocation = Server.MapPath(strDBVirtualPath)
strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBLocation
Response.Write Chr(13)
%>

网络上的原码很多。
<%
pathfile = "0url/2fly/2fly_date.asp"
connstr="DBQ="+server.mappath( pathfile )+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
%>