急死了，关于页面刷新问题............分不够可以再加

用一个隐藏的按钮来执行刷新。
----------------------------------------------------------------
欢迎试用ASP.NET大文件上传组件
http://bestcomy.europe.webmatrixhosting.net
----------------------------------------------------------------

asp.net的服务器控件会自动保存输入的值

我的意思是：将用户输入的信息显示在相应的单元格中，可以看一下这个页面（江苏省江阴中学的页面），真的太谢谢了，http://www.jyshs.net/website/asp/schedule/default.asp

http://community.csdn.net/Expert/topic/2964/2964862.xml?temp=.2648737我觉得可以用
IsPostBack
还有
Response.Redirect("本页");
应该可以解决你的问题。。

代码如下：
<%@page language="vb"  debug="true" %>
<%@import namespace="system.data" %>
<%@import namespace="system.data.oledb" %>
<HTML>
<HEAD>
<title>专用教室预订</title>
<script language="VB" runat="server">
       Sub Page_Load(sender As Object, e As EventArgs)
if not page.ispostback then
    Dim i As Integer = 0
            Dim j As Integer = 0
            dim shijian as string
            Dim Row As Integer = 0
            Dim r As HtmlTableRow
            Dim c As HtmlTableCell
shijian=nian.text
shijian+="-"
shijian+=yue.text
shijian+="-"
shijian+=ri.text
riqi.text=date.today()
dim dm as datetime
riqi.text+=dm.dayofweek.tostring            For j = 0 To 8

                r = new HtmlTableRow()

                If (row Mod 2 <> 0) Then
                    r.BgColor = "Gainsboro"
                End If

                For i = 0 To 10
                    c = new HtmlTableCell()
                    c.Controls.Add(new LiteralControl("空闲" ))
                    r.Cells.Add(c)
                Next i

                Table2.Rows.Add(r)
            Next j
     For i=0 To Table1.Rows.Count - 1
           For j=0 To Table1.Rows(i).Cells.Count - 1
               Table1.Rows(i).Cells(j).Width = "75"
               Table1.Rows(i).Cells(j).height = "15"
           Next j
     Next i
     For i=0 To Table2.Rows.Count - 1
            For j=0 To Table2.Rows(i).Cells.Count - 1
               Table2.Rows(i).Cells(j).Width = "75"
               Table2.Rows(i).Cells(j).height = "25"
            Next j
     Next i
            Table1.Rows(0).Cells(1).InnerText = "上   午"
Table1.Rows(0).Cells(2).InnerText = "下   午"
Table1.Rows(0).Cells(3).InnerText = "晚   上"
Table1.Rows(1).Cells(1).InnerText = "1"
    Table1.Rows(1).Cells(2).InnerText = "2"
Table1.Rows(1).Cells(3).InnerText = "3"
Table1.Rows(1).Cells(4).InnerText = "4"
Table1.Rows(1).Cells(5).InnerText = "5"
Table1.Rows(1).Cells(6).InnerText = "6"
Table1.Rows(1).Cells(7).InnerText = "7"
Table1.Rows(1).Cells(8).InnerText = "8"
Table1.Rows(1).Cells(9).InnerText = "9"
Table1.Rows(1).Cells(10).InnerText = "10"
Table2.Rows(0).Cells(0).InnerText = "多媒体教室"
Table2.Rows(1).Cells(0).InnerText = "物理实验室一"
Table2.Rows(2).Cells(0).InnerText ="物理实验室二"
Table2.Rows(3).Cells(0).InnerText = "化学实验室一"
Table2.Rows(4).Cells(0).InnerText = "化学实验室二"
Table2.Rows(5).Cells(0).InnerText = "生物实验室"
Table2.Rows(6).Cells(0).InnerText = "语音室"
Table2.Rows(7).Cells(0).InnerText = "阅览室"
Table2.Rows(8).Cells(0).InnerText = "报告厅"
Table2.Rows(0).Cells(0).bgcolor="#33CCFF"
Table2.Rows(1).Cells(0).bgcolor="#33CCFF"
Table2.Rows(2).Cells(0).bgcolor="#33CCFF"
Table2.Rows(3).Cells(0).bgcolor="#33CCFF"
Table2.Rows(4).Cells(0).bgcolor="#33CCFF"
Table2.Rows(5).Cells(0).bgcolor="#33CCFF"
Table2.Rows(6).Cells(0).bgcolor="#33CCFF"
Table2.Rows(7).Cells(0).bgcolor="#33CCFF"
Table2.Rows(8).Cells(0).bgcolor="#33CCFF"

    Dim k As Integer
    Dim l As Integer
