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 更新数据表记录