asp编程总结

1.数据库连接方式(strconn.asp)
   <%--
    对SQL Server数据库进行操作，数据库名为：TestDB，用户名为sa，密码为xyz123，数据库服务器名为ACT或   211.153.165.7，
    创建的数据源为TEST，下列语句已创建Connection对象
    Set  conn = Server.CreateObject("ADODB.Connection")
    请按下列要求填空：
    A、以数据源方式指定conn对象的连接字符串
        conn.ConnectionString = "DSN=TEST;UID=sa;PWD=xyz123;database=TestDB"
    B、以OLEDB方式指定conn对象的连接字符串
        conn.ConnectionString = "Provider=SQLOLEDB.1;User ID=sa;Password=xyz123;Initial Catalog=TestDB;Data Source=211.153.165.7"
    C、以ODBC驱动程序方式指定conn对象的连接字符串
        conn.ConnectionString = "Driver={SQL Server};Server=(ACT);UID=sa;PWD=xyz123;database=TestDB"
--%>
<%--
    对Access数据库进行操作，数据库为当前站点目录data目录中的Student.mdb，创建的系统数据源名称为：STUD创建连接对象的语句为：
    Set connStudent = Server.CreateObject("ADODB.Connection")
    请按下列要求填空：
    A、以ODBC驱动程序方式指定connStudent的连接字符串
    connStudent.ConnectionString= "Driver={Microsoft Access Driver (*.mdb)};DBQ="&_
    Server.MapPath("./data/Student.mdb")
        也可以给A选项的连接串加入用户名sa与密码 xyz123
     connStudent.ConnectionString= "Driver={Microsoft Access Driver (*.mdb)};uid=sa;pwd=xyz123;DBQ="&_
    Server.MapPath("./data/Student.mdb")
    B、以OLEDB方式指定connStudent的连接字符串
    connStudent.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("./data/Student.mdb")
        也可以给B选项的连接串加入用户名sa与密码 xyz123
        connStudent.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;User Id=sa;Password=xyz123;Data Source="&Server.MapPath("./data/Student.mdb")
    C、以数据源打开方式指定connStudent的连接字符串
        connStudent.ConnectionString = "DSN=STUD"
   connStudent.OPEN
--%>

