28,390
社区成员
发帖
与我相关
我的任务
分享
<!--#include file="inc/conn.asp" -->
<%
dim rs,sql
Set rs = Server.CreateObject("adodb.recordset")
sql="select * from [tablename]"
rs.open sql,conn,1,1
if not(rs.bof and rs.eof) then
response.Write("连接成功")
response.write(sql)
else
response.Write("连接失败")
response.write(sql)
end if
rs.close
set rs=nothing
%>
<%
Dim connStr,conn,db,BackupName
db=="/date/#Derek!aaa.mdb"
BackupName="aaabk.asp"
connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
set conn=server.CreateObject("adodb.connection")
conn.open connStr
if conn.state<>1 then
set conn=nothing
response.write"数据库连接错误!<br>"
response.write err.description'调试用,成功后删除
response.end
end if
%>
<%
Dim connStr,conn,db,BackupName
db=="/date/#Derek!aaa.mdb"
BackupName="aaabk.asp"
connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.open connStr
if conn.state<>1 then
set conn=nothing
response.write"数据库连接错误!<br>"
response.write err.description'调试用,成功后删除
response.end
end if
%>
<%
Dim conn,Dataname,path,db,BackupName
Dataname="#Derek!aaa.mdb"
path="/date/"
db=""&path&""&dataname&""
BackupName="aaabk.asp"
conn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath( ""&db&"")
%>