日期:2011-04-17  浏览次数:20872 次

综述:
在这篇文章里 豆腐 简单扼要的讲了一下在asp+编程中我们可能要遇到的问题以及遇到这些问题的解决方法,相信大家 在
看完这篇文章以后,对于asp+的编程就会觉得是非常的
简单,我在这篇文章文章中主要讲了一些比较中级的应用,如果您对于asp+目前还是处于入门阶段,建议您去
1 如何使用 asp+ 获取提交的form元素

我们首先来利用一个很简单的例子来说明 一下 asp+ 给我们带来的 server-side control 的好处
首先我们写一个form 为了方便起见,我不在 描述 <html> 等和我们的文章没有直接关系的标签


代码:
--------------------------------------------------------------------------------

    <SCRIPT language="VB" runat="server">      Sub test(Sender As Object, Args As
EventArgs)        'Sender , Args  这两个 参数是 click 事件的参数        Response.Write ("您的名称是 : '" &
txtName.value & "' .”)        Response.Write ("您填写的Email是: '" & txtEmail.value &"'.")      End
Sub    </SCRIPT>    <form method=post>      <table align = center>       <tr><td>        您的名称:<INPUT
type="text" id="txtName" runat="server">       </td></tr>       <tr><td>        您的Email 是:<INPUT
type="text" id="txtEmail" runat="server">       </td></tr>       <tr><td>         <INPUT type="submit"
value="提交" runat="server"            onserverclick="test">       </td></tr>      </table>        </form>

--------------------------------------------------------------------------------


这样我们写的程序 就如同 一个 vb 的 frm 一样(据说在 vb 7.0 中的确会增加这样的功能)
有的人也会说他们非常希望 和 以前的 asp 程序保持 连续性,没有关系,如果 您 不喜欢使用
txtName.Value 这样的语法的话,仍然可以使用 request.form(txtName),怎么样,够Cool 吧。

2。ASp+ 中处理 数据库

asp+ 引入了很多的 server-side 的数据库组件,就如同我们在 VB 的的数据库控件DBList,DBGrid 一样
如果在 VI 中使用过 RDS 组件的话,大家一定对MS 很早就想 推出的这个东东 有一个 大致的了解了,不过
asp+ 就是asp+ 不是asp,MS 确实有大动作在 asp 上做

代码:
--------------------------------------------------------------------------------

   <%@ Page Language="VB"%>   <%@ Import Namespace="System.Data" %>   <%@ Import
Namespace="System.Data.ADO" %>   <script language="VB" runat="server">     Sub search_OnClick(Sender As
Object, E As EventArgs)      '这底下的语句告诉我们,在ASp+ 中我们终于可以 放弃variant 这种效率低下的数据类
型了      Dim connobj As ADOConnection      Dim dtsCmdobj As ADODataSetCommand      Dim dtSobj As
DataSet      Dim str_sql As String      dim conn_str As String      str_sql = "select * from
table_name"      conn_str = "DBQ=" & Server.MapPath("database.mdb") &_                 ";Driver={Microsoft
Access Driver (*.mdb)};"      connobj = New ADOConnection(conn_str)      dtsCmdobj = New ADODataSetCommand
(str_sql, connobj)      dtSobj = New DataSet()      dtsCmdob.FillDataSet(dtsobj, "test")      
dtgrid.D