2.Recordset对象方法
　　Open方法
　　recordset.Open Source,ActiveConnection,CursorType,LockType,Options
　　Source
　　Recordset对象可以通过Source属性来连接Command对象。Source参数可以是一个Command对象名称、一段SQL命令、一个指定的数据表名称或是一个Stored
Procedure。假如省略这个参数，系统则采用Recordset对象的Source属性。
　　ActiveConnection
　　Recordset对象可以通过ActiveConnection属性来连接Connection对象。这里的ActiveConnection可以是一个Connection对象或是一串包含数据库连接信息（ConnectionString）的字符串参数。
　　CursorType
　　Recordset对象Open方法的CursorType参数表示将以什么样的游标类型启动数据，包括adOpenForwardOnly、adOpenKeyset、adOpenDynamic及adOpenStatic，分述如下：
　　常数 常数值 说明
　　adOpenForwardOnly 0 缺省值，启动一个只能向前移动的游标（Forward Only）。
　　adOpenKeyset 1 启动一个Keyset类型的游标。
　　adOpenDynamic 2 启动一个Dynamic类型的游标。
　　adOpenStatic 3 启动一个Static类型的游标。
　　-------------------------------------------------------------
以上几个游标类型将直接影响到Recordset对象所有的属性和方法，以下列表说明他们之间的区别。
-------------------------------------------------------------
　　Recordset属性     adOpenForwardOnly adOpenKeyset adOpenDynamic adOpenStatic
　　-------------------------------------------------------------
　　AbsolutePage   不支持 不支持 可读写 可读写
　　AbsolutePosition 不支持 不支持 可读写 可读写
　　ActiveConnection 可读写 可读写 可读写 可读写
　　BOF 只读 只读 只读 只读
　　Bookmark 不支持 不支持 可读写 可读写
　　CacheSize 可读写 可读写 可读写 可读写
　　CursorLocation 可读写 可读写 可读写 可读写
　　CursorType 可读写 可读写 可读写 可读写
　　EditMode 只读 只读 只读 只读
　　EOF 只读 只读 只读 只读
　　Filter 可读写 可读写 可读写 可读写
　　LockType 可读写 可读写 可读写 可读写
　　MarshalOptions 可读写 可读写 可读写 可读写
　　MaxRecords 可读写 可读写 可读写 可读写
　　PageCount 不支持 不支持 只读 只读
　　PageSize 可读写 可读写 可读写 可读写
　　RecordCount 不支持 不支持 只读 只读
　　Source 可读写 可读写 可读写 可读写
　　State 只读 只读 只读 只读
　　Status 只读 只读 只读 只读
　　AddNew 支持 支持 支持 支持
　　CancelBatch 支持 支持 支持 支持
　　CancelUpdate 支持 支持 支持 支持
　　Clone 不支持 不支持
　　Close 支持 支持 支持 支持
　　Delete 支持 支持 支持 支持
　　GetRows 支持 支持 支持 支持
　　Move 不支持 支持 支持 支持
　　MoveFirst 支持 支持 支持 支持
　　MoveLast 不支持 支持 支持 支持
　　MoveNext 支持 支持 支持 支持
　　MovePrevious 不支持 支持 支持 支持
　　NextRecordset 支持 支持 支持 支持
　　Open 支持 支持 支持 支持
　　Requery 支持 支持 支持 支持
　　Resync 不支持 不支持 支持 支持
　　Supports 支持 支持 支持 支持
　　Update 支持 支持 支持 支持
　　UpdateBatch 支持 支持 支持 支持
　　--------------------------------------------------------------
　　其中NextRecordset方法并不适用于Microsoft Access数据库。
　　LockType
　　Recordset对象Open方法的LockType参数表示要采用的Lock类型，如果忽略这个参数，那么系统会以Recordset对象的LockType属性为预设值。LockType参数包含adLockReadOnly、adLockPrssimistic、adLockOptimistic及adLockBatchOptimistic等，分述如下：　
　-------------------------------------------------------------
　　常数 常数值 说明
　　--------------------------------------------------------------
　　adLockReadOnly 1 缺省值，Recordset对象以只读方式启动，无法运行AddNew、Update及Delete等方法
　　adLockPrssimistic 2 当数据源正在更新时，系统会暂时锁住其他用户的动作，以保持数据一致性。
　　adLockOptimistic 3 当数据源正在更新时，系统并不会锁住其他用户的动作，其他用户可以对数据进行增、删、改的操作。
　　adLockBatchOptimistic 4 当数据源正在更新时，其他用户必须将CursorLocation属性改为adUdeClientBatch才能对数据进行增、
　　删、改的操作。


3.嵌入文件
<iframe ID="top" src="/usefile/嵌入文件名.asp" frameborder=0 scrolling=no width="900" height="270"></iframe>


4.对记录做删除操作，并给予提示
  在适当的表格格子内写入
  <% Response.Write "<a href=javascript:confirmdel('" & rsObj("id") & "')>删除</a>"
  调用函数为confirmdel(参数为该记录的id号)
  <script language="javascript">
    function confirmdel(id)
    {
        if(confirm("真的要删除此信息吗?"))
        {
            //window.location.href='glyxxdel.asp?xxid='+id  & 'url=gly3.asp'; //原来的错误语句
              window.location.href="glyxxdel.asp?xxid="+id + "&url=gly3.asp";
        }
    }
  </script>

