次の例では、サーバー側で編集可能なIFRAMEを取得するSARS機能を実装しています。コードは非常に簡単なので、ここでの苦しみについてはあまり説明しません。コードは次のとおりです。
getiframehtml.axpx
<％@ page Language = "<a href =" http://dev.21tx.com/language/vb/ "ターゲット=" _ blank "> vb </a>
codeBehind = "getiframehtml。<a href =" http://dev.21tx.com/web/asp/ "ターゲット=" _ blank "> asp </a> x.vb"継承= "aspx <a href =" http://dev.21tx.com/web/ "ターゲット= "_ blank"> web </a> .getiframehtml "％>
<html>
<body>
<form id = "frmmain" method = "post" runat = "server">
<iframe id = "ifrhtml" name = "ifrhtml"> </iframe>
<br>
<asp：button id = "cmdsend" runat = "server" text = "submit"> </asp：button>
<input type = "hidden" name = "hidvalue">
</form>
<スクリプト>
ifrhtml.document.designmode = "on";
</script>
</body>
</html>
getiframehtml.aspx.vb
パブリッククラスgetiframehtml
System.web.ui.pageを継承します
system.web.ui.webcontrols.buttonとしてcmdsendで保護されています
System.web.ui.htmlcontrols.htmlgenericControlとしてifrhtmlを保護します
#region「Webフォームデザイナー生成コード」
'この呼び出しは、Webフォームデザイナーによって必要です。
<System.diagnostics.debuggerstepthrough（）> private sub initializeComponent（）
End Sub
private sub page_init（byval sender as System.Object、_
system.eventargsとしてbyval e）mybase.initを処理します
'CodeGen：このメソッド呼び出しは、Webフォームデザイナーによって必要です
「コードエディターを使用して変更しないでください。
initializeComponent（）
End Sub
#END領域
private sub page_load（system.objectとしてbyval sender、_
system.eventargsとしてbyval e）mybase.loadを処理します
cmdsend.attributes.add（ "onclick"、 "document.frmmain.hidvalue.value" + _
"= ifrhtml.document.body.innerhtml;"）
End Sub
private sub cmdsubmit_click（byval sender as System.Object、_
byval e as System.eventargs）cmdsend.clickを処理します
文字列としての薄暗いstrvalue
strvalue = request.form（ "hidvalue"）
respons.write（server.htmldecode（strvalue））
End Sub
ENDクラスはメンバーを登録し、Web開発データベースを作成します。