set conn=server.CreateObject("ADODB.connection") conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.MapPath("***/photodata.mdb") '更改您的数据库文件存放路径 set rs=server.createobject("ADODB.recordset") sql="SELECT * FROM data" '更改您的数据库表名 rs.Open sql,conn,1,1
asp常用代码
1、数据库连接
set conn=server.CreateObject("ADODB.connection") conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.MapPath("***/photodata.mdb") '更改您的数据库文件存放路径 set rs=server.createobject("ADODB.recordset") sql="SELECT * FROM data" '更改您的数据库表名 rs.Open sql,conn,1,1
2、密码保护页面
-----pass.asp-----------
<%
Response.Buffer = True
Dim Password
Password = "asphole" '更改您的密码
If Request.Form("pass") = Password Then Session("pass") = Request.Form("pass") End If