?? query.aspx
字號(hào):
<%@ Page Language="VB" Debug="true" %>
<%@ Import Namespace="system.Data" %>
<%@ Import Namespace="system.Data.Oledb" %>
<Html>
<Head>
<Title>網(wǎng)上考試系統(tǒng)</Title>
<Script Language="VB" runat="Server">
Dim dt As DataTable
Dim score1,score2,score3 As Single
Dim number1,number2,number3 As Integer
Dim type1,type2,type3 As string
Dim num As Integer
Dim examname As String
Sub Page_Load(Sender As object,e As Eventargs)
if not page.ispostback then
Dim conn as OledbConnection
Dim com as OledbCommand
Dim rd As OledbDataReader
Dim conStr As String ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("EXAM.MDB")
Dim SQL As String
Dim total As Single
conn = New OleDbConnection(conStr)
Conn.Open()
'SQL="select * from score where userid=" & session("userid")
SQL = "select * from subjectscore where 用戶名='" & session("username") & "'"
Com = New OledbCommand(SQL,conn)
try
rd = Com.ExecuteReader()
catch se As OledbException
label1.Text = "還沒有您的成績(jī)"
end try
datagrid1.datasource=rd
datagrid1.databind()
end if
End Sub
Sub OnSubmit_Click(Sender As object,e As Eventargs)
response.redirect("exam.aspx")
End Sub
</Script>
</Head>
<Body>
<form runat="server">
<p>
<p>
<CENTER>
<FONT size=6 COLOR="Blue">網(wǎng)上考試系統(tǒng)</FONT>
<HR><P align="center">
<FONT size=5 COLOR="Orange">成績(jī)查詢</FONT>
<P>
<asp:Label id="Label1" Font-Bold="True" Font-Size="26pt" ForeColor="Orange" runat="server" /><P>
<asp:DataGrid id="DataGrid1" runat="server"
BorderColor="black"
GridLines="Vertical"
cellpadding="4"
cellspacing="0"
width="100%"
Font-Name="Arial"
Font-Size="8pt"
HeaderStyle-BackColor="#cccc99"
ItemStyle-BackColor="#ffffff"
AlternatingItemStyle-Backcolor="#cccccc"
AutoGenerateColumns="true" /><P><P>
<asp:Button id="Submit" Text="返 回" OnClick="OnSubmit_Click" runat="server"/>
</CENTER>
</form>
</Body>
</Html>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -