繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > asp使用activex组件实例一
- ASP
- asp利用dictionary创建二维数组
- ASP + Serv-u 实现FTP的代码
- asp获取数据库中所有表名和字段名
- SITEMAP生成程序的ASP实现
- 通过XMLHTTP实现模板式静态页生成
- 实践xml缓存技术构建高性能web站点
- 一个简单好用的UBB编辑器(含代码)
- 使用ASP脚本命令重新启动服务器
- 技巧：用ASP在线创建Word与Excel文档
- ASP.NET后台代码实现XmlHttp跨域访问
- 浅析 ASP.NET编程中的十大技巧
- 用ASP实现IE地址栏参数的判断
- ASP调用SQL Server视图和存储过程
- 应用：用ASP实现在线文章翻译的功能
- ASP实现无组件生成验证码-GIF格式
- ASP实现长文章自动分页的函数代码
- 深入研究Application和Session对象
- 提高ASP的速度的方法：GetString
- ASP进阶教程Ⅶ：留言簿设置密码验证
- asp获取文件md5值
ASP 中的 asp使用activex组件实例一
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 98 ::
收藏到网摘: n/a
test.asp[code]<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html><head>
<title>activex组件应用例子一</title></head>
<%
'---------------------------------------------------------
'activex组件应用例子一
'读取sql server 7 pubs数据库中authors表并分页显示
'asp文件中负责调用并前台数据检验，这里主要指page参数
'该例子完全使用activex组件来完成功能，速度快，保密性好，但页面定制能力差
'jjx by 2000/4/15
'----------------------------------------------------------------
dim blnErrorif not isempty(request("page")) then
if not isnumeric(request("page")) then
response.write "参数错误！"
blnError=true
end ifend ifif not blnError then
dim objLoop
Set objLoop=Server.CreateObject("Performance.Loop")
objLoop.List()
Set objLoop=Nothingend if%>
</body></html>[/code]vb loop class file创建一个performance activex dll项目，引用microsoft active server pages library和Microsoft ActiveX Databae Object。
填加一个class,命名为loop[code]Option Explicit
Dim MyScriptingContext As ScriptingContextDim MyRequest As RequestDim 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
con.Open "Provider=SQLOLEDB.1;Persist Security Info=Fal
评论 (0) All
