100分找段小代码

yz65987225 2008-12-24 11:55:24
asp.net中，一个文本框，点一下底下弹出一个层，层中的数据是动态生成的，放上一个单选按钮，选中哪个，哪个值就到文本框中，层消失。
...全文
149 9 打赏 收藏 转发到动态 举报
写回复
用AI写文章
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
hccl 2008-12-24
  • 打赏
  • 举报
 回复
WebForm3.aspx


<%@ Page Language="vb" AutoEventWireup="false" Codebehind="WebForm3.aspx.vb"

 Inherits="ShowModalDialog.WebForm3" %>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">

<HTML>

  <HEAD>

   <title>WebForm3</title>

   <meta name="GENERATOR" content="Microsoft Visual Studio .NET 7.0">

   <meta name="CODE_LANGUAGE" content="Visual Basic 7.0">

   <meta name="vs_defaultClientScript" content="JavaScript">

   <meta name="vs_targetSchema" content="http://schemas.microsoft.com/intellisense/ie5">		

  </HEAD>

  <body MS_POSITIONING="GridLayout" id="MyBody" runat="server">

  <form id="Form1" method="post" runat="server">

   <asp:Label id="Label1" runat="server">请输入您的大名：</asp:Label><br>

   <br>

   <asp:TextBox id="TextBox1" runat="server" Width="558"></asp:TextBox><br>

   <br>

   <asp:Button id="Button1" runat="server" Text=" 提  交 "></asp:Button>

  </form>

  </body>



WebForm3.aspx.vb


Public Class WebForm3

  Inherits System.Web.UI.Page

  Protected WithEvents TextBox1 As System.Web.UI.WebControls.TextBox

  Protected WithEvents Label1 As System.Web.UI.WebControls.Label

  Protected WithEvents Button1 As System.Web.UI.WebControls.Button

  Protected MyBody As System.Web.UI.HtmlControls.HtmlControl



#Region " Web 窗体设计器生成的代码 "



  '该调用是 Web 窗体设计器所必需的。

  <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: 此方法调用是 Web 窗体设计器所必需的

    '不要使用代码编辑器修改它。

    InitializeComponent()

  End Sub



#End Region



  Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    '在此处放置初始化页的用户代码

    If IsPostBack Then

      Dim strScript As String = "<script>" + vbCrLf

      strScript += "window.parent.returnValue='" + TextBox1.Text.Replace("'", "\'") + "'" + vbCrLf

      strScript += "window.parent.close()" + vbCrLf

      strScript += "</script>" + vbCrLf

      If (Not IsClientScriptBlockRegistered("clientScript")) Then

        RegisterClientScriptBlock("clientScript", strScript)

      End If

    End If

    If Not IsPostBack Then

      MyBody.Attributes.Add("onload", "document.Form1.TextBox1.value=window.parent.dialogArguments")

    End If

  End Sub

End Class
mengxj85 2008-12-24
  • 打赏
  • 举报
 回复
customcombos_demo
网上有，自己下来研究一下吧
hccl 2008-12-24
  • 打赏
  • 举报
 回复
WebForm1.aspx.vb



Public Class WebForm1

  Inherits System.Web.UI.Page

  Protected WithEvents TextBox1 As System.Web.UI.WebControls.TextBox

  Protected WithEvents Form1 As System.Web.UI.HtmlControls.HtmlForm

  Protected WithEvents Label1 As System.Web.UI.WebControls.Label

  Protected WithEvents Button1 As System.Web.UI.WebControls.Button



#Region " Web 窗体设计器生成的代码 "



  '该调用是 Web 窗体设计器所必需的。

  <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: 此方法调用是 Web 窗体设计器所必需的

    '不要使用代码编辑器修改它。

    InitializeComponent()

  End Sub



#End Region



  Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    '在此处放置初始化页的用户代码

    If (Not IsClientScriptBlockRegistered("clientScript")) Then

      Dim strScript As String = "<script>" + vbCrLf

      strScript += "function OpenWin(){" + vbCrLf

      strScript += "var str=window.showModalDialog('WebForm2.aspx',document.Form1.TextBox1.value)" + vbCrLf

      strScript += "if(str!=null)  document.Form1.TextBox1.value=str" + vbCrLf

      strScript += "}" + vbCrLf

      strScript += "</script>" + vbCrLf

      RegisterClientScriptBlock("clientScript", strScript)

    End If

    Button1.Attributes.Add("onclick", "OpenWin()")

  End Sub



End Class



WebForm2.aspx


<%@ Page Language="vb" AutoEventWireup="false" Codebehind="WebForm2.aspx.vb" Inherits="aspxWeb.mengxianhui.com.WebForm2"%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">

<HTML>

  <HEAD>

    <title>WebForm2</title>

    <meta name="GENERATOR" content="Microsoft Visual Studio .NET 7.0">

    <meta name="CODE_LANGUAGE" content="Visual Basic 7.0">

    <meta name="vs_defaultClientScript" content="JavaScript">

    <meta name="vs_targetSchema" content="http://schemas.microsoft.com/intellisense/ie5">

  </HEAD>

  <frameset rows="0,*">

    <frame src="about:blank">

    <frame src="WebForm3.aspx">

  </frameset>

</HTML>




WebForm2.aspx.vb


Public Class WebForm2

    Inherits System.Web.UI.Page



#Region " Web 窗体设计器生成的代码 "



  '该调用是 Web 窗体设计器所必需的。

  <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: 此方法调用是 Web 窗体设计器所必需的

    '不要使用代码编辑器修改它。

    InitializeComponent()

  End Sub



#End Region



  Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    '在此处放置初始化页的用户代码

  End Sub



End Class
hccl 2008-12-24
  • 打赏
  • 举报
 回复
本例子共3个页面，其中WebForm2.aspx是过渡页面，是为了防止提交时打开新页面。

WebForm1.aspx


<%@ Page Language="vb" AutoEventWireup="false" Codebehind="WebForm1.aspx.vb"

 Inherits="ShowModalDialog.WebForm1" %>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">

<HTML>

  <HEAD>

  <title>WebForm1</title>

  <meta content="Microsoft Visual Studio .NET 7.0" name="GENERATOR">

  <meta content="Visual Basic 7.0" name="CODE_LANGUAGE">

  <meta content="JavaScript" name="vs_defaultClientScript">

  <meta content="http://schemas.microsoft.com/intellisense/ie5" name="vs_targetSchema">

  </HEAD>

  <body MS_POSITIONING="GridLayout">

   <div align="center">

   <form id="Form1" method="post" runat="server">

   <asp:label id="Label1" runat="server" Font-Bold="true">

    从当前页面打开新窗口，并把变量传递到新窗口的例子，可以多次打开提交。

    </asp:label><br>

   <br>

   <asp:textbox id="TextBox1" runat="server" Width="600px">这是初始值，将被传递到新窗口。</asp:textbox><br>

   <br>

   <asp:button id="Button1" runat="server" Text="打开窗口" Width="96px"></asp:button></form>

  </div>

  </body>

</HTML>
智者知已应修善业 2008-12-24
  • 打赏
  • 举报
 回复
简单示例：
protected void LinkButton4_Click(object sender, EventArgs e)//提示编辑按钮
{
MultiView1.ActiveViewIndex = 1; }

然后点击单选按钮后使单选按钮ＴＥＸＴ值传递给ＴＥＸＴ控件后使MultiView1.ActiveViewIndex = ０;
智者知已应修善业 2008-12-24
  • 打赏
  • 举报
 回复
没空写，这个很容易
takako_mu 2008-12-24
  • 打赏
  • 举报
 回复
明明是20分哇。。。
Lcindep110 2008-12-24
  • 打赏
  • 举报
 回复
default4.aspx



<asp:TextBox ID="txtinput" runat="server" onfocus="openwin();"></asp:TextBox>

    <div id="dv__frm" style="display:none;border:1px solid #000; width:150px; height:300px;">

        <iframe id="ifwin" height="300px" width="150px" frameborder="0"></iframe>

    </div>

    <script type="text/javascript">

        function openwin(){

            var frm = document.getElementById("dv__frm");

            var ifrm = document.getElementById("ifwin");

            ifrm.src = "Default3.aspx?s=";

            frm.style.display = "block";

        }

        function closewin(){

            var frm = document.getElementById("dv__frm");

            frm.style.display = "none";

        }

        function setvalue(v){

            document.getElementById("txtinput").value = v;

            closewin();

        }

    </script>


default3.aspx


<asp:Panel ID="pllist" runat="server"></asp:Panel>


default3.aspx.cs


protected void Page_Load(object sender, EventArgs e)

    {

        if (!IsPostBack)

        {

            for (int i = 0; i < 10; i++)

            {

                string text = i.ToString();



                RadioButton rb = new RadioButton();

                rb.ID = "rb__" + text;                

                rb.Text = text;

                rb.GroupName = "temp";

                rb.Attributes["onclick"] = "parent.setvalue('" + text + "');";



                pllist.Controls.Add(rb);

                Literal br = new Literal();

                br.Text = "<br />";

                pllist.Controls.Add(br);

            }

        }

    }
yz65987225 2008-12-24
  • 打赏
  • 举报
 回复
需要asp.net的。。Vb.net看不懂哈
数据段、代码段、堆栈段、内存、堆、堆栈、CPU寄存器
1.函数代码存放在代码段。声明的类如果从未使用，则在编译时，会优化掉，其成员函数不占代码段空间。 全局变量或静态变量，放在数据段， 局部变量放在栈中， 用new产生的对象放在堆中， 内存分为4段，栈区，堆区，代码区，全局变量区 BSS段：BSS段（bss segment）通常是指用来存放程序中未初始化的全局变量的一块内存区域。 BSS是英文Block Started b
C语言小游戏 |100行代码实现扫雷
C语言小游戏 |100行代码实现扫雷
c语言必背100代码，C语言代码大全(c语言必背项目代码)
C语言初学者如何学习代码？读代码和写C语言必背100个代码。我不知道学习代码的方向？谁能给我指路？对于C语言，要记住的东西不多，只有几个常见语句和一些关键字，您看到的数千甚至数万行代码都是用这些语句和关键字反复编写的，然而，它们的逻辑功能却大为不同，如何快速学习C语言必须背诵100个代码。建议多读多写。
25个简短且有用的代码段（上）
25个简短且有用的代码段（上）
Python表白代码合集：5种表白代码，找不到对象你来找我，这也太秀了叭
文章目录一、容我啰嗦两句二、来吧，代码展示1、给女神比个小心心2、无限弹窗式表白3、这货不是表白代码，悄悄送给你们4、520表白墙5、抖音热门表白小软件6、无套路表白三、写在最后 一、容我啰嗦两句 爬虫看多了，对身体不好，我们来点现实的，学学表白找个女朋友他不香吗，对吧~ 文章最后教你们怎么打包成exe，如果你懒得搞懂代码怎么回事，直接复制代码打包成exe运行就好了。这样不管你发给别人也好，以后方便直接用也好，都很方便。 咱就不整什么鸡皮疙瘩掉一地的情话啥的了，有需要的自行百度。 二、来吧，代码展示
.NET社区

62,269

社区成员

668,981

社区内容

发帖
与我相关
我的任务
社区描述
.NET技术交流专区
javascript云原生 企业社区
社区管理员
  • ASP.NET
  • .Net开发者社区
  • R小R
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告

.NET 社区是一个围绕开源 .NET 的开放、热情、创新、包容的技术社区。社区致力于为广大 .NET 爱好者提供一个良好的知识共享、协同互助的 .NET 技术交流环境。我们尊重不同意见，支持健康理性的辩论和互动，反对歧视和攻击。

希望和大家一起共同营造一个活跃、友好的社区氛围。

试试用AI创作助手写篇文章吧

+ 用AI写文章