asp使用activex组件实例一 -友情网中网「Www.33EE.Com」

ASP组件

ASP教程
 ASP文摘
 ASP实例
 ASP FAQ
ASP安全
 ASP组件
 ASP其它

本类阅读TOP10

·FileSystemobject组件
·w3 upload组件实例应用1
·NewMail 对象（CDONTS 库）发送邮件
·ASP的几大可扩展组件（一）
·Asp Image 简要介绍
·组件对象开发Web应用的实例分析
·使用ASP建立Http组件
·asp使用activex组件实例一
·Counters 组件参考(一) - 概述
·用ASP生成Chart (二维饼图)

→ 精品推荐

asp使用activex组件实例一

作者：未知来源：未知 加入时间：2004-12-1

test.asp

<!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>

vb loop class file创建一个performance activex dll项目，引用microsoft active
server pages library和Microsoft ActiveX Databae Object。

　　填加一个class,命名为loop

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

（出处：不详）

相关文章：
相关软件：


\| 网络工具 \| 系统工具 \| 应用软件 \| 多媒体类 \| 联络聊天 \| 行业软件 \| 图形图像 \| 安全相关 \| 编程开发 \| 教育教学 \| 游戏娱乐 \| \| 程序源码 \| ASP 源码 \| CGI 源码 \| PHP 源码 \| 驱动下载 \| 字体下载 \| 素材下载 \| 桌面大全 \| 闪客天地 \| 外挂插件 \| 考题下载 \|


站内搜索：