Asp コンポーネントの中級入門および習得シリーズの 1 つである
7 つの主要なチュートリアルを作成しました
。必ず、書く必要がある基本事項がいくつかあります。中級チュートリアルの内容を徐々に補足していきます。
これは、誰もがそうであるかもしれません。 most concerned about: such as: database Operation and packaging. Asp内置对象的使用。これらの部分については、長い時間をかけて説明します。この部分では、ADO を使用してデータベースを操作することに習熟し、ASP の 5 つの主要なオブジェクトに精通している必要があります。
我们看一下网上比较流传的一些资料：
ご存知のとおり、ASP には Response、Request、Server、Session、Application の 5 つの組み込みオブジェクトがあります。実際、これらの 5 つの組み込みオブジェクトは、IIS コンソールによって初期化される 5 つの ActiveX DLL コンポーネントです。 ASP で使用する 5 つのコンポーネント。もちろん、ActiveX DLL でこれらのコンポーネントを直接参照してプログラミングを実装することもできます。つまり、VB アプリケーションでこれらのコンポーネントを参照することで、ASP 組み込みオブジェクトにアクセスする機能を実現できます。
PWS4 または IIS4 以降の WEB サーバーをインストールしている限り、「Microsoft Active Server Pages Object」という名前のオブジェクト ライブラリがあり、このオブジェクト ライブラリを VB の ActiveX DLL アプリケーションで参照することができます。 obtained an object (class): ScriptingContext, which is also the core object of our entire article.オブジェクト ライブラリ内の関係は次のとおりです。
オブジェクト ライブラリ クラス クラス メンバー
ASPTypeLibrary ScriptingContext アプリケーション
要求
応答
セッション
サーバー
上記の関係図を通じて、クラス ScriptingContent を簡単に理解できます。
具体的な例を見てみましょう。vb6
を開いて、新しい Activex Dll プロジェクトを作成します。プロジェクト名を fCom 、クラス名を fZ1 に変更します。
「Microsoft Active Server Pages Object」オブジェクト ライブラリへの参照。
2 つのコンポーネント イベントを作成します: OnStartPage と OnEndPage
イベント OnStartPage に ScriptingContent クラスへの参照を作成します。
实例化类ScriptingContent。
コードは次のとおりです:
プログラムコード
明示的なオプション
'オブジェクト宣言
Dim myResponse As Response
Dim myRequest As Request
Dim myApplication As Application
Dim myServer As Server
Dim mySession As Session
'当组件被创建的时候会触发这个事件
Public Sub OnStartPage(myScriptingContent As ScriptingContext)
'进行对象的实例化
Set myResponse = myScriptingContent.Response
Set myRequest = myScriptingContent.Request
myServer = myScriptingContent.Server を設定します
Set myApplication = myScriptingContent.Application
mySession = myScriptingContent.Session を設定します
myResponse.Write "ActiveX DLL コンポーネントが作成されました!"
End Sub
'このイベントはコンポーネントが破棄されたときにトリガーされます
Public Sub OnEndPage()
myResponse.Write "ActiveX DLL コンポーネントが破壊されました!"
'オブジェクトを破壊する
myResponse = なしを設定します
myRequest = なしを設定します
myServer = なしを設定します
myApplication = なしを設定します
mySession = なしを設定します
End Sub
'独自のコンポーネントメソッドを定義する
Public Sub HelloWorld()
myResponse.Write "これは ASP 組み込みオブジェクトを使用して書かれています"
エンドサブ
Visual interdev6.0 を開いてテストし、ASP ファイルを生成する
プログラムコード
<%@ 言語=VBScript %>
<HTML>
<本体>
<%
set obj=server.CreateObject("fCom.fZ1")
call obj.HelloWorld()
%>
</BODY>
</HTML>
仮想ディレクトリを構成し、この ASP ファイルを IE で実行すると、結果は次のようになります。
ActiveX DLL コンポーネントが作成されました! ASP 組み込みオブジェクトで記述されたこの ActiveX DLL コンポーネントは破棄されました!
Asp コンポーネントの中級入門と習熟シリーズ 第 2 回
まず Application オブジェクトを見てみましょう。以前は、Application オブジェクトがカウンターによく使用されていました。接続文字列については、カウンターを例に挙げます。
まず、global.asa ファイルを見てみましょう。これは比較的単純です。
プログラムコード
<script language =vbscript runat=server>
sub Application_onstart
Application("Counter")=0
エンドサブ
</script>
次に、
vb6 を開いて、新しい Activex Dll プロジェクトを作成します。プロジェクト名は fCom に変更され、クラス名は fZ2 に変更されます。
「Microsoft Active Server Pages Object」オブジェクト ライブラリへの参照。
2 つのコンポーネント イベントを作成します: OnStartPage と OnEndPage
イベント OnStartPage に ScriptingContent クラスへの参照を作成します。
实例化类ScriptingContent。
代码如下：
程序代码
明示的なオプション
'对象的声明
myResponse を応答として暗くする
私のリクエストをリクエストとして暗くする
myApplication をアプリケーションとして暗くする
myServer をサーバーとして暗くする
mySession をセッションとして暗くする
'このイベントはコンポーネントの作成時にトリガーされます
Public Sub OnStartPage(myScriptingContent As ScriptingContext)
'进行对象的实例化
myResponse = myScriptingContent.Response を設定します。
myRequest = myscriptingContent.Requestを設定します
Set myServer = myScriptingContent.Server
myApplication = myScriptingContent.Application を設定します。
Set mySession = myScriptingContent.Session
エンドサブ
'このイベントはコンポーネントが破棄されたときにトリガーされます
Public Sub OnEndPage()
'オブジェクトを破壊する
myResponse = なしを設定します
Set myRequest = Nothing
myServer = なしを設定します
myApplication = なしを設定します
mySession = なしを設定します
エンドサブ
『aspで書いたものをvbに移しても書き方が同じであることがわかります。
パブリック サブ ShowCounter()
ディムインカウンターアズロング
myApplication.Lock
intcounter = myApplication("カウンター")
intcounter = intcounter + 1
myApplication("カウンター") = intcounter
myApplication.UnLock
myResponse.Write CStr(intcounter)
エンドサブ
テスト
し、ASP ファイルを生成する
プログラムコード
<%@ 言語=VBScript %>
<HTML>
<本体>
<%
薄暗いオブジェクト
set obj=server.CreateObject("fCom.fZ2")
obj.ShowCounter()
%>
</BODY>
</HTML>
仮想ディレクトリを構成した後、global.asa ファイルをルート ディレクトリに配置し、この ASP ファイルを IE で実行し、ページを更新すると、番号が変化することがわかります。
アプリケーションの使用方法は以上です。
Asp コンポーネントの中級の入門レベルやマスタリー シリーズ 3 の
セッションと比較すると、vb6 を開いて新しい Activex Dll プロジェクトを作成するのがはるかに簡単です
。工程名修改为fCom,类名修改为fZ3
「Microsoft Active Server Pages Object」オブジェクト ライブラリへの参照。
2 つのコンポーネント イベントを作成します: OnStartPage と OnEndPage
イベント OnStartPage に ScriptingContent クラスへの参照を作成します。
クラス ScriptingContent をインスタンス化します。
コードは次のとおりです。
プログラムコード
明示的なオプション
'オブジェクト宣言
myResponse を応答として暗くする
私のリクエストをリクエストとして暗くする
myApplication をアプリケーションとして暗くする
myServer をサーバーとして暗くする
mySession をセッションとして暗くする
'このイベントはコンポーネントの作成時にトリガーされます
Public Sub OnStartPage(myScriptingContent As ScriptingContext)
'オブジェクトのインスタンス化を実行
myResponse = myScriptingContent.Response を設定します。
myRequest = myScriptingContent.Request を設定します。
Set myServer = myScriptingContent.Server
myApplication = myScriptingContent.Application を設定します。
mySession = myScriptingContent.Session を設定します
End Sub
'このイベントはコンポーネントが破棄されたときにトリガーされます
Public Sub OnEndPage()
'オブジェクトを破壊する
myResponse = なしを設定します
Set myRequest = Nothing
myServer = なしを設定します
myApplication = Nothingを設定します
mySession = なしを設定します
エンドサブ
『aspで書いたものをvbに移しても書き方が同じであることがわかります。
'得到所有的session的变量和值
パブリックサブ ShowSession()
' 20 分のタイムアウトを設定できます
mySession.Timeout = 20
ディムマイアイテム
'すべてのセッションを取得
mySession.Contents の myitem ごとに
myResponse.Write myitem & ": " & mySession.Contents(myitem)
myResponse.Write "<br>"
次
エンドサブ
テスト
して開き、asp ファイルを生成して仮想ディレクトリを構成し、この asp ファイルを IE で実行すると、
tornado という名前が表示されます。
年齢: 26
特长: 组件
Session的用法就讲到这里。 Session の他の使用法も同様です。
ASP コンポーネントの中間エントリーとマスタリー シリーズ 4 では、
リクエストを学習します。
ページによって送信されたコンテンツをコンポーネントで取得する方法を確認するには
、vb6 を開いて新しい Activex Dll プロジェクトを作成します。プロジェクト名は fCom に変更され、クラス名は fZ4 に変更されます。
「Microsoft Active Server Pages Object」オブジェクト ライブラリへの参照。
2 つのコンポーネント イベントを作成します: OnStartPage と OnEndPage
イベント OnStartPage に ScriptingContent クラスへの参照を作成します。
クラス ScriptingContent をインスタンス化します。
コードは次のとおりです:
プログラムコード
明示的なオプション
'オブジェクト宣言
myResponse を応答として暗くする
私のリクエストをリクエストとして暗くする
myApplication をアプリケーションとして暗くする
myServer をサーバーとして暗くする
mySession をセッションとして暗くする
'当组件被创建的时候会触发这个事件
Public Sub OnStartPage(myScriptingContent As ScriptingContext)
'オブジェクトのインスタンス化を実行
myResponse = myScriptingContent.Response を設定します。
Set myRequest = myScriptingContent.Request
myServer = myScriptingContent.Server を設定します
myApplication = myscriptingContent.Applicationを設定します
mySession = myscriptingcontent.sessionを設定します
End Sub
'このイベントはコンポーネントが破棄されたときにトリガーされます
Public Sub OnEndPage()
'オブジェクトを破壊する
myResponse = なしを設定します
myRequest = なしを設定します
myServer = なしを設定します
myApplication = なしを設定します
mySession = なしを設定します
End Sub
'aspで書いたものをvbに移すと書き方が同じであることがわかります。
パブリック サブ ShowRequest()
ディムマイアイテム
'ポストウェイ
myRequest.Form の各 myitem について
myResponse.Write myitem & ": " & myRequest.Form(myitem)
myresponse.write "<br>"
次
'メソッドを取得します
myRequest.QueryString 内の各 myitem について
myResponse.Write myitem & ": " & myRequest.QueryString(myitem)
myresponse.write "<br>"
次
'単一のメッセージ
myResponse.Write "メッセージの 1 つは " & ": " & myRequest("ユーザー名")
myresponse.write "<br>"
エンドサブ
テスト
し、fz41.asp ファイルの
プログラム コード
を生成します。
<%@ 言語=VBScript %>
<HTML>
<本体>
<form action = "fz4_result.asp" method = "post">
<INPUT id=text1 name=ユーザー名>
<INPUT id=text2 name=年齢>
<INPUT id=submit1 type=submit value=Submit name=提交>
</form>
</BODY>
</HTML>
プログラム コード
を生成する必要もあります。
<%@ 言語=VBScript %>
<HTML>
<本体>
<%
DIM OBJ
set obj=server.CreateObject("fCom.fZ4")
obj.showRequestに電話してください
%>
</BODY>
</HTML>
さらに、提出方法も確認する必要があるため、fz42.asp ファイルの
プログラム コードが
必要です。
<%@ 言語=VBScript %>
<HTML>
<本体>
<form action="fz4_result.asp?username='"& ユーザー名 &"'& age='"& 年齢 &"'" Method="get" id=form1 name=form1>
<INPUT id=text1 name=username>
<INPUT id=text2 name=age>
<INPUT id=submit1 type=submit value=Submit name=submit>
</form>
</BODY>
</HTML>
仮想ディレクトリを構成し、IE で fc41.asp ファイルを実行します。内容を入力した後、ボタンをクリックすると、
ユーザー名: Tornado が
表示されます。
年齢: 26
送信: 送信
メッセージの 1 つは「Tornado」です。
内容を入力した後、ボタンをクリックすると、
ユーザー名「Tornado」が表示されます。
年齢: 26
送信: 送信
メッセージの1つは
次のとおりです：竜巻とアドレスバーは
http://yang/xml/fz4_result.asp?username=%C1%FA%BE%ED%B7%E7&age=26&%CC%E1%BD%BB=Submit
つづく
Asp コンポーネント中級入門・習得シリーズ 第 5 回
Let's take a look at the Response object.実際、これまでのチュートリアルではこのオブジェクトの Write メソッドを使用してきました。
ここでは、Response オブジェクトを使用して Cookie を設定します。
VB6を開き、新しいActiveX DLLプロジェクトを作成します。プロジェクト名を fCom 、クラス名を fZ5 に変更します。
「Microsoft Active Server Pages Object」オブジェクト ライブラリへの参照。
2 つのコンポーネント イベントを作成します: OnStartPage と OnEndPage
在事件OnStartPage中创建类ScriptingContent的一个引用。
クラス ScriptingContent をインスタンス化します。
コードは次のとおりです:
プログラムコード
明示的なオプション
'オブジェクト宣言
myResponse を応答として暗くする
私のリクエストをリクエストとして暗くする
myApplication をアプリケーションとして暗くする
myServer をサーバーとして暗くする
Dim mySession As Session
'このイベントはコンポーネントの作成時にトリガーされます
Public Sub OnStartPage(myScriptingContent As ScriptingContext)
'オブジェクトのインスタンス化を実行します
myResponse = myScriptingContent.Response を設定します。
myRequest = myScriptingContent.Request を設定します。
Set myServer = myScriptingContent.Server
myApplication = myScriptingContent.Application を設定します。
mySession = myScriptingContent.Session を設定します
End Sub
'このイベントはコンポーネントが破棄されたときにトリガーされます
Public Sub OnEndPage()
'オブジェクトを破壊する
myResponse = Nothingを設定します
myRequest = なしを設定します
myServer = なしを設定します
myApplication = なしを設定します
mySession = なしを設定します
End Sub
'ページから Cookie を設定し、コンポーネントから取得します
パブリックサブGetCookie()
ディムマイアイテム
「すべての情報
myRequest.Cookies 内の各 myitem について
myResponse.Write myitem & ": " & myRequest.Cookies.Item(myitem)
myResponse.Write "<br>"
次
'単一メッセージ
myResponse.write "ユーザー名が"＆ "："＆myrequest.cookies（ "username"）
myResponse.Write "<br>"
myResponse.Write "ユーザーの年齢はどこですか" & ": " & myRequest.Cookies("年齢")
myResponse.Write "<br>"
End Sub
'コンポーネントに Cookie を設定し、ページに取得します。
パブリックサブセットCookie()
myResponse.Cookies("com_username") = "龙卷风"
myResponse.Cookies("com_age") = 26
myResponse.Expires = #9/13/2004#
エンドサブ
これを DLL ファイルにコンパイルすると、システムが自動的に登録します。
それ以外の場合は、Regsvr32 f:testfcom.dll を手動で登録して
テスト
し、fz5.asp ファイルを生成し
て仮想ディレクトリを構成し、IE で fc5.asp ファイルを実行すると、トルネードが
表示されます
。
26
年齢: 26
ユーザー名：トルネード
com_age: 26
com_username: Tornado ユーザー名: Tornado ユーザーの年齢: 26
続きへ
Asp コンポーネントの中級入門と習得シリーズ第 6 回
最後に、Asp の組み込みオブジェクトである Server オブジェクトについて学びます
。オブジェクトでは、より多くの HTML コーディングと Web ページのリダイレクトと送信が使用されます。
vb6 を開き、新しい Activex DLL プロジェクトを作成します。工程名修改为fCom,类名修改为fZ6
「Microsoft Active Server Pages Object」オブジェクト ライブラリへの参照。
创建两个组件事件：OnStartPage以及OnEndPage
イベント OnStartPage に ScriptingContent クラスへの参照を作成します。
クラス ScriptingContent をインスタンス化します。
コードは次のとおりです:
プログラムコード
明示的なオプション
'オブジェクト宣言
myResponse を応答として暗くする
リクエストとしてのDimMyRequest
アプリケーションとしてのmyApplicationを薄暗くします
myServer をサーバーとして暗くする
Dim mySession As Session
'このイベントはコンポーネントの作成時にトリガーされます
Public Sub OnStartPage(myScriptingContent As ScriptingContext)
'オブジェクトのインスタンス化を実行
Set myResponse = myScriptingContent.Response
myRequest = myScriptingContent.Request を設定します。
myServer = myScriptingContent.Server を設定します
myApplication = myScriptingContent.Application を設定します
mySession = myScriptingContent.Session を設定します
End Sub
'このイベントはコンポーネントが破棄されたときにトリガーされます
Public Sub OnEndPage()
'オブジェクトを破壊する
myResponse = なしを設定します
myRequest = なしを設定します
myServer = なしを設定します
myApplication = なしを設定します
mySession = なしを設定します
End Sub
Public Sub ShowHtml(ByVal strHtml As String)
myResponse.Write myServer.HTMLEncode(strHtml)
End Sub
Public Sub ShowUrl(ByVal strUrl As String)
myResponse.Write myServer.URLEncode(strUrl)
End Sub
Public Sub ExecuteUrl()
myServer.Transfer "fz5.asp"
エンドサブ
DLLファイルにコンパイルすると、システムは自動的に登録されます。
それ以外の場合は、Regsvr32 f:testfcom.dll を手動で登録して
Visual interdev6.0 をテスト
し、fz6.asp ファイルを生成して
仮想
ディレクトリを構成し、IE で fc6.asp ファイルを実行して確認します
。
C1 %FA%BE%ED%B7%E7&age=26
IE を使用してソース ファイルを表示し、HTML エンコーディングを表示できます。
これは ASP の組み込みオブジェクトの一時的な導入であり、後で引き続き学習します。
1 つの例から推測し、紹介されていないプロパティやメソッドを学ぶこともできます。
ASP コンポーネントの中間エントリーおよびマスタリー シリーズ 7 が
データベース操作を開始します。
一般的なコンポーネントパッケージ
1。把数据库的连接信息封装起来。
1> コンポーネント内のプログラム コード
などのデータベース接続文字列を直接返します。
バリアントとしてのパブリック関数 datasource()
データソース = "ドライバー = {SQL サーバー};サーバー = yang;uid = sa;pwd =; データベース = ノースウィンド"
終了機能
ASP呼び出し
プログラムコード
set obj=server.CreateObject("webdb.getinfo")
oconn=obj.datasource()
明らかであり、asp ファイルでは、response.write oconn によってデータベース接続文字列が直接表示されるため、期待どおりの効果が得られません。
2> adodb.connection オブジェクト
プログラム コード
を返す
ADODB.Connection としてのパブリック関数 GetConn()
conn = 新しい ADODB.Connection を設定します
conn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;password=;Initial Catalog=Northwind;Data Source=yang"
接続オープン
GetConn = conn を設定します
終了機能
ASP呼び出し
プログラムコード
ディムデータクエリ
Set DataQuery=Server.CreateObject("WebDbtest.GetInfomation")
set rs=server.createobject("adodb.recordset")
sql = "select * from Employees"
Rs.open sql、DataQuery.getconn、1、3
応答.Write Rs("姓")
Response.write DataQuery.getconn.ConnectionString
set Rs=nothing は
良さそうですが、Response.write DataQuery.getconn.ConnectionString は引き続きデータベース接続文字列を表示します。これをテストできます。
2.コンポーネントをレコード セットにカプセル化するには、私が少し前に書いたものを読むことができます: http://blog.csdn.net/online/archive/2003/12/11/7764.aspx
このコードの悪い点は、データベース接続がページ上で判断されることです。接続が成功した後にデータにアクセスするのが、データを
レコード セットにカプセル化し、データベースに接続すること
だと思います。コンポーネント メソッドの操作が完了したら、
適切なタイミングで閉じて、コンポーネント内ですべてをカプセル化する HTML コードを生成してみます。
部分カプセル化の代わりに次のような方法も考えられます
。
この期間中、ASP コンポーネントの中間エントリとマスタリー シリーズ第 8 回は
非常に忙しいです。笑、今日は、vb6 を開き、新しい Activex Dll プロジェクトを作成する
完全なデータのカプセル化とページングの例を見ていきます。
プロジェクト名は fCom に変更され、クラス名は fZ8 に変更されます。
引用“Microsoft Active Server Pages Object”，”Microsoft Activex Data Object 2.7 Library”对象库。
创建两个组件事件：OnStartPage以及OnEndPage
在事件OnStartPage中创建类ScriptingContent的一个引用。
实例化类ScriptingContent。
コードは次のとおりです:
プログラムコード
明示的なオプション
'************************************************ *
作者：トルネード
'機能: シンプルでカスタマイズ可能な、完全にカプセル化されたコンポーネント
'時間：2005-01-01
'************************************************ *
'オブジェクト宣言
応答として MyResponse を暗くする
リクエストとして MyRequest を暗くする
myApplication をアプリケーションとして暗くする
myServer をサーバーとして暗くする
セッションとしての薄暗いマイセッション
のプライベート変数
Private mPageSize As Long
文字列としてのプライベート mstrSql
'このイベントは、コンポーネントが作成されるとトリガーされます
Public Sub OnStartPage(myScriptingContent As ScriptingContext)
'オブジェクトのインスタンス化を実行
MyResponse = myScriptingContent.Response を設定します。
MyRequest = myScriptingContent.Request を設定します。
myServer = myScriptingContent.Server を設定します
myApplication = myScriptingContent.Application を設定します。
mySession = myscriptingcontent.sessionを設定します
End Sub
'このイベントはコンポーネントが破棄されたときにトリガーされます
Public Sub OnEndPage()
'オブジェクトを破壊する
MyResponse = なしを設定します
MyRequest = なしを設定します
myServer = なしを設定します
myApplication = なしを設定します
mySession = なしを設定します
End Sub
' テーブルを表示
パブリック関数 ShowTable()
新しい ADODB.Connection としての Dim conn
Dim rs As New ADODB.Recordset
Dim i を整数として
Dim j As Integer
整数としてのdim intpage
Dim intPageCount As Integer
文字列としての Dim strScriptName
Dim intPos As Integer
Dim intFieldCount As Integer
'パスを取得します
strScriptName = MyRequest.ServerVariables("スクリプト名")
intPos = InStrRev(strScriptName, "/")
intPos <> 0 の場合
strScriptName = Mid(strScriptName, intPos + 1)
終了の場合
If IsEmpty(MyRequest("page")) then
intPage = 1
それ以外
intPage = CInt(MyRequest("ページ"))
終了の場合
エラー時 GoTo エラー
conn.Open "プロバイダー = SQLOLEDB.1;永続セキュリティ情報 = False;ユーザー ID = sa;初期カタログ = Northwind;データ ソース = localhost"
rs.Open mstrSql、conn、adOpenStatic、adLockReadOnly
'レコード数を取得する
intFieldCount = rs.Fields.Count
'出力テーブル
myResponse.write "<table border = 1 cellspacing = 0 cellpadding = 2>"
rs.EOF でない場合は、
rs.PageSize = mPageSize
rs.absolutepage = intpage
'ページ番号を取得する
intpagecount = rs.pagecount
'ページングを処理します
intpage <1の場合、intpage = 1
intPage > intPageCount の場合、 intPage = intPageCount
'出力ヘッダー
MyResponse.Write "<tr>"
i = 0からintfieldcount -1
myresponse.write "<th>"＆rs（i）.name＆ "</th>"
次
MyResponse.Write "</tr>"
'出力内容
i = 1の場合
rs.EOF の場合、次に
出口
終了の場合
MyResponse.Write "<tr>"
j = 0からintfieldcount -1
MyResponse.Write "<td>" & rs.Fields(j).Value & "</td>"
次
myresponse.write "</tr>"
rs.次へ移動
次
'出力ページング
MyResponse.Write "<tr>"
intPage <> 1 の場合
myResponse.write "<a href ="＆strscriptname＆ "？page = 1> [最初のページ] </a>"
MyResponse.Write "<a href=" & strScriptName & "?page=" & intPage - 1 & " >[前のページ]</a>"
終了の場合
If intPage <> intPageCount Then
MyResponse.Write "<a href=" & strScriptName & "?page=" & intPage + 1 & ">[次のページ]</a>"
MyResponse.Write "<a href=" & strScriptName & "?page=" & intPageCount & ">[最後のページ]</a>"
終了の場合
MyResponse.Write "ページ:<FONT COLOR='Red'>" & intPage & "/ " & intPageCount & "</FONT>"
MyResponse.Write "</tr>"
終了の場合
MyResponse.Write "</table>"
'リソースを解放する
そうでない場合は何もありません
rs.State = 1 の場合
rs.閉じる
終了の場合
Setrs=なし
終了の場合
そうでない場合は何もありません
conn.State = 1 の場合
接続閉じる
終了の場合
conn = なしを設定します
終了の場合
終了関数
エラー:
MyResponse.Write err.Number & err.Description
そうでない場合は何もありません
rs.State = 1 の場合
rs.閉じる
終了の場合
Setrs=なし
終了の場合
そうでない場合は、その後は何もありません
conn.State = 1 の場合
接続閉じる
終了の場合
conn = なしを設定します
終了の場合
終了機能
'属性を定義する
公共財産はバリアントとしてshospagesize（）を取得します
ShowPageSize = mPageSize
施設の財産を終了する
公共の財産は、showpagesize（byval vnewvalue as variant）を許可します）
mPageSize = vNewValue
End プロパティ
Public プロパティ Get strSQL() As Variant
strSQL = mstrSql
End プロパティ
Public プロパティ Let strSQL(ByVal vNewValue As Variant)
mstrSql = vNewValue
終了プロパティ
DLLファイルにコンパイルすると、システムは自動的に登録されます。
それ以外の場合は、Regsvr32 f:testfcom.dll を手動で登録して、
テスト
し、fz8.asp ファイルを生成します。
プログラムコード
<%@ 言語=VBScript %>
<HTML>
<本体>
<%
薄暗いオブジェクト
set obj=server.CreateObject("fcom.fz8")
'各ページに表示されるレコード数
obj.ShowPageSize=10
'表示されたSQL文
obj.strSQL="顧客ID、会社名、連絡先名、連絡先のタイトル、顧客の住所を選択してください"
obj.ShowTable()
%>
</BODY>
</HTML>