金色的骷髅 发表于 2015-1-16 22:53:54

ASP网页编程之ASP+数据库操纵例子

减少客户内IT专业人才缺乏带来的影响。ASP的客户员工利用浏览器进入相关的应用软件,简单易用,无需专业技术支持。asp+|数据|数据库<%@PageLanguage="VB"%>
<%@ImportNamespace="System.Data"%>
<%@ImportNamespace="System.Data.ADO"%>

<scriptlanguage="VB"runat="server">
SubPage_Load(Srcasobject,EasEventArgs)
IfrblLTorGT.SelectedIndex=-1ThenrblLTorGT.SelectedIndex=0
EndSub

SubbtnRunQuery_OnClick(SenderAsObject,EAsEventArgs)
DimobjConnectionAsADOConnection
DimobjDSCommandAsADODataSetCommand
DimobjDataSetAsDataSet
DimstrSQLQueryAsString

strSQLQuery="SELECT*FROMsample"&_
"WHERE(Sales"&rblLTorGT.SelectedItem.Value.ToString()&""&
txtSalesAmount.Text.ToString()&")"&_
"ORDERBY"&ddlSortBy.SelectedItem.Value.ToString()&
ddlSortOrder.SelectedItem.Value.ToString()

objConnection=NewADOConnection("DBQ="&Server.MapPath("database.mdb")&";Driver=
{MicrosoftAccessDriver(*.mdb)};")

objDSCommand=NewADODataSetCommand(strSQLQuery,objConnection)

objDataSet=NewDataSet()
objDSCommand.FillDataSet(objDataSet,"sample")

lblSQLCommandLabel.Text=strSQLQuery

EmployeeDataGrid.DataSource=objDataSet.Tables("sample").DefaultView
EmployeeDataGrid.DataBind()
EndSub
</script>

<html>
<body>

<formaction="database.aspx"method="post"runat="server">
<strong>Sales:</strong><br/>

<tableborder="0">
<tr><td>
<asp:RadioButtonListid="rblLTorGT"runat="server">
<asp:ListItemvalue="<"runat="server">LessThan</asp:ListItem>
<asp:ListItemvalue=">"runat="server">Greater
Than</asp:ListItem>
</asp:RadioButtonList>
</td><td>
<asp:TextBoxid="txtSalesAmount"runat="server"/>
<asp:RequiredFieldValidatorrunat="server"
id="validSalesEntry"controlToValidate="txtSalesAmount"
errorMessage="Youmustenterasalesamount!"
display="dynamic"
/>
<asp:RangeValidatorrunat="server"
id="validSalesAmount"controlToValidate="txtSalesAmount"
type="Integer"minimumValue="-32000"maximumValue="+32000"
errorMessage="Youmustenteraninteger!"
display="dynamic"
/>
</td></tr>
</table>

<strong>SortBy:</strong><br/>

<asp:DropDownListid="ddlSortBy"runat="server">
<asp:ListItemvalue="id">Id</asp:ListItem>
<asp:ListItemvalue="last_name">LastName</asp:ListItem>
<asp:ListItemvalue="first_name">FirstName</asp:ListItem>
<asp:ListItemvalue="sales">Sales</asp:ListItem>
</asp:DropDownList>

<asp:DropDownListid="ddlSortOrder"runat="server">
<asp:ListItemvalue="ASC">Ascending</asp:ListItem>
<asp:ListItemvalue="DESC">Descending</asp:ListItem>
</asp:DropDownList>

<asp:Buttontype="submit"id="btnRunQuery"text="RunQuery"OnClick="btnRunQuery_OnClick"
runat="server"/>
</form>

<p>
<strong>Resultsof:</strong><asp:labelid="lblSQLCommandLabel"runat="server"/>
</p>

<asp:DataGridid="EmployeeDataGrid"HeaderStyle-Font-Bold="True"ToolTip="ThisisCool!"runat="server"
maintainviewstate="false"/>

</body>
</html>

</p>ASP一般认为只能运行在IIS上,正如前面所提到的,这并不是十分正确,事实上,ASP也能运行在Apache上。ApacheASP可在任意Apache服务器上运行有限的ASP功能,所需做的,只需打开mod_perl。

小妖女 发表于 2015-1-20 05:58:22

代码的可重用性差:由于是面向结构的编程方式,并且混合html,所以可能页面原型修改一点,整个程序都需要修改,更别提代码重用了。

愤怒的大鸟 发表于 2015-1-20 05:58:22

Application:这个存储服务端的数据,如果不清除,会直到web应用程序结束才清除(例如重启站点)

分手快乐 发表于 2015-1-28 19:39:38

不能只是将它停留在纸上谈兵的程度上。

再见西城 发表于 2015-2-5 22:40:53

不能只是将它停留在纸上谈兵的程度上。

莫相离 发表于 2015-2-14 00:20:07

Server:这个表示的服务器,操作服务器的一些东西使用这个,如Server.Mappath转换服务器路径,Server.CreateObject实例化一个组件

变相怪杰 发表于 2015-3-11 15:50:42

我就感觉到ASP和一些常用的数据库编程以及软件工程方面的思想是非常重要的。我现在也在尝试自己做网页,这其中就用到了ASP,我想它的作用是可想而知的。

小魔女 发表于 2015-3-19 01:36:36

以HTML语言整合(HTML负责界面上,ASP则负责功能上)形成一个B/S(浏览器/服务器)模式的网页程序。

因胸联盟 发表于 2015-3-27 01:10:20

它可通过内置的组件实现更强大的功能,如使用A-DO可以轻松地访问数据库。
页: [1]
查看完整版本: ASP网页编程之ASP+数据库操纵例子