you should be saving data in session variables or Context.Items and do Response.Redirect or Server.Transfer but if you insist, try (although not recommeneded)<%@ Page EnableViewStateMac="false" %>
不行啊,,在DUZAOCHANGE2.ASPX面加上 <%@page language="VB" EnableViewStateMac="false" %> <%@import namespace="system.data"%> <%@import namespace="system.data.oledb"%> <script runat="server"> sub page_load(sender as object,e as eventargs) Dim pathstr = System.Configuration.ConfigurationSettings.AppSettings("connectstring") Dim objconn As New OleDb.OleDbConnection() objconn.ConnectionString = pathstr objconn.Open() Dim objcmd As New OleDbDataAdapter("select * from 各国球队名称对照表 where 比赛类型='1'", objconn) Dim objdb As OleDbCommandBuilder = New OleDb.OleDbCommandBuilder(objcmd) Dim ds As New DataSet() objcmd.Fill(ds, "各国球队名称对照表") Dim mytable As DataTable = ds.Tables("各国球队名称对照表") Dim i%, check$ For i = 0 To (Request.Form("items") - 1) check = Request.Form("DataGrid1:_ctl" & (i + 2) & ":check") If check = "on" Then mytable.Rows(i)("繁体") = Request.Form("DataGrid1:_ctl" & (i + 2) & ":fan") mytable.Rows(i)("简体") = Request.Form("DataGrid1:_ctl" & (i + 2) & ":jian") mytable.Rows(i)("英文") = Request.Form("DataGrid1:_ctl" & (i + 2) & ":en") End If Next 'objcmd.Update(mytable.Select(Nothing, Nothing, DataViewRowState.ModifiedCurrent)) objcmd.update(ds,"各国球队名称对照表") objcmd = Nothing ds = Nothing mytable = Nothing Response.Redirect("duzao.aspx")end sub </script> 提交的页面是 Public Class duzao Inherits System.Web.UI.Page Protected WithEvents DataGrid1 As System.Web.UI.WebControls.DataGrid Protected WithEvents Label1 As System.Web.UI.WebControls.Label Public pathstr$ = System.Configuration.ConfigurationSettings.AppSettings("connectstring") Protected WithEvents Button1 As System.Web.UI.WebControls.Button Public aa$#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 Trim(Request.QueryString("types")) = "" Then 'Response.Redirect("index.aspx") End If If Not IsPostBack Then bindlist() End If End Sub Sub bindlist() Dim objconn As New OleDb.OleDbConnection() objconn.ConnectionString = pathstr objconn.Open() Dim objcmd As New OleDb.OleDbCommand() objcmd.Connection = objconn 'objcmd.CommandText = "select * from 各国球队名称对照表 where 比赛类型='" & Trim(Request.QueryString("types")) & "'" objcmd.CommandText = "select * from 各国球队名称对照表 where 比赛类型='1'" Dim objreader As OleDb.OleDbDataReader = objcmd.ExecuteReader Me.DataGrid1.DataSource = objreader Me.DataGrid1.DataBind() aa = Me.DataGrid1.Items.Count objconn.Close() objcmd = Nothing objreader = Nothing End Sub End Class
<%@page language="VB" EnableViewStateMac="false" %>
<%@import namespace="system.data"%>
<%@import namespace="system.data.oledb"%>
<script runat="server">
sub page_load(sender as object,e as eventargs)
Dim pathstr = System.Configuration.ConfigurationSettings.AppSettings("connectstring")
Dim objconn As New OleDb.OleDbConnection()
objconn.ConnectionString = pathstr
objconn.Open()
Dim objcmd As New OleDbDataAdapter("select * from 各国球队名称对照表 where 比赛类型='1'", objconn)
Dim objdb As OleDbCommandBuilder = New OleDb.OleDbCommandBuilder(objcmd)
Dim ds As New DataSet()
objcmd.Fill(ds, "各国球队名称对照表")
Dim mytable As DataTable = ds.Tables("各国球队名称对照表")
Dim i%, check$
For i = 0 To (Request.Form("items") - 1)
check = Request.Form("DataGrid1:_ctl" & (i + 2) & ":check")
If check = "on" Then
mytable.Rows(i)("繁体") = Request.Form("DataGrid1:_ctl" & (i + 2) & ":fan")
mytable.Rows(i)("简体") = Request.Form("DataGrid1:_ctl" & (i + 2) & ":jian")
mytable.Rows(i)("英文") = Request.Form("DataGrid1:_ctl" & (i + 2) & ":en")
End If
Next
'objcmd.Update(mytable.Select(Nothing, Nothing, DataViewRowState.ModifiedCurrent))
objcmd.update(ds,"各国球队名称对照表")
objcmd = Nothing
ds = Nothing
mytable = Nothing
Response.Redirect("duzao.aspx")end sub
</script>
提交的页面是
Public Class duzao
Inherits System.Web.UI.Page
Protected WithEvents DataGrid1 As System.Web.UI.WebControls.DataGrid
Protected WithEvents Label1 As System.Web.UI.WebControls.Label
Public pathstr$ = System.Configuration.ConfigurationSettings.AppSettings("connectstring")
Protected WithEvents Button1 As System.Web.UI.WebControls.Button
Public aa$#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 Trim(Request.QueryString("types")) = "" Then
'Response.Redirect("index.aspx")
End If
If Not IsPostBack Then
bindlist()
End If
End Sub
Sub bindlist()
Dim objconn As New OleDb.OleDbConnection()
objconn.ConnectionString = pathstr
objconn.Open()
Dim objcmd As New OleDb.OleDbCommand()
objcmd.Connection = objconn
'objcmd.CommandText = "select * from 各国球队名称对照表 where 比赛类型='" & Trim(Request.QueryString("types")) & "'"
objcmd.CommandText = "select * from 各国球队名称对照表 where 比赛类型='1'"
Dim objreader As OleDb.OleDbDataReader = objcmd.ExecuteReader Me.DataGrid1.DataSource = objreader
Me.DataGrid1.DataBind()
aa = Me.DataGrid1.Items.Count
objconn.Close()
objcmd = Nothing
objreader = Nothing
End Sub
End Class
<%@ Page Language="vb" AutoEventWireup="false" Codebehind="duzao.aspx.vb" Inherits="zhiliao.duzao"%><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<title>duzao</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">
<script language="javascript">
function change(){
Form1.action="duzaochange2.aspx";
Form1.submit();
}
</script>
</HEAD>
<body>
<form id="Form1" method="post" runat="server">
<FONT face="宋体">
<P align="center">
<asp:Label id="Label1" runat="server" ForeColor="Red" Font-Bold="True">2002-2003年度各国球队名称对照表</asp:Label><BR>
<INPUT type="button" value="修改" onclick="javascript:change();"> <INPUT type="hidden" id="items" value='<%= aa%>'>
<BR>
<asp:DataGrid id="DataGrid1" runat="server" BorderColor="#CC00CC" BorderStyle="None" BorderWidth="1px" BackColor="White" CellPadding="3" GridLines="Horizontal" AutoGenerateColumns="False">
<SelectedItemStyle Font-Bold="True" ForeColor="#F7F7F7" BackColor="#738A9C"></SelectedItemStyle>
<AlternatingItemStyle BackColor="#F7F7F7"></AlternatingItemStyle>
<ItemStyle ForeColor="#4A3C8C" BackColor="#E7E7FF"></ItemStyle>
<HeaderStyle Font-Bold="True" ForeColor="#F7F7F7" BackColor="#4A3C8C"></HeaderStyle>
<FooterStyle ForeColor="#4A3C8C" BackColor="#B5C7DE"></FooterStyle>
<Columns>
<asp:TemplateColumn>
<HeaderTemplate>
序
</HeaderTemplate>
<ItemTemplate>
0
<asp:CheckBox Runat="server" ID="check" />
<input type=hidden runat=server value='<%# container.dataitem("id")%>' id="item" />
</ItemTemplate>
</asp:TemplateColumn>
<asp:TemplateColumn>
<HeaderTemplate>
(繁体)
</HeaderTemplate>
<ItemTemplate>
<asp:TextBox Runat=server ID="fan" Text='<%# container.dataitem("繁体")%>' />
</ItemTemplate>
</asp:TemplateColumn>
<asp:TemplateColumn>
<HeaderTemplate>
(简体)
</HeaderTemplate>
<ItemTemplate>
<asp:TextBox Runat=server ID="jian" Text='<%# container.dataitem("简体")%>' />
</ItemTemplate>
</asp:TemplateColumn>
<asp:TemplateColumn>
<HeaderTemplate>
英文(EN)
</HeaderTemplate>
<ItemTemplate>
<asp:TextBox Runat=server ID="en" Text='<%# container.dataitem("英文")%>' />
</ItemTemplate>
</asp:TemplateColumn>
</Columns>
<PagerStyle HorizontalAlign="Right" ForeColor="#4A3C8C" BackColor="#E7E7FF" Mode="NumericPages"></PagerStyle>
</asp:DataGrid></P>
</FONT>
</form>
</body>
</HTML>
<script language="javascript">
function change(){
Form1.action="duzaochange2.aspx";
Form1.submit();
}
</script>
就不能用JAVASCRIPT改变提交后显示吗
<%@ Page Language="C#" %>
<html>
<head>
</head>
<body>
<form id=form1 runat="server">
<asp:TextBox id="txt1" runat="server"></asp:TextBox>
<asp:Button id=btn1 runat=server Text="Submit to Self" />
</form>
<input type=button value="submit to testpost2.aspx" onclick="form1.action='testpost2.aspx';form1.submit()">
</body>
</html>2. TestPost2.aspx:<%@ Page Language="C#" EnableViewStateMac="false" %>
<html>
<head>
</head>
<body>
<form runat="server">
<!-- Insert content here -->
</form>
</body>
</html>
1, 用url?para=value 方式来传值
2, 利用Session
3, 用Server.Transfer("URL")来传递页面