dim rd as oledbdatareader
dim lrd
dim conn as oledbconnection=nothing
dim connstr,sql as string
connstr= "provider=microsoft.jet.oledb.4.0;data source="&server.mappath("class.mdb")
conn= new oledbconnection(connstr)
conn.open()
sql= "select 日期,教室,教师,学科,节次 from class1 where 日期 = '" & date.today() & "'"
dim cmdd as oledbcommand= new oledbcommand(sql,conn)
lrd=cmdd.executereader()
rd=lrd
riqi.text=date.today()
table1.rows(0).cells(0).innerhtml=date.today()
dim dm1 as datetime
riqi.text+=dm1.dayofweek.tostring
table1.rows(1).cells(0).innerhtml=dm1.dayofweek.tostring
while rd.read()
select case rd.item("教室")
case "多媒体教室"
k="0"
case "物理实验室一"
k="1"
case "物理实验室二"
k="2"
case "化学实验室一"
k="3"
case "化学实验二"
k="4"
case "生物实验室"
k="5"
case "语音室"
k="6"
case "阅览室"
k="7"
case "报告厅"
k="8"
end select
l=rd.item("节次")
table2.rows(k).cells(l).innerhtml=rd.item("教师")
table2.rows(k).cells(l).innerhtml+="<br>"
table2.rows(k).cells(l).innerhtml+=rd.item("学科")
end while
conn.close()
end if
End Sub

sub quding_click(sender as object,e as eventargs)
if page.ispostback then
            Dim i As Integer = 0
            Dim j As Integer = 0
            Dim Row As Integer = 0
            Dim r As HtmlTableRow
            Dim c As HtmlTableCell

            For j = 0 To 8

                r = new HtmlTableRow()

                If (row Mod 2 <> 0) Then
                    r.BgColor = "Gainsboro"
                End If

                For i = 0 To 10
                    c = new HtmlTableCell()
                    c.Controls.Add(new LiteralControl("空闲" ))
                    r.Cells.Add(c)
                Next i

                Table2.Rows.Add(r)
            Next j
     For i=0 To Table1.Rows.Count - 1
           For j=0 To Table1.Rows(i).Cells.Count - 1
               Table1.Rows(i).Cells(j).Width = "75"
               Table1.Rows(i).Cells(j).height = "15"
               Table1.Rows(i).Cells(j).align = "center"
           Next j
     Next i
     For i=0 To Table2.Rows.Count - 1
            For j=0 To Table2.Rows(i).Cells.Count - 1
               Table2.Rows(i).Cells(j).Width = "75"
               Table2.Rows(i).Cells(j).height = "25"
               Table2.Rows(i).Cells(j).align = "center"
            Next j
     Next i
            Table1.Rows(0).Cells(1).InnerText = "上   午"
Table1.Rows(0).Cells(2).InnerText = "下   午"
Table1.Rows(0).Cells(3).InnerText = "晚   上"
Table1.Rows(1).Cells(1).InnerText = "1"
    Table1.Rows(1).Cells(2).InnerText = "2"
