📄 advquery.aspx
字号:
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<html>
<script language="VB" runat="server">
Dim MyConnection As OleDbConnection,String1,Label1,TextBox1,TextBox2,TextBox3
Sub Page_Load(Sender As Object, E As EventArgs)
if session("master")="" then
response.redirect("cancel.aspx")
end if
String1="Provider=Microsoft.Jet.OLEDB.4.0;Data Source = "&Server.MapPath(" DataBase.MDB")
MyConnection = New OleDbConnection(String1)
End Sub
Sub Edits(Sender As Object, E As DataListCommandEventArgs)
DataList1.EditItemIndex = e.Item.ItemIndex
BindGrid()
End Sub
Sub Cancels(Sender As Object, E As DataListCommandEventArgs)
DataList1.EditItemIndex = -1
BindGrid()
End Sub
Sub Updates(Sender As Object, E As DataListCommandEventArgs)
Dim DS As DataSet
Dim MyCommand As OleDbCommand
Dim UpdateCmd As String = "UPDATE info SET id = @id, state = @state, teacher = @teacher where id=@id"
MyCommand = New OleDbCommand(UpdateCmd, MyConnection)
MyCommand.Parameters.Add(New OleDbParameter("@id", OleDbType.VarChar))
Label1=e.Item.FindControl("Label1")
MyCommand.Parameters("@id").Value = Label1.Text
MyCommand.Parameters.Add(New OleDbParameter("@state", OleDbType.VarChar))
Textbox1=e.Item.FindControl("TextBox1")
MyCommand.Parameters("@state").Value = Textbox1.Text
MyCommand.Parameters.Add(New OleDbParameter("@teacher", OleDbType.VarChar))
Textbox2=e.Item.FindControl("TextBox2")
MyCommand.Parameters("@teacher").Value = Textbox2.Text
MyCommand.Connection.Open()
MyCommand.ExecuteNonQuery()
MyCommand.Connection.Close()
DataList1.EditItemIndex = -1
BindGrid()
End Sub
Sub BindGrid()
Dim MyDataSet As DataSet
Dim MyCommand As OleDbDataAdapter
dim strau,strb,strc as string
MyCommand = new OleDbDataAdapter("select * from info where id ='" & txt1.text & "' ", MyConnection)
MyDataSet = new DataSet()
MyCommand.Fill(MyDataSet, "info")
DataList1.DataSource=MyDataSet
DataList1.DataMember="info"
DataList1.DataBind()
End Sub
Sub click1(Sender As Object, E as EventArgs)
BindGrid()
end sub
</script>
</head>
<body>
<link href="css/class.css" type=text/css rel=stylesheet>
<br><center><FONT face="宋体" size="5" >致远工作室音像资料在线管理系统</FONT><br><br>
<form runat=server>
<center>输入资料的校内编号：<asp:textbox id="txt1" runat="server"/>
<asp:Button id="buttony" Text="资料查询" runat="server" onClick="click1" /><br><br>
<asp:DataList id="DataList1" runat="server"
BorderColor="black" BorderWidth="1" GridLines="Both" CellPadding="3"
CellSpacing="0" Font-Name="Verdana"
Font-Size="8pt" Width="80%" HeaderStyle-BackColor="#aaaadd"
EditItemStyle-BackColor="lightgreen"
DataKeyField="Name"
OnEditCommand="Edits"
OnUpdateCommand="Updates"
OnCancelCommand="Cancels">
<ItemTemplate>
<table width="100%" border="1" align="center" cellspacing="0" bgcolor="#FFCCCC" runat="server">
<tr> <td align="center">资料编号：</td>
<td align="center"><%# Container.DataItem("id") %></td>
</tr>
</table>
<asp:LinkButton id="button1" runat="server" Text="资料编辑" CommandName="Edit"/>
</ItemTemplate>
<EditItemTemplate>
<table width="100%" border="1" cellspacing="0" bgcolor="#FFCCCC">
<tr align="center">
<td width="34%">校内编号</td>
<td colspan="2">具体资料</td>
</tr>
<tr>
<td rowspan="3" align="center"><asp:Label id="Label1" runat="server" text='<%# Container.DataItem("id") %>'/></td>
<td height="21" width="33%" align="right">借出标记:</td>
<td height="21" width="33%"><asp:Textbox id="textbox1" runat="server" text='<%# Container.DataItem("state") %>'/></td>
</tr>
<tr>
<td align="right">借出人员:</td>
<td><asp:textbox id="textbox2" runat="server" text='<%# Container.DataItem("teacher") %>'/></td>
</tr>
</table>
<asp:LinkButton id="button4" runat="server" Text="更新" CommandName="Update" />
<asp:LinkButton id="button6" runat="server" Text="取消" CommandName="Cancel" />
</EditItemTemplate>
</asp:DataList>
</form>
<a href="default.aspx">返回资源管理中心</a>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -