يطرح المثال التالي وظيفة SARS للحصول على IFRAMES القابلة للتحرير على جانب الخادم. الكود بسيط للغاية ، لذلك لن أشرح الكثير عن المعاناة هنا. الرمز كما يلي:
getiframehtml.axpx
<٪@ page language = "<a href =" http://dev.21tx.com/language/vb/ "target =" _ blank "> vb </a>
codeBeHind = "getiframeHtml. <a href =" http://dev.21tx.com/web/asp/ "target =" _ blank "> asp </a> Target = "_ blank"> web </a> .getiframeHtml "٪>
<html>
<body>
<form id = "frmmain" method = "post" runat = "server">
<iframe id = "ifrhtml" name = "ifrhtml"> </frame>
<br>
<asp: button id = "cmdsend" runat = "server" text = "submit"> </asp: button>
<type type = "hidden" name = "Hidvalue">
</form>
<script>
ifrhtml.document.designmode = "on" ؛
</script>
</body>
</html>
getiframehtml.aspx.vb
الطبقة العامة getiframehtml
وراثة system.web.ui.page
محمية withvents cmdsend as system.web.ui.webcontrols.button
withvents المحمية IFRHTML كـ system.web.ui.htmlcontrols.htmlgenericcontrol
#Region "رمز مصمم نماذج الويب"
هذه المكالمة مطلوبة بواسطة مصمم نموذج الويب.
<styse.diagnostics.debuggerstepthrough ()> private sub sub initializeComponent ()
نهاية الفرعية
page_init الخاص (Byval Sender As System.Object ، _
Byval e كـ system.eventargs) يتولى mybase.init
'codegen: مطلوب مكالمة الطريقة هذه بواسطة مصمم نموذج الويب
"لا تقم بتعديله باستخدام محرر التعليمات البرمجية.
initializeComponent ()
نهاية الفرعية
#المناطق
page_load sub sub (Byval Sender كـ system.object ، _
byval e as system.eventargs) يتولى mybase.load
cmdsend.attributes.add ("onclick" ، "document.frmmain.hidvalue.value" + _
"= ifrhtml.document.body.innerhtml ؛")
نهاية الفرعية
sub cmdsubmit_click الخاص (مرسل Byval باسم System.Object ، _
byval e as system.EventArgs) تعامل cmdsend.click
قاتمة strvalue كسلسلة
strvalue = request.form ("Hidvalue")
استجابة. write (server.htmldecode (strvalue))
نهاية الفرعية
يسجل الفصل النهائي عضوًا ويقوم بإنشاء قاعدة بيانات تطوير الويب الخاصة بك.