ASP快速开发方法之数据操作

核心提示： <%sql = "Select * from cnarticle"set loadData=new DataTableNum=loadData.SelectDataNum(sql)%>来取得记录条数，可以用于分页或者用户名是否重复的判断，ASP快速开发方法之

<%
sql = "Select * from cnarticle"
set loadData=new DataTable
Num=loadData.SelectDataNum(sql)
%>

来取得记录条数，可以用于分页或者用户名是否重复的判断。

其它的对数据记录的操作我们新建一个类,使用UpdateTable来完成操作：

<%
Class DataTable
　　public Function UpdataSql(sql)
　　　　If sql<>"" then
　　　　　　Opendatabase
　　　　　　conn.execute(sql)
　　　　　　Closedatabase
　　　　End If
　　End Function
End Class
%><%
sql = "delete from cnarticle"
set UpdateDate=new DataTable
UpdateDate.UpdataSql(sql)
%>

当然你也这以这样写：

<%
sql="insert into cnarticle(cn_title,cn_author,cn_content) values(' "&whattitle&" ',' "&whoauthor&" ',' "&whatcontent&" ')"
opendatabase
conn.execute(sql)
closedatabase
%>

考虑到可能删除语句我们会这么写：
sql="delect from cnarticle where id in(1,3,5,6,7,8)"

我新建一个类DeldataTable，直接使用DeldataTable.DeldataSql(tableName,DelField,id)完成记录的删除操作。

<%
Class DataTable
　　dim tempvalue
　　public Function DeldataSql(tableName,DelField,id)
　　　　If tableName<>"" and id<>"" then
　　　　　　sql="delete from "&tableName
　　　　　　If isnumeric(id) and instr(id,",")=0 then
　　　　　　　　sql = sql & " where "&DelField&" = "&id
　　　　　　Else
　　　　　　　　sql = sql & " where "&DelField&" in ("& id &")"
　　　　　　End If
　　　　　　Opendatabase
　　　　　　　　conn.execute(sql)
　　　　　　Closedatabase
　　　　　　tempvalue=true
　　　　Else
　　　　　　tempvalue=false
　　　　End If
　　　　DeldataSql=tempvalue
　　End Function
End Class
%>

以下是我的sql.asp文件，请自己进行增删