sub showdata()
if page.ispostback then
dim i as integer = 0
dim j as integer = 0
dim rd as oledbdatareader
dim lrd
dim shijian1,shijian,connstr,sql as string
dim conn as oledbconnection=nothing
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
shijian1=shijian
sql= "select 日期,教室,教师,学科,节次 from class1 where 日期 = '" & shijian1 & "'"
dim cmd as oledbcommand= new oledbcommand(sql,conn)
lrd=cmd.executereader()
rd=lrd
riqi.text=date.today()
table1.rows(0).cells(0).innerhtml=shijian
dim dm as datetime
riqi.text+=dm.dayofweek.tostring
while rd.read()
select case rd.item("教室")
case "多媒体教室"
i="0"
case "物理实验室一"
i="1"
case "物理实验室二"
i="2"
case "化学实验室一"
i="3"
case "化学实验二"
i="4"
case "生物实验室"
i="5"
case "语音室"
i="6"
case "阅览室"
i="7"
case "报告厅"
i="8"
end select
j=rd.item("节次")
table2.rows(i).cells(j).innerhtml=rd.item("教师")
table2.rows(i).cells(j).innerhtml+="<br>"
table2.rows(i).cells(j).innerhtml+=rd.item("学科")
end while
conn.close()
end if
end sub
if page.ispostback then
dim i as integer = 0
dim j as integer = 0
dim rd as oledbdatareader
dim lrd
dim shijian1,shijian,connstr,sql as string
dim conn as oledbconnection=nothing
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
shijian1=shijian
sql= "select 日期,教室,教师,学科,节次 from class1 where 日期 = '" & shijian1 & "'"
dim cmd as oledbcommand= new oledbcommand(sql,conn)
lrd=cmd.executereader()
rd=lrd
riqi.text=date.today()
table1.rows(0).cells(0).innerhtml=shijian
dim dm as datetime
riqi.text+=dm.dayofweek.tostring
while rd.read()
select case rd.item("教室")
case "多媒体教室"
i="0"
case "物理实验室一"
i="1"
case "物理实验室二"
i="2"
case "化学实验室一"
i="3"
case "化学实验二"
i="4"
case "生物实验室"
i="5"
case "语音室"
i="6"
case "阅览室"
i="7"
case "报告厅"
i="8"
end select
j=rd.item("节次")
table2.rows(i).cells(j).innerhtml=rd.item("教师")
table2.rows(i).cells(j).innerhtml+="<br>"
table2.rows(i).cells(j).innerhtml+=rd.item("学科")
end while
conn.close()
end if
end sub
解决方案 »
- GridView中的checkbox的oncheckvaluechange事件如何响应
- ASP.NET Excel 不能導出到本地.
- 在列表中显示多个图片
- 很简单:如何用HttpWebRequest请求SSL(HTTPS),好像与HTTP有很有区别,得不到数据
- 关于connection对象的使用问题,三种方式,请大家帮忙讨论一下
- 如何定义全局变量,要让整个网站都可以取得到他的值
- BLOB字段的读写(尽快结帖)
- ASP.NET WEB MATRIX的问题
- 升级散分
- 各位帮帮忙阿,这段代码哪里有毛病?
- 问个稚致的问题,当一个控件的有关属性被其它控件修改后,怎样刷新这个控件?
- 树的问题,要实现选中节点后就关闭,但它为什么总是默认选中第一个(根节点)呢,我还没开始选择呢?
这里的index就是你的.item("...")里面的内容中的 第几个/总数量
错误说明你使用的项数目 大于了 里面所包含的 全部项数目
索引 和数组 一样
是从0开始 记位
不过,删除这一行之后,后面两行一个个错。
<%@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 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"
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 rd as oledbdatareader
dim lrd
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()
sql= "select 日期,教室,教师,学科,节次 from class1 where 日期 = '" & shijian & "'"
dim cmdd as oledbcommand= new oledbcommand(sql,conn)
lrd=cmdd.executereader()
rd=lrd
shijian1=shijian
riqi.text=date.today()
dim dm as datetime
riqi.text+=dm.dayofweek.tostring
table1.rows(0).cells(0).innerhtml=shijian1
while rd.read()
select case rd.item("教室")
case "多媒体教室"
i="0"
case "物理实验室一"
i="1"
case "物理实验室二"
i="2"
case "化学实验室一"
i="3"
case "化学实验二"
i="4"
case "生物实验室"
i="5"
case "语音室"
i="6"
case "阅览室"
i="7"
case "报告厅"
i="8"
end select
j=rd.item("节次")
table2.rows(i).cells(j).innerhtml=rd.item("教师")
table2.rows(i).cells(j).innerhtml+="<br>"
table2.rows(i).cells(j).innerhtml+=rd.item("学科")
end while
conn.close
end if
End Sub
</script>