针对有网友说看不见文章内容，
现提示如下:
点击每一个标题行任一地方都会展开和隐藏此文章内容(不要点击标题).
目前展开隐藏功能只支持IE浏览器，虽然可以改成支持FF浏览器，不过现在一直没时间去弄，等有时间再修改了。 |
|
blog名称:乱闪Blog
日志总数:267
评论数量:1618
留言数量:-26
访问次数:2681271
建立时间:2005年1月1日 |
|
|
| |
 用VB 6封装ASP代码, 制作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") |
|
|
