在asp页面中实现连接access数据库和SQL数据库
该怎么做,虽然看了代码.我这边没装IIS..不晓得改出来的代码能否实现,有别的方法没的.换个问题。代码如下<%db="admin/data/guest.mdb"setco...
该怎么做,虽然看了代码.我这边没装IIS..不晓得改出来的代码能否实现,有别的方法没的.
换个问题。 代码如下
<%
db="admin/data/guest.mdb"
set conn=server.createobject("adodb.connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
set rs=server.createobject("adodb.recordset")
rs.open "select * from guest where guest_id=287 ",conn,1,3
rs("guest_title")="你去死a"
rs("guest_qq")="12312aaaaa312aa3123"
rs("guest_email")="123123dd1@1232.com"
rs("guest_ip")="111.121.111.111"
rs.Update
Response.Write("<script>alert('添加成功');window.location='121.asp';</script>")
rs.Close
set rs=nothing
conn.close
set conn=nothing
%>
我想实现这么个样子,这个代码只是个雏形,..我想用的类似图形界面来完成查询,添加,修改,删除类.
如果可以实现数据库查询语句也可以,添加成功则弹框"添加成功" 失败则弹框"添加失败" 包括修改 和删除 完后可以跳转查询页面
说起来可能有点复杂如果懂我的意思就晓得 展开
换个问题。 代码如下
<%
db="admin/data/guest.mdb"
set conn=server.createobject("adodb.connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
set rs=server.createobject("adodb.recordset")
rs.open "select * from guest where guest_id=287 ",conn,1,3
rs("guest_title")="你去死a"
rs("guest_qq")="12312aaaaa312aa3123"
rs("guest_email")="123123dd1@1232.com"
rs("guest_ip")="111.121.111.111"
rs.Update
Response.Write("<script>alert('添加成功');window.location='121.asp';</script>")
rs.Close
set rs=nothing
conn.close
set conn=nothing
%>
我想实现这么个样子,这个代码只是个雏形,..我想用的类似图形界面来完成查询,添加,修改,删除类.
如果可以实现数据库查询语句也可以,添加成功则弹框"添加成功" 失败则弹框"添加失败" 包括修改 和删除 完后可以跳转查询页面
说起来可能有点复杂如果懂我的意思就晓得 展开
4个回答
展开全部
If DataBaseType=0 then
'如果是ACCESS数据库,请认真修改好下面的数据库的文件名
DBPath = "/LLD_Data/LLD_Data.mdb" 'ACCESS数据库的文件名,请使用相对于网站根目录的的绝对路径
Else
'如果是SQL数据库,请认真修改好以下数据库选项
DataServer = "MIKE" '数据库服务器IP
DataUser = "sa" '访问数据库用户名
DataBaseName = "LLD_Date" '数据库名称
DataBasePsw = "123" '访问数据库密码
End if
'采集数据库路径
CollectDBPath="\LLD_Data\Collect\LLD_Collect.Mdb"
'=============================================================== 以下代码请不要自行修改========================================
Call OpenConn
Sub OpenConn()
On Error Resume Next
If DataBaseType = 1 Then
ConnStr="Provider = Sqloledb; User ID = " & datauser & "; Password = " & databasepsw & "; Initial Catalog = " & databasename & "; Data Source = " & dataserver & ";"
SqlNowString = "getdate()"
DataPart_D = "d"
DataPart_Y = "y"
DataPart_H = "hour"
Else
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DBPath)
SqlNowString = "Now()"
DataPart_D = "'d'"
DataPart_Y = "'yyyy'"
DataPart_H = "'h'"
End If
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnStr
If Err Then Err.Clear:Set conn = Nothing:Response.Write "数据库连接出错,请检查Conn.asp文件中的数据库参数设置。":Response.End
CollcetConnStr ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(CollectDBPath)
End Sub
Sub CloseConn()
On Error Resume Next
Conn.close:Set Conn=nothing
End sub
'如果是ACCESS数据库,请认真修改好下面的数据库的文件名
DBPath = "/LLD_Data/LLD_Data.mdb" 'ACCESS数据库的文件名,请使用相对于网站根目录的的绝对路径
Else
'如果是SQL数据库,请认真修改好以下数据库选项
DataServer = "MIKE" '数据库服务器IP
DataUser = "sa" '访问数据库用户名
DataBaseName = "LLD_Date" '数据库名称
DataBasePsw = "123" '访问数据库密码
End if
'采集数据库路径
CollectDBPath="\LLD_Data\Collect\LLD_Collect.Mdb"
'=============================================================== 以下代码请不要自行修改========================================
Call OpenConn
Sub OpenConn()
On Error Resume Next
If DataBaseType = 1 Then
ConnStr="Provider = Sqloledb; User ID = " & datauser & "; Password = " & databasepsw & "; Initial Catalog = " & databasename & "; Data Source = " & dataserver & ";"
SqlNowString = "getdate()"
DataPart_D = "d"
DataPart_Y = "y"
DataPart_H = "hour"
Else
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DBPath)
SqlNowString = "Now()"
DataPart_D = "'d'"
DataPart_Y = "'yyyy'"
DataPart_H = "'h'"
End If
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnStr
If Err Then Err.Clear:Set conn = Nothing:Response.Write "数据库连接出错,请检查Conn.asp文件中的数据库参数设置。":Response.End
CollcetConnStr ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(CollectDBPath)
End Sub
Sub CloseConn()
On Error Resume Next
Conn.close:Set Conn=nothing
End sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
用conn_access和conn_sql两个,用到哪个打开哪个!
还有,没装IIS你怎么调试ASP,还是说你用远程调试?
如果你要实现图形界面,那你做表单做不就行了,相应位置设置成参数不就OK了!
还有,没装IIS你怎么调试ASP,还是说你用远程调试?
如果你要实现图形界面,那你做表单做不就行了,相应位置设置成参数不就OK了!
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
做两个CONN
CONN1链接ACCESS
CONN2链接SQL
然后相对应的RES 接收不同数据库的数据
想用哪个就用哪个
这个是不抵触的
CONN1链接ACCESS
CONN2链接SQL
然后相对应的RES 接收不同数据库的数据
想用哪个就用哪个
这个是不抵触的
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
conn1连接ACCESS
conn2连接sql
用到ACSECC 就打开CONN1
用到 SQL 就打开 conn2
conn2连接sql
用到ACSECC 就打开CONN1
用到 SQL 就打开 conn2
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询