asp使用activex组件实例一ASP技巧

文章作者：三亚上门维修电脑发布日期：2012/2/11 9:00:06

test.asp

提示：复制和保存代码功能在FF下无效。

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

提示：复制和保存代码功能在FF下无效。

注意：联系我时，请一定说明是从【S】看到的信息，谢谢。

编辑：
联系电话：
联系 QQ：
打电话给我、或者加QQ好友时，请一定说明来自（三亚上门维修电脑）谢谢您！
三亚上门维修电脑

上一篇：NT下虚拟域名的实现ASP技巧

下一篇：为ASP开发者介绍ColdFusionASP技巧

网站首页　|　意见反馈　|　友情链接　|　网站地图