asp打开数据库

来源：百度知道 编辑：UC知道 时间：2024/06/27 06:07:11
<% dim ming
ming=Request.ServerVariables("HTTP_REFERER")
SqlProvider= "Microsoft.Jet.OLEDB.4.0"
Connstr="Provider="&SqlProvider&";Data Source="&Server.MapPath("db1.mdb")
set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from mi where yumi="&ming&""
rs.open sql,conn,1,1
mi3=rs("yumi")
if mi3<>"" then response.write"你好吗?"
else
response.write"你好"
end if
%>

哪里不对?
<% dim mi,mi1,mi2,strConn,conn
mi1=Request.ServerVariables("HTTP_REFERER")
mi2=replace(mi1,"http://","")
mi=replace(mi2,"/","")
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+Server.mappath("db1.mdb")+";Persist Security Info=False"
set conn = Server.CreateObject("ADODB.Connectio

<% '-这样看看
dim ming
ming=Request.ServerVariables("HTTP_REFERER")
SqlProvider= "Microsoft.Jet.OLEDB.4.0"
'-定义数据库地址
dim db
db="数据库路径"
Set conn = Server.CreateObject("ADODB.Connection") '建立连接对象 你没建立
Connstr="Provider="&SqlProvider&";Data Source="&Server.MapPath(db)
conn.open connstr '-打开连接 你也没打开
set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from mi where yumi='"&ming&"'" '-字符的话要加单引号你也没加
rs.open sql,conn,1,1
mi3=rs("yumi")
if mi3<>"" then
response.write"你好吗?"
else
response.write"你好"
end if

%>

<% Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db1.mdb")
conn.open conns