IDC资讯中心
<%@ page language="vb"%>
<%@ import namespace="system.data" %>
<%@ import namespace="system.data.ado" %>
<script language="vb" runat="server">
sub page_load(src as object, e as eventargs)
if rblltorgt.selectedindex = -1 then rblltorgt.selectedindex = 0
end sub
sub btnrunquery_onclick(sender as object, e as eventargs)
dim objconnection as adoconnection
dim objdscommand as adodatasetcommand
dim objdataset as dataset
dim strsqlquery as string
strsqlquery = "select * from sample " & _
"where (sales " & rblltorgt.selecteditem.value.tostring() & " " &
txtsalesamount.text.tostring() & ") " & _
"order by " & ddlsortby.selecteditem.value.tostring() &
ddlsortorder.selecteditem.value.tostring()
objconnection = new adoconnection("dbq=" & server.mappath("database.mdb") & ";driver=
{microsoft access driver (*.mdb)};")
objdscommand = new adodatasetcommand(strsqlquery, objconnection)
objdataset = new dataset()
objdscommand.filldataset(objdataset, "sample")
lblsqlcommandlabel.text = strsqlquery
employeedatagrid.datasource = objdataset.tables("sample").defaultview
employeedatagrid.databind()
end sub
</script>
<html>
<body>
<form action="database.aspx" method="post" runat="server">
<strong>sales:</strong><br />
<table border="0">
<tr><td>
<asp:radiobuttonlist id="rblltorgt" runat="server">
<asp:listitem value="<" runat="server">less than</asp:listitem>
<asp:listitem value=">" runat="server">greater
than</asp:listitem>
</asp:radiobuttonlist>
</td><td>
<asp:textbox id="txtsalesamount" runat="server" />
<asp:requiredfieldvalidator runat="server"
id="validsalesentry" controltovalidate="txtsalesamount"
errormessage="you must enter a sales amount!"
display="dynamic"
/>
<asp:rangevalidator runat="server"
id="validsalesamount" controltovalidate="txtsalesamount"
type="integer" minimumvalue="-32000" maximumvalue="+32000"
errormessage="you must enter an integer!"
display="dynamic"
/>
</td></tr>
</table>
<strong>sort by:</strong><br />
<asp:dropdownlist id="ddlsortby" runat="server">
<asp:listitem value="id" >id</asp:listitem>
<asp:listitem value="last_name" >last name</asp:listitem>
<asp:listitem value="first_name" >first name</asp:listitem>
<asp:listitem value="sales">sales</asp:listitem>
</asp:dropdownlist>
<asp:dropdownlist id="ddlsortorder" runat="server">
<asp:listitem value=" asc" >ascending</asp:listitem>
<asp:listitem value=" desc">descending</asp:listitem>
</asp:dropdownlist>
<asp:button type="submit" id="btnrunquery" text="run query" onclick="btnrunquery_onclick"
runat="server" />
</form>
<p>
<strong>results of:</strong> <asp:label id="lblsqlcommandlabel" runat="server" />
</p>
<asp:datagrid id="employeedatagrid" headerstyle-font-bold="true" tooltip="this is cool!" runat="server"
maintainviewstate="false" />
</body>
</html>
