 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
test.asp <html><head> <title>activex组件应用例子一</title></head> <% 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 返回类别: 教程 上一教程: 留言簿自动发E-MAIL 下一教程: 运用ASP结合VBSCRIPT模仿股票滚屏 您可以阅读与"ASP使用ACTIVEX组件实例一"相关的教程: · 用ASPMAIL组件实现E_MAIL自动反馈 · 手把手教你使用VB来创建ASP组件(5) · 使用ASP中的VB ACTIVEX.DLL文件 · 手把手教你使用VB来创建ASP组件(2) · 创建 VISUAL BASIC COM 组件在 ASP 中使用 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
