📄 query11.aspx
字号:
<%@ Import NameSpace="System.Data" %>
<%@ Import NameSpace="System.Data.OleDb" %>
<script language="VB" runat="Server">
Dim objConn As OleDbConnection
Dim objCmd As OleDbDataAdapter
Dim objDS As DataSet
Dim strSQL, strDSN As String
dim string1 as string
Function Get_DSN(bolSQL As Boolean) As String
'--- bolSQL: True for SQL Server, False for Access ---
If Not bolSQL Then 'Access
Get_DSN = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
& Server.MapPath("database.mdb")
Else 'SQL Server
Get_DSN = "Provider=SQLOLEDB.1;Data Source=Alvinnt;User ID=sa;" _
& "Password=;Initial Catalog=ASPNew;autotranslate=no;"
End If
End Function
Sub Page_Load(Sender As Object, E as EventArgs)
End Sub
Sub Show_Grid(Sender As Object, E as EventArgs)
Dim strAu As String
dim strb as string
dim strc as string
'--- 使用Access数据库 ---
strDSN = Get_DSN(False)
'--- 创建OleDbConnection ---
objConn = New OleDbConnection(strDSN)
'--- 取出下拉列表框的点选项 ---
strAu =Trim(author.SelectedItem.Text)
strb=trim(branch.selecteditem.text)
strc=trim(class1.selecteditem.text)
strSQL = "select * from info where grade ='" & strAu & "' and branch='" & strb & "' and class='" & strc & "' order by id "
objCmd = New OleDbDataAdapter()
objCmd.TableMappings.Add("Table", "info")
objCmd.SelectCommand = New OleDbCommand(strSQL, objConn)
objDS = New DataSet("info")
objCmd.Fill(objDS)
Grid1.DataSource = objDS.Tables("info").DefaultView
Grid1.DataBind()
End Sub
Sub register(Sender As Object, E as EventArgs)
if textbox11.text="" then
label55.text=" 您忘记填写ID，请正确填写！"
else
dim id
id=textbox11.text
response.redirect("reg.aspx?id="& id)
end if
End Sub
</script>
<html>
<head><title>音像资料管理系统（查询数据）</title></head>
<body>
<center><FONT face="宋体" size="5" >致远工作室音像资料在线管理系统</FONT><br><br>
<br>请在下表中选择查询条件：</center>
<form id="form1" runat="server" method="post">
<link href="css/class.css" type=text/css rel=stylesheet>
<table border="1" align="center" bordercolor=#0066cc>
<tr>
<td><font size="2">请选择查询年级：</font></td>
<td>
<asp:DropDownList id="author" runat="server" >
<asp:ListItem Text="一年级" />
<asp:ListItem Text="二年级" />
<asp:ListItem Text="三年级" />
<asp:ListItem Text="四年级" />
<asp:ListItem Text="五年级" />
<asp:ListItem Text="六年级" />
<asp:ListItem Text="通 用" />
</asp:DropDownList></td>
<td>
<font size="2"> 请选择查询学科：</font></td><td><asp:DropDownList id="branch" runat="server" >
<asp:ListItem Text="语 文" />
<asp:ListItem Text="数 学" />
<asp:ListItem Text="英 语" />
<asp:ListItem Text="音 乐" />
<asp:ListItem Text="美 术" />
<asp:ListItem Text="科 学" />
<asp:ListItem Text="思 品" />
<asp:ListItem Text="综 合" />
</asp:DropDownList>
</td>
<td><font size="2">请选择查询介质：</font></td><td><asp:DropDownList id="class1" runat="server" >
<asp:ListItem Text="CD-ROM" />
<asp:ListItem Text="DVD-ROM" />
<asp:ListItem Text="VCD" />
<asp:ListItem Text="录象带" />
<asp:ListItem Text="投影片" />
<asp:ListItem Text="录音带" />
<asp:ListItem Text="挂 图" />
<asp:ListItem Text="其 他" />
</asp:DropDownList>
</td></tr>
</table>
</font>
<br>
<center><font size="1"><asp:Button id="btnSubmit" Text="点击查询" runat="server" onClick="Show_Grid" /></font> <br><hr><font size="2">
请把你查询到的资料确认处于<font color="red"> 没有借出 </font>的状态，并且填写它的<font color="red">校内编号</font>在后面的文本框，<asp:textbox id="textbox11" runat="server"/><br>点击"预约登记"按钮可以预约登记 <asp:Button id="buttony" Text="预约登记" runat="server" onClick="register" /></font><font size="2" color="red" ><asp:label id="label55" runat="server"/></font>
<hr><center>
<asp:DataGrid id="Grid1" runat="server" MaintainState="false" HeaderStyle-BackColor="blue" HeaderStyle-ForeColor="yellow" horizontalalign="center" autogeneratecolumns=false ItemStyle-BackColor="white" ItemStyle-ForeColor="black" Width="800" >
<columns>
<asp:boundcolumn datafield="id" headertext="校内编号" />
<asp:boundcolumn datafield="name" headertext="资料名称" />
<asp:boundcolumn datafield="class" headertext="存储介质" />
<asp:boundcolumn datafield="grade" headertext="适用年级" />
<asp:boundcolumn datafield="branch" headertext="适用学科" />
<asp:boundcolumn datafield="state" headertext="借出标记" />
<asp:boundcolumn datafield="place" headertext="存储位置" />
<asp:boundcolumn datafield="buydate" headertext="出版时间" />
<asp:boundcolumn datafield="date1" headertext="录入时间" />
<asp:boundcolumn datafield="master" headertext="操作人员" />
<asp:boundcolumn datafield="teacher" headertext="借出人员" />
<asp:boundcolumn datafield="content" headertext="主要内容" />
</columns>
</asp:datagrid>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -