是这样的,平常进行ASP开发的时候,使用数据库的写法一般是
Set Conn = Server.CreateObject("ADODB.Connection")
db = "XXXXXX.mdb"
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.Open connstrconn就是数据源可以使用rs.open conn,1,1这样的查询语句。现在的做法是想把连接数据库的语句做到组件中,然后把CONN传递出来供ASP使用。应该以什么方式传递出来,ASP中以什么方式接收?就是以后在ASP中
Set ddd = Server.createobject("xxx.xxx")
Set ccc = ddd.连接数据库源的方法然后以后的ASP中,查询可以用rs.open ccc,1,1进行
Set Conn = Server.CreateObject("ADODB.Connection")
db = "XXXXXX.mdb"
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.Open connstrconn就是数据源可以使用rs.open conn,1,1这样的查询语句。现在的做法是想把连接数据库的语句做到组件中,然后把CONN传递出来供ASP使用。应该以什么方式传递出来,ASP中以什么方式接收?就是以后在ASP中
Set ddd = Server.createobject("xxx.xxx")
Set ccc = ddd.连接数据库源的方法然后以后的ASP中,查询可以用rs.open ccc,1,1进行
解决方案 »
- 菜鸟简单问题(送分50)
- 请问如何用SQL语句往SQLSERVER2000里插入图片
- GetMem,StrPas是什么函数?
- DEPHI+SQL SERVER(管理系统)) 大家给点建议!
- 小问题。。
- 我通过Bde连Sysbase数据库,查出来的汉字是乱字符,而在数据库里直接看则正常,如果从前台输入汉字保存到数据库中,前台显示正常,而数据
- 请问一个关于指针的问题
- 一个sql语句??????????????????????????###############
- 请问从过程或函数的定义部分跳转到实现部分有快捷方式吗?是什么?
- 吾乃一菜鸟,请问如何配置bde??
- 曾经看到一个屏幕保护程序,极酷:漂亮妹妹的照片像微软大旗一样在屏幕上漂来漂去的,不知是如何实现的?
- 杭州工作难找!!!!
其实,大家在书写asp程序时,最担心的可能就是数据库的连接信息,会被一些人看到,进行一些破坏。下面我们用vb6.0来做一个动态链接库(.dll)来隐藏数据库的连接信息。
启动vb6.0,新建-->Active dll工程。单击"工程"-->引用,选择"microsoft active server pages object library"
和"microsoft activeX data objects 2.1 library"两项。将类模块的名称改为dcss.将工程的名称改为yygwy.保存工程文件yygwy.vbp和类文件dcss.cls。
在dcss.cls中写入:
Private myscriptingcontext As ScriptingContext
Private myapplication As Application
Private myrequest As Request
Private myresponse As Response
Private myserver As Server
Private mysession As Session Public Sub onstartpage(passedscriptingcontext As ScriptingContext)
Set myscriptingcontext = passedscriptingcontext
Set myapplication = myscriptingcontext.Application
Set myrequest = myscriptingcontext.Request
Set myresponse = myscriptingcontext.Response
Set myserver = myscriptingcontext.Server
Set mysession = myscriptingcontext.Session
End Sub Public Sub onendpage()
Set myscriptingcontext = Nothing
Set myapplication = Nothing
Set myrequest = Nothing
Set myresponse = Nothing
Set myserver = Nothing
Set mysession = Nothing
End Sub '以上语句是必须的。
'定义两个公有函数 Public Function rsresult(strsql As String) As Recordset
Dim mycnn As Connection
Dim myset As Recordset
Dim strconnstring As String
'strconnstring = "provider=sqloledb.1;
password=;" & "user id=sa;" & "initial catalog=vlog;" & "data source=hpe60;
connect timeout=15"
strconnstring = "driver={sql server};server=yang;uid=sa;pwd=;
database=dcss"
'mycnn.ConnectionString = strconnstring
mycnn.Open strconnstring
myset.ActiveConnection = mycnn
myset.Open strsql, mycnn, 3, adCmdText
Set rsresult = myset
End Function Public Function datasource() As Variant
datasource = "driver={sql server};server=yang;uid=sa;pwd=; database=dcss"
End Function 编译生成dcss.dll文件。注册regsvr32 路径\dcss.dll。
用visual interdev打开global.asa文件.当然了,你也可以在其它文件中使用。
set dcss=server.CreateObject("yygwy.dcss")
oconn=dcss.datasource()
application("strconn")=oconn 在其它的页面中如下调用即可:
set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open application("strconn")