5.分页功能的实现
  首先在该网页（xianshi.asp）的首部写入：
  <!--#include file ="strconn.asp"-->
  <%  '定义变量
    Dim xxsql,rsObj
    Dim page, thisUrl, i ,conMaxPerPage
    conMaxPerPage=20'每页最大记录个数
    page  = Request.QueryString("page")
    If (page  =  "" Or IsEmpty(page)) Then
    page  =  1
    end if
    if thisurl="" then
       thisUrl  ="xianshi.asp" '
    end if   
 
    set rsObj=server.CreateObject("adodb.recordset")
    xxsql="select * from 表名称 where 条件 order by 字段1 desc 或者 字段1 asc " 'desc为降序排列 asc为升序排列
    rsObj.open xxsql ,连接名称strconn,1, 1
    rsObj.pagesize =  conMaxPerPage
  %>
 
  其次在xianshi.asp网页中部：
   <%
       '查询数据库中所有栏目
        if rsObj.EOF and rsObj.bof then'如果没有栏目
    response.write "没有信息！"    
    response.End()
        else'有的话就用自动循环加载全部列表   
        rsObj.move(page-1)*conMaxPerPage
          i=1       
          do while NOT rsObj.EOF%>
      <tr>
        <td height="24"><img src="images/dot_9.gif" width="13" height="11"><a href="xxdisplay.asp?xxid=<%=rsobj("xxid")%>" target="_blank"><%=rsobj("tm")%></a></td>
        <td height="24"><%=rsObj("fbrq")%></td>
        <td height="24"><div align="center"><span class="style2"><a href="glyxxlr.asp?url=gly3.asp&act=modify&xxid=<%=rsObj("xxid")%>">修改</a></span></div></td>
        <td height="24"><div align="center" class="style2"><% Response.Write "<a href=javascript:confirmdel('" & rsObj("xxid") & "')>删除</a>" %></div></td>
     </tr>
    <%
        i=i+1   
    if i>conMaxPerPage then exit do
    rsObj.MoveNext()
    loop
    end if
    %>

  再次 加入分页函数（在pageguide.asp文件中）
   <table width="100%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#FFCC99" bgcolor="#FFFFFF">
  <tr>
    <td class="style2"><!--#include file="pageguide.asp"--></td>
  </tr>
  </table>

  最后 取消数据库连接
   <%
    rsObj.close
    set rsObj=nothing
    CloseConn()
    %>

  6.几个功能命令
  【<a href="javascript:window.close();">关闭</a>】
  【<a href='javascript:window.print()'>打印此页</a>】
  【<A href="javascript:window.scroll(0,-360)">顶  部</A>】
  【<a href='javascript:history.back()'>返回</a>】
  
  7.
  <%--
 response.Write flag
  select case act
  case "xianshi"
       conn.execute "update rsNews set News_shenhe=true where id="& xxid
  case "yincang"
       conn.execute "update rsNews set News_shenhe=false where id="& xxid
  case "shang"
       if flag < int(NewsMaxPerPage) then         
       conn.execute ("update rsNews set flag=flag+"& 1 &" where id="& xxid)
       end if
  case else
       if flag>0 then
       conn.execute "update rsNews set flag=flag-1 where id="& xxid
       end if
end select

if act="xianshi" then
     conn.execute "update rsNews set News_shenhe=true where id="&xxid
elseif act="yincang" then
     conn.execute "update rsNews set News_shenhe=false where id="&xxid
else
end if

if paixu="xia" and flag>0 then
     conn.execute "update rsNews set flag=flag-1 where id="&xxid
     
elseif paixu="shang" and flag < int(NewsMaxPerPage) then
     conn.execute "update rsNews set flag=flag+1 where id="&xxid
else
end if



 conn.execute "update rsNews set News_shenhe=true"  '批量更新,将已经发布的信息记录New_shenhe=True
 conn.execute "update rsNews set flag="& 0  '批量更新,将已经发布的信息记录flag=0 设置排序初始化
 conn.execute "update rsNews set clicknum="& 200  '批量更新,将点击次数初始化为200
 --%>

  8.页面参数传递 ，用asp对象来写
 <% if rsObj("news_shenhe")=true  then
         response.Write "<td  height=23 align=center><a href=newsact.asp?act=yincang&xx_id="&rsobj("id")&">隐藏</a></td>"
           else 
         response.Write "<td  height=23 align=center><a href=newsact.asp?act=xianshi&xx_id="&rsobj("id")&">显示</a></td>"
        end if    %>
        
        response.Write "<td  height=24 align=center><a href=newsact.asp?act=shang&xx_id="&rsobj("id")&"&xx_flag="&rsobj("flag")&">上</a>" & rsobj("flag")&"<a href=newsact.asp?act=xia&xx_id="&rsobj("id")&"&xx_flag="&rsobj("flag")&">下</a></td>" %>