首 页 | 网页模板 | 教程 | 源码下载 | 书籍下载 | 图片素材 | 字体 | JAVA特效 | FLASH源码 | 软件 | 矢量 | 论坛 | 其它 |
设为主页
加入收藏
联系站长
平面设计 | 网页制作 | 程序编写 | 数 据 库 | 媒体动画 | 网络冲浪 | 服务器相关 |
当前在线
广告:P4服务器电信机房6999/年即送产权 | 疾风下载
在服务器端得到可编辑Iframe的HTML源代码
2005-10-28 8:50:06  作者:模板天下收集整理  来源:未知 网友评论 0 条 论坛
  

GetIframeHtml.axpx

<%@ Page Language="vb" validateRequest=false AutoEventWireup="false" Codebehind="GetIframeHtml.<a href="http://www.chinaitpower.com/Dev/Web/Asp/index.html" target="_blank">asp</a>x.vb" Inherits="<a href="http://www.chinaitpower.com/Dev/Web/Asp/index.html" target="_blank">asp</a>xWeb.GetIframeHtml"%> <HTML> <body> <form id="frmMain" method="post" runat="server"> <iframe id="ifrHTML" name="ifrHTML"></iframe> <br> <<a href="http://www.chinaitpower.com/Dev/Web/Asp/index.html" target="_blank">asp</a>:Button id="cmdSend" runat="server" Text=" 提 交 "></<a href="http://www.chinaitpower.com/Dev/Web/Asp/index.html" target="_blank">asp</a>:Button> <input type="hidden" name="hidValue"> </form> <script> ifrHTML.document.designMode = "on"; </script> </body> </HTML>

GetIframeHtml.aspx.vb

Public Class GetIframeHtml Inherits System.Web.UI.Page Protected WithEvents cmdSend As System.Web.UI.WebControls.Button Protected WithEvents ifrHTML As System.Web.UI.HtmlControls.HtmlGenericControl #Region " Web Form Designer Generated Code " 'This call is required by the Web Form Designer. <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() End Sub Private Sub Page_Init(ByVal sender As System.Object,_ ByVal e As System.EventArgs) Handles MyBase.Init 'CODEGEN: This method call is required by the Web Form Designer 'Do not modify it using the code editor. InitializeComponent() End Sub #End Region Private Sub Page_Load(ByVal sender As System.Object,_ ByVal e As System.EventArgs) Handles 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) Handles cmdSend.Click Dim strValue As String strValue = Request.Form("hidValue") Response.Write(Server.HtmlDecode(strValue)) End Sub End Class
共分1页  [1] 
>> 相关文章

关于网站 | 客服中心 | 服务条款 | 友情链接 | 广告联系 | 本站历程 | 网站导航

吉ICP备05000107号