Table1.Rows(1).Cells(3).InnerText = "3"
Table1.Rows(1).Cells(4).InnerText = "4"
Table1.Rows(1).Cells(5).InnerText = "5"
Table1.Rows(1).Cells(6).InnerText = "6"
Table1.Rows(1).Cells(7).InnerText = "7"
Table1.Rows(1).Cells(8).InnerText = "8"
Table1.Rows(1).Cells(9).InnerText = "9"
Table1.Rows(1).Cells(10).InnerText = "10"
Table2.Rows(0).Cells(0).InnerText = "多媒体教室"
Table2.Rows(1).Cells(0).InnerText = "物理实验室一"
Table2.Rows(2).Cells(0).InnerText ="物理实验室二"
Table2.Rows(3).Cells(0).InnerText = "化学实验室一"
Table2.Rows(4).Cells(0).InnerText = "化学实验室二"
Table2.Rows(5).Cells(0).InnerText = "生物实验室"
Table2.Rows(6).Cells(0).InnerText = "语音室"
Table2.Rows(7).Cells(0).InnerText = "阅览室"
Table2.Rows(8).Cells(0).InnerText = "报告厅"
Table2.Rows(0).Cells(0).bgcolor="#33CCFF"
Table2.Rows(1).Cells(0).bgcolor="#33CCFF"
Table2.Rows(2).Cells(0).bgcolor="#33CCFF"
Table2.Rows(3).Cells(0).bgcolor="#33CCFF"
Table2.Rows(4).Cells(0).bgcolor="#33CCFF"
Table2.Rows(5).Cells(0).bgcolor="#33CCFF"
Table2.Rows(6).Cells(0).bgcolor="#33CCFF"
Table2.Rows(7).Cells(0).bgcolor="#33CCFF"
Table2.Rows(8).Cells(0).bgcolor="#33CCFF"
dim rd as oledbdatareader
dim lrd
dim k,l as integer
dim conn as oledbconnection=nothing
dim connstr,sql,shijian,shijian1 as string
connstr= "provider=microsoft.jet.oledb.4.0;data source="&server.mappath("class.mdb")
conn= new oledbconnection(connstr)
conn.open()
shijian=nian.text
shijian+="-"
shijian+=yue.text
shijian+="-"
shijian+=ri.text
sql= "insert into class1 (日期,教室,教师,学科,节次) values ('" & shijian & "','" & jiaoshi.selecteditem.value.tostring & "','"
sql=sql & jsxm.text.tostring & "','" & xueke.selecteditem.value.tostring & "','" & jieci.selecteditem.value.tostring & "')"
dim cmd as oledbcommand= new oledbcommand(sql,conn)
cmd.ExecuteNonQuery()
conn.close()
connstr= "provider=microsoft.jet.oledb.4.0;data source="&server.mappath("class.mdb")
conn= new oledbconnection(connstr)
conn.open()
shijian=nian.text
shijian+="-"
shijian+=yue.text
shijian+="-"
shijian+=ri.text
sql= "select 日期,教室,教师,学科,节次 from class1 where 日期 = '" & shijian & "'"
dim cmdd as oledbcommand= new oledbcommand(sql,conn)
lrd=cmdd.executereader()
rd=lrd
riqi.text=date.today()
table1.rows(0).cells(0).innerhtml=shijian
dim dm as datetime
riqi.text+=dm.dayofweek.tostring
table1.rows(1).cells(0).innerhtml=dm.dayofweek.tostring
while rd.read()
select case rd.item("教室")
case "多媒体教室"
k="0"
case "物理实验室一"
k="1"
case "物理实验室二"
k="2"
case "化学实验室一"
k="3"
case "化学实验二"
k="4"
case "生物实验室"
k="5"
case "语音室"
k="6"
case "阅览室"
k="7"
case "报告厅"
k="8"
end select
l=rd.item("节次")
table2.rows(k).cells(l).innerhtml=rd.item("教师")
table2.rows(k).cells(l).innerhtml+="<br>"
table2.rows(k).cells(l).innerhtml+=rd.item("学科")
end while
conn.close()
end if
   response.write("<script language='javascript'>window.opener.form1.submit();<" & chr(47) & "script>")
   end sub

</script>

我有个笨方法:
首先在ASPX页面里放置两个protected System.Web.UI.HtmlControls.HtmlTable
分别是TABLE1（提交信息）和TABLE2（显示信息）
一个是显示填写信息的表格，一个是显示提交信息的表格
然后就是交给CS里面去实现了
首先判断是否有信息在数据库里面，如果有就的话，TABLE1.Visible=false;
TABLE2.Visible=true;并将数据取出来放到TABLE2里面，并在TABLE2里面放一个修改按钮，他的事件是一点击以后就将TABLE2的Visible设置为false,并将TABLE1的Visible设置为true,并且将数据放到TABLE1里面相应的位置，记得在点击修改按钮的事件里面加上一句：
TABLE1.Visible=true;
TABLE2.Visible=false;
如果没有的话，TABLE1.Visible=true;TABLE2.Visible=false;然后在提交按钮事件里面将数据写如数据库，然后将提交表格隐藏，将显示信息表格显示，
对于数据更新的话，我是用控件绑定数据的，这些数据绑定我是写在一个单独的函数里面的，你也可以将这些操作写在一个独立的函数里面，这样美点击按钮事件的时候，最后一步就是调用这个函数，这样就可以了，如果还有什么不明白的，我这里有源代码，加我QQ22500696

更新父窗口用：<body onbeforeunload="opener.location.reload()"> 或 <body MS_POSITIONING="GridLayout" language=javascript onunload="return window_onunload()"> <script id=clientEventHandlersJS language=javascript>

</script>
子窗体点确定后写给Session什么的给父窗体，父窗体根据Session来取信息。子窗体关闭时父窗体才更新。

调试易

急死了，关于页面刷新问题............分不够可以再加

解决方案 »