O exemplo a seguir implementa a função SARS de obter iframes editáveis no lado do servidor. O código é muito simples, então não explicarei muito sobre o sofrimento aqui. O código é o seguinte:
getiframehtml.axpx
<%@ Page Language = "<a href =" http://dev.21tx.com/language/vb/ "Target =" _ Blank "> VB </a>" validaterequest = false autoeventwireup = "false"
codeBehind = "getIframehtml. Target = "_ Blank"> web </a> .getiframehtml "%>
<html>
<Body>
<form id = "frmMain" método = "post" runat = "server">
<iframe id = "ifrhtml" name = "ifrhtml"> </frame>
<br>
<ASP: Button id = "cmdSend" runat = "server" text = "submit"> </asp: button>
<input type = "hidden" name = "hidValue">
</morm>
<Cript>
ifrhtml.document.designmode = "on";
</script>
</body>
</html>
getifRamehtml.aspx.vb
Classe pública getiframehtml
herde o System.web.ui.page
Protegido Withvents cmdSend como System.Web.ui.webcontrols.button
protegidos com os eventos ifrhtml como System.web.ui.htmlcontrols.htmlgenericControl
#Region "Código gerado pelo designer de formulários da web"
'Esta chamada é exigida pelo designer de formulários da web.
<System.Diagnostics.DeBuggerTepThrough ()> Sub InitializeComponent privado ()
final sub
Sub -Page_init privado (Byval remetente como System.Object, _
byval e como System.Eventargs) lida com mybase.init
'CodeGen: esta chamada de método é exigida pelo designer de formulários da web
'Não o modifique usando o editor de código.
inicializeComponent ()
final sub
#END Região
Sub -Page_Load privado (Byval remetente como System.Object, _
byval e como System.Eventargs) lida com MyBase.Load
cmdSend.attributes.add ("OnClick", "Document.frmMain.hidvalue.value" + _
"= ifrhtml.document.body.innerhtml;")
final sub
Sub CMDSubMIT_CLICK privado (remetente Byval como System.Object, _
ByVal E como System.EventArgs) lida com CMDSend.Click
Dim strvalue como string
strvalue = request.form ("hidvalue")
Response.write (server.htmldecode (strvalue))
final sub
A classe final registra um membro e cria seu banco de dados de desenvolvimento da web.