📄 query.aspx
字号:
<%@ Page Language="VB" Debug="true" %>
<%@ Import Namespace="system.Data" %>
<%@ Import Namespace="system.Data.Oledb" %>
<Html>
<Head>
<Title>网上考试系统</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 = "还没有您的成绩"
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">网上考试系统</FONT>
<HR><P align="center">
<FONT size=5 COLOR="Orange">成绩查询</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>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -