nse.Write "" &; vbCrLf Response.Write "
" &; vbCrLf Response.Write "" &; vbCrLf Response.Write "" &; vbCrLf Response.Write "" &; vbCrLf Response.Write "
" &; vbCrLf Response.Write " " &; vbCrLf Response.Write " 文章标题 | " &; vbCrLf Response.Write " 点击 | " &; vbCrLf Response.Write " 添加日期 | " &; vbCrLf Response.Write "
" &; vbCrLf Response.Write "
" &; vbCrLf While Not rs.EOF And Rows < rs.PageSize Response.Write "
" &; vbCrLf rs.MoveNext Wend Response.Write "" &; vbCrLf Response.Write "" &; vbCrLf
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
Exit Sub
Err:
If Err.Number = -13572468 Then Exit Sub
Resume Next
End Sub
使用 article.dll 后的 index.asp 中的代码:
<%Dim AspTransBuilderObject
Set AspTransBuilderObject = Server.CreateObject("article.Class1")
AspTransBuilderObject.AspClassInit
Set AspTransBuilderObject = Nothing%>
使用 article.dll 前的 index.asp 中的代码:
<% Set conn=Server.CreateObject("ADODB.Connection")
strcon = "Provider=Microsoft.Jet.OLEDB.4.0;" &; _
"Data Source=" &; Server.MapPath("Article.mdb")
conn.Open strcon %>
<% Set rs = Server.CreateObject ("ADODB.Recordset")
sql="select * from Article order b
y ArticleID desc"
rs.Open sql, Conn,1,1 %>
<% While Not Rs.Eof And Rows
<% Rs.MoveNext Wend %> <% rs.close set rs=nothing conn.close set conn=nothing %>
四、结论
因为这些代码是在服务器端运行的,所以客户端不需要安装任何东西。这仅仅是用 ActiveX DLL 所能实现的功能的小小的例子。你们可以写好自己的更大的组件,而且还可以 用 VB 中的很多控件。让我们用组件来扩展我们的程序的功能吧!也希望多多的看到我们中 国人的组件。但愿本文能起到抛砖引玉的作用。