asp使用activex组件实例一
日期：2012-11-30 浏览次数：21083 次
test.asp
以下内容为程序代码
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title>activex组件应用例子一</title>
</head>
<body>
<%
'---------------------------------------------------------
'activex组件应用例子一
'读取sql server 7 pubs数据库中authors表并分页显示
'asp文件中负责调用并前台数据检验，这里主要指page参数
'该例子完全使用activex组件来完成功能，速度快，保密性好，但页面定制能力差
'jjx by 2000/4/15
'----------------------------------------------------------------
dim blnError
if not isempty(request("page")) then
if not isnumeric(request("page")) then
response.write "参数错误！"
blnError=true
end if
end if
if not blnError then
dim objLoop
Set objLoop=Server.CreateObject("Performance.Loop")
objLoop.List()
Set objLoop=Nothing
end if
%>
</body>
</html>
vb loop class file
创建一个performance activex dll项目，引用microsoft active server pages library和Microsoft ActiveX Databae Object。
填加一个class,命名为loop
以下内容为程序代码
Option Explicit
Dim MyScriptingContext As ScriptingContext
Dim MyRequest As Request
Dim MyResponse As Response
Sub OnEndPage()
Set MyResponse = Nothing
Set MyRequest = Nothing
Set MyScriptingContext = Nothing
End Sub
Sub OnStartPage(PassedScriptingContext As ScriptingContext)
Set MyScriptingContext = PassedScriptingContext
Set MyRequest = MyScriptingContext.Request
Set MyResponse = MyScriptingContext.Response
End Sub
Function List()
Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim i As Integer
Dim j As Integer
Dim intPage As Integer
Dim intPageSize As Integer
Dim intPageCount As Integer
Dim strScriptName As String
Dim intPos As Integer
Dim intFieldCount As Integer
strScriptName = MyRequest.ServerVariables("Script_Name")
intPos = InStrRev(strScriptName, "/")
If intPos <> 0 Then
strScriptName = Mid(strScriptName, intPos + 1)
End If
If IsEmpty(MyRequest("page")) Then
intPage = 1
Else
intPage = CInt(MyRequest("page"))
End If
intPageSize = 10
&nb
以下内容为程序代码<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title>activex组件应用例子一</title>
</head>
<body>
<%
'---------------------------------------------------------
'activex组件应用例子一
'读取sql server 7 pubs数据库中authors表并分页显示
'asp文件中负责调用并前台数据检验，这里主要指page参数
'该例子完全使用activex组件来完成功能，速度快，保密性好，但页面定制能力差
'jjx by 2000/4/15
'----------------------------------------------------------------
dim blnError
if not isempty(request("page")) then
if not isnumeric(request("page")) then
response.write "参数错误！"
blnError=true
end if
end if
if not blnError then
dim objLoop
Set objLoop=Server.CreateObject("Performance.Loop")
objLoop.List()
Set objLoop=Nothing
end if
%>
</body>
</html>
vb loop class file
创建一个performance activex dll项目，引用microsoft active server pages library和Microsoft ActiveX Databae Object。
填加一个class,命名为loop
以下内容为程序代码Option Explicit
Dim MyScriptingContext As ScriptingContext
Dim MyRequest As Request
Dim MyResponse As Response
Sub OnEndPage()
Set MyResponse = Nothing
Set MyRequest = Nothing
Set MyScriptingContext = Nothing
End Sub
Sub OnStartPage(PassedScriptingContext As ScriptingContext)
Set MyScriptingContext = PassedScriptingContext
Set MyRequest = MyScriptingContext.Request
Set MyResponse = MyScriptingContext.Response
End Sub
Function List()
Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim i As Integer
Dim j As Integer
Dim intPage As Integer
Dim intPageSize As Integer
Dim intPageCount As Integer
Dim strScriptName As String
Dim intPos As Integer
Dim intFieldCount As Integer
strScriptName = MyRequest.ServerVariables("Script_Name")
intPos = InStrRev(strScriptName, "/")
If intPos <> 0 Then
strScriptName = Mid(strScriptName, intPos + 1)
End If
If IsEmpty(MyRequest("page")) Then
intPage = 1
Else
intPage = CInt(MyRequest("page"))
End If
intPageSize = 10
&nb
免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
