为什么dll不用引用Conn.asp里的Connection
为什么dll不用引用Conn.asp里的Connection
================================================
UeManage.Dll的MusicCls类
================================================
Option Explicit
Public UeSC As ScriptingContext
Public UeAC As Application
Public UeRQ As Request
Public UeRS As Response
Public UeSV As Server
Public UeSS As Session
Public Conn As Connection
Public Sub OnStartPage(MyscriptingContext As ScriptingContext)
Set UeSC = MyscriptingContext
Set UeAC = MyscriptingContext.Application
Set UeRQ = MyscriptingContext.Request
Set UeRS = MyscriptingContext.Response
Set UeSV = MyscriptingContext.Server
Set UeSS = MyscriptingContext.Session
End Sub
Public Sub OnEndPage()
Set UeSC = Nothing
Set UeAC = Nothing
Set UeRQ = Nothing
Set UeRS = Nothing
Set UeSV = Nothing
Set UeSS = Nothing
End Sub
Public Function AddBigclass()
Dim Rs, Sql, TempList
TempList = "<TABLE height=27 cellSpacing=1 cellPadding=3 width=100% bgColor=#cccccc border=0>" & vbCrLf
TempList = TempList & "<tr>" & vbCrLf
TempList = TempList & "<td colspan=7 bgcolor=#E7E7E7> </td>" & vbCrLf
TempList = TempList & "</tr>" & vbCrLf
Set Rs = UeSV.CreateObject("Adodb.ReCordSet")
Sql = "Select * From Ue_MusicBig"
Rs.Open Sql, Conn, 1, 1
Do While Not Rs.EOF
TempList = TempList & "<tr>" & vbCrLf
TempList = TempList & "<td colspan=7 bgcolor=#E7E7E7>" & Rs("ClassCName") & "</td>" & vbCrLf
TempList = TempList & "</tr>" & vbCrLf
Rs.MoveNext
Loop
Rs.Close
Set Rs = Nothing
TempList = TempList & "</table>" & vbCrLf
UeRS.Write TempList
End Function
===============================================
Conn.asp
===============================================
<%@ LANGUAGE="VBSCRIPT" codepage ="936" %>
<%
Option Explicit
Response.Buffer = True
Dim SqlDatabaseName,SqlPassword,SqlUsername,SqlHostIP
Public Conn
'如果是Sql数据库，请认真修改好以下数据库选项
SqlUsername = "Text 'Sql数据库用户名
SqlPassword = "123456" 'Sql数据库用户密码
SqlDatabaseName = "Text 'Sql数据库名
SqlHostIP = "(local)" 'Sql主机IP地址（本地可用“127.0.0.1”或“(local)”，非本机请用真实IP）
Call OpenConn()
Public Sub OpenConn()
On Error Resume Next
Dim ConnStr
ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlHostIP & ";"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open Connstr
End Sub
Sub CloseConn()
On Error Resume Next
If IsObject(Conn) Then
Conn.close
Set Conn=nothing
end if
End Sub
%>
===============================================
Text.asp
===============================================
<!--#include file="Conn.asp"-->
<%
Dim MusicObj
Set MusicObj = Server.CreateObject("UeManage.MusicCls")
MusicObj.AddBigclass()
Set MusicObj = Nothing
%>
问题点数：100、回复次数：12Top
1 楼liuxiaoyi666（MSMVP 小猪妹荣誉马甲之八卦兔子）回复于 2005-04-03 08:32:41 得分 100
你应该把这个conn对象给函数调用才可以的，类已经被编译了，跟inc是不一样的Top
2 楼infop（棠）回复于 2005-04-03 08:35:15 得分 0
那应该怎样写才可以调用呢?Top
3 楼mymyal123（风之森）回复于 2005-04-03 09:27:36 得分 0
绑定数字签名Top
4 楼liuxiaoyi666（MSMVP 小猪妹荣誉马甲之八卦兔子）回复于 2005-04-03 09:28:21 得分 0
AddBigclass(conn)
你最好用个 isObject函数检查一下Top
5 楼hhjjhjhj（大头)(http://office.9zp.com）回复于 2005-04-03 10:36:27 得分 0
Text.asp
===============================================
<!--#include file="Conn.asp"-->
<%
Dim MusicObj
Set MusicObj = Server.CreateObject("UeManage.MusicCls")
set MusicObj.conn=conn '把对象传入
MusicObj.AddBigclass()
Set MusicObj = Nothing
%>
Top
6 楼liuxiaoyi666（MSMVP 小猪妹荣誉马甲之八卦兔子）回复于 2005-04-03 11:03:36 得分 0
汗,忘了,直接载入就可以了,写得太麻烦了,楼上正解Top
7 楼infop（棠）回复于 2005-04-03 14:01:27 得分 0
还是不懂呢..Top
8 楼infop（棠）回复于 2005-04-03 14:08:23 得分 0
Text.asp
===============================================
<!--#include file="Conn.asp"-->
<%
Dim MusicObj
Set MusicObj = Server.CreateObject("UeManage.MusicCls")
set MusicObj.conn=conn '把对象传入
MusicObj.AddBigclass()
Set MusicObj = Nothing
%>
像这样写不是每一个FUNCTON都要把set MusicObj.conn=conn '把对象传入吗？比较麻烦Top
9 楼liuxiaoyi666（MSMVP 小猪妹荣誉马甲之八卦兔子）回复于 2005-04-03 14:17:49 得分 0
你不用dll改用inc的话写起来是简便多了的Top
10 楼infop（棠）回复于 2005-04-03 14:32:26 得分 0
你是意思是??能加我QQ聊吗？Top
11 楼infop（棠）回复于 2005-04-03 16:41:52 得分 0
UpTop
12 楼liuxiaoyi666（MSMVP 小猪妹荣誉马甲之八卦兔子）回复于 2005-04-03 17:27:51 得分 0
444547460
标注上CSDN就可以了Top
