|
|
|
|
|
| | |
| |
Active Server Pages asp source code database MS SQL MS Access .mdb adovbs.inc cookies calendar codes sql commands scripts asp programming tutorials iis web server components CJWSoft ASPProtect ASPBanner ASPClassifieds
(Advanced)
(Components)
(Database)
(General)
(Vbscript)
|
|
|
|
Subject: |
Re: Advanced Password Protection |
|
From: |
Tim |
|
Date: |
9/10/1999 8:18:02 AM |
|
IP: |
207.51.162.13 |
<%
Dim RecObject
DatabasePath = "../your_database.mdb"
DatabaseName = "your_database"
Conn_ConnectionString = "DBQ=" & Server.MapPath(DatabasePath) & ";DefaultDir=" & Server.MapPath(DatabaseName) & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open Conn_ConnectionString, "admin", "your_database_password"
Set cmdTemp = Server.CreateObject("ADODB.Command")
Set RecObject = Server.CreateObject("ADODB.Recordset")
cmdTemp.CommandText = "SELECT SomeField, FROM SomeTable"
cmdTemp.CommandType = 1
Set cmdTemp.ActiveConnection = Conn
RecObject.Open cmdTemp, , 1, 1
%>
|
Previous Message
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
