asp使用activex组件实例一

发表日期：2000-10-21

新浪微博 QQ空间 QQ微博百度搜藏腾讯朋友 QQ收藏百度空间人人网开心网

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=False;User ID=sa;Initial Catalog=pubs;Data Source=
(local)"

　　rs.Open "select * from authors", con, adOpenStatic

　　intFieldCount = rs.Fields.Count

　　With MyResponse

　　.Write "<table border=1>"

　　If Not (rs.EOF And rs.BOF) Then

　　rs.PageSize = 10

　　rs.AbsolutePage = intPage

　　intPageCount = rs.PageCount

　　If intPage > intPageCount Then

　　intPage = intPageCount

　　End If

　　

　　

　　If intPageCount > 1 Then

　　.Write "<tr><td colspan=" & intFieldCount & ">"

　　For i = 1 To intPageCount

　　If intPage = i Then

　　.Write "[" & i & "] "

　　Else

　　.Write "<a href=" & strScriptName & "?page=" & i & ">[" & i & "]</a> "

　　End If

　　Next

　　.Write "</td></tr>"

　　

　　

　　End If

　　End If

　　

　　.Write "<tr>"

　　For i = 0 To intFieldCount - 1

　　.Write "<th>" & rs(i).Name & "</th>"

　　Next

　　.Write "</tr>"

　　

　　For i = 1 To intPageSize

　　If rs.EOF Then

　　Exit For

　　End If

　　.Write "<tr>"

　　For j = 0 To intFieldCount - 1

　　.Write "<td>" & rs(j).Value & "</td>"

　　Next

　　

　　.Write "</tr>"

　　rs.MoveNext

　　Next

　　.Write "</table>"

　　End With

　　

　　rs.Close

　　Set rs = Nothing

　　con.Close

　　Set con = Nothing

　　End Function

　　[/code]

关注此文的读者还看过：
·2012-5-22 17:36:01 ASP快速获取远程文件大小
·2012-5-22 17:35:09 如何使用asp创建dsn?
·2012-5-22 17:33:21 介绍一种效率极高的分类算法
·2012-5-22 17:32:01 ADO.NET:使用ADO.NET连接文本文件
·2012-5-22 17:31:32 修改Metabase.xml文件提升IIS性能
·2012-5-22 17:30:50 使用ASP加密算法加密你的数据（一）
·2012-5-22 17:30:33 【译】使用自定义ViewHelper来简化Asp.net MVC view的开发------part4
·2012-5-22 17:29:48 VisualInterDev6.0七种实现分页显示的方法
·2012-5-22 17:29:27 构建你的网站新闻自动发布系统之二

站长推荐 PS笔刷下载在线翻译系统进程广告代码

发表评论
姓　名:	验证码:
内　容:

教程搜索服务

项目外包信息

·寻会php的程序员外包网站
·派桑网络-网络营销专家
·汽车配件网站制作 50000元
·整站SEO优化
·课件门户网程序
·求长期合作网站设计制作高手
·公司网站重新改版 8000元
·asp企业网站小改动
·网站flash片头
·文化传播公司网站设计稿
·UI界面设计
·产品外观改版设计 15000元
·照明灯具网站设计 10000元
·求长期合作网站设计制作高手
·做B2C网站 20000元

发布信息

浏览信息

邮件订阅服务

输入你的邮件地址，你将不会错过任何关于<ASP技巧>的内容

网络编程文章分类

ASP教程
ASP实例
ASP技巧
ASP文摘
PHP教程
PHP技巧
PHP实例
PHP文摘
JSP教程
JSP技巧
JSP实例
JSP文摘
ASP.NET教程
ASP.NET技巧
ASP.NET实例
ASP.NET应用
xml教程
xsl教程
xml技巧
C#教程
C#应用
Delphi教程
Perl教程
Shell教程
Ajax教程
Visual Basic教程
Java教程
J2EE/J2ME教程
C/C++教程
移动解决方案
移动短信技术
移动行业动态
软件工程
WordPress
Android开发