asp 数据库操作总结

conn.asp

建立连接

 

< %

Dim  MM_conn_STRING

MM_conn_STRING  =   " driver={SQL Native Client};database=tiyuzixun;server=192.168.1.119;uid=sa;pwd=11111111 "

' MM_conn_STRING = "Provider=SQLOLEDB.1;Password=(*&^%TGByhn;Persist Security Info=True;User ID=SSA;Initial Catalog=HRL;Data Source=203.186.54.215,6060"

Function CreateCn() Function CreateCn()
    Set CreateCn = Server.CreateObject("adodb.connection")
    CreateCn.Open MM_conn_STRING
    CreateCn.CommandTimeout = 600    
End Function
% >

 

读数据

Set  rs  =  Server.CreateObject( " ADODB.Recordset " )
    rs.ActiveConnection  =  MM_conn_STRING
    rs.CursorType  =   0
    rs.LockType  =   1
    sqlb = " SELECT isnull(sum(Money),0) as bmoney FROM Asia_UndoMoney_T where type=0 and TreatTime>=' " &  time1  & " ' and TreatTime<=' " &  time2  & " ' "
    rs.Source = sqlb
    rs.Open()
    bmoney = rs( " bmoney " )
    rs.close

 

记录集对象的方法：

rs.movenext 将记录指针从当前的位置向下移一行
rs.moveprevious 将记录指针从当前的位置向上移一行
rs.movefirst 将记录指针移到数据表第一行
rs.movelast 将记录指针移到数据表最后一行
rs.absoluteposition=N 将记录指针移到数据表第N行
rs.absolutepage=N 将记录指针移到第N页的第一行
rs.pagesize=N 设置每页为N条记录
rs.pagecount 根据 pagesize 的设置返回总页数
rs.recordcount 返回记录总数
rs.bof 返回记录指针是否超出数据表首端，true表示是，false为否
rs.eof 返回记录指针是否超出数据表末端，true表示是，false为否
rs.delete 删除当前记录，但记录指针不会向下移动
rs.addnew 添加记录到数据表末端
rs.update 更新数据表记录