📄 stuquery.aspx
字号:
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<script language="vb" runat="server" >
sub Query(sender as Object, e as Eventargs)
dim conn as new OleDbConnection()
dim DS as new dataset()
conn.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0; Data Source="& _
Server.MapPath("基本信息.mdb")
Dim objAdpt As New OleDbDataAdapter("Select * from student where "& drp.text &" like '%" & inf.text & "%'",conn)
objAdpt.Fill(DS,"student")
stuDG.DataSource = DS
stuDG.DataBind()
conn.Close()
end sub
</script>
<html>
<head><title>查询学生信息界面</title></head>
<body background="image/13.jpg"><center>
<H1 Align="Center">请 输 入 以 下 信 息</H1>
<Hr color="#003366" Border="2"><br>
<form runat="server">
<Asp:DropDownList runat="server" ID="drp" Width="100">
<asp:ListItem Text="学号" />
<asp:ListItem Text="姓名" />
</Asp:DropDownList>
<Asp:TextBox Runat="Server" Id="inf" Columns="10"/>
<asp:button runat="server" Text="查询" OnClick="Query" />
<br><br><br>
<Asp:DataGrid Runat="Server" Id="stuDG" HorizontalAlign="Center" Width="500"
BorderColor="#DEBA84" >
<HeaderStyle Font-Size="Small" Font-Bold="True" HorizontalAlign="Center"
ForeColor="#FFFFFF" BackColor="#990000" />
<ItemStyle Font-Size="X-Small" ForeColor="#336688" /></Asp:DataGrid>
</form></center></body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -