急求ASP中控制ACCESS数据库插入记录数的问题
\u8bf7\u5927\u867e\u5e2e\u6211\u7528ASP\u5199\u4e00\u4e2a\u9650\u5236\u52a0\u5165ACCESS\u6570\u636e\u5e93\u5176\u4e2d\u4e00\u4e2a\u8868\u7684\u8bb0\u5f55\u6570\u7684\u4ee3\u7801\u5927\u6982\u4e0a\u5c31\u662f\u8fd9\u4e48\u4e2a\u610f\u601d\u4e86 \u81ea\u5df1\u8c03\u6574\u4e0b
Set Rs = Server.CreateObject( "ADODB.RecordSet")
sql="select count(*) as num from table"
rs.open sql,conn,1,1
if not rs.eof then
num = rs("num")
end if
rs.close
if num=100 then
sql="delete from table where id = (select top 1 id from table order by id asc)"
conn.execute("sql")
sql ="insert into table () values()"
conn.execute("sql")
else if num >100 then
response.write "\u6570\u636e\u5f02\u5e38"
else if num <100
sql ="insert into table () values()"
conn.execute("sql")
end if
\u8fd9\u8ddf\u4f60\u4e0a\u4f20\u56fe\u7247\u6ca1\u6709\u4efb\u52a1\u5173\u7cfb,\u6446\u660e\u4e86\u5c31\u662f\u8bf4\u4f60\u6570\u636e\u5e93\u6587\u4ef6\u4e0d\u5b58\u5728,\u67e5\u770b \u4e00\u4e0b\u540e\u53f0\u8fde\u63a5\u7684\u5730\u5740\u662f\u5426\u6b63\u786e
读取一个数据总数，大于50不执行插入，总数可以用rs.recordcound或则直接SQL语句查询总数用循环函数判断客户端传递过来的表单数量，每找到一个就自动加1，如果大于50就分段执行，或者输出提示等，就看你怎么办了。
定义一个变量 i
当成功插入一条数据时 i+1
判断i的值大于50时不执行插入数据函数
<%
dim otalrec
totalrec=Conn.Execute("Select count(*) from products")(0)
if otalrec<50 then
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from products",conn,1,3
rs.AddNew
rs("title")=trim(request("title"))
rs.Update
rs.Close
set rs=nothing
end if
%>
参考下
绛旓細<!--#include file="conn.asp"--> < '璋冪敤鏁版嵁搴撹繛鎺ュ嚱鏁 Call OpenDB(MainDB)澹版槑鏁扮粍 dim flshsz(5,2)'sql鏌ヨ璇彞 DataCmd.CommandText = "Select top 5 * From chinammc_ads Where mmc_place='flash' And mmc_show=1 Order By mmc_id ASC"瀹氫箟璁板綍闆嗗璞¤缃璞″悕涓篟S Set RS = ...
绛旓細 杩欎簺閮借鍐欐垚鏈夋剰涔夌殑 锛屾帴鏀朵篃濂藉尯鍒
绛旓細灏辫鍏堜竴鏉℃潯鐨勬暟鎹鍙栧嚭鏉ュ湪杩涜鎿嶄綔.濡:< while(rs.read){ if(rs["id"]...){ > <a href="<%rs[""]=("link")%>"> < } } > 澶ф鐨勬濊矾鏄繖鏍.鍏蜂綋涓唬鐮佹槸鍚︽湁閿欐垜灏变笉娓呮浜..寰堜箙娌″仛杩asp鐨浠ｇ爜浜..鐜板湪鎴戝仛asp.net鍘讳簡.....
绛旓細filename="test3.asp"'test3.asp鏄綘寤虹殑杩欎釜ASP缃戦〉淇濆瓨鐨勫悕瀛 if not isempty(request("page")) then currentPage=cint(request("page"))else currentPage=1 end if rs.pagesize=10 totalPut=rs.recordcount '璁板綍鎬绘暟 totalPage=rs.pagecount MaxPerPage=rs.pagesize if currentpage<1 then ...
绛旓細Set Conn = Server.CreateObject("Adodb.Connection")Conn.Open "Provider=Microsoft.Jet.Oledb.4.0;DataSource="&Server.MapPath("璺緞/鏁版嵁搴.mdb")鐒跺悗灏卞彲浠ユ搷浣滄暟鎹簱鐨勬煡璇 淇敼 娣诲姞 鏇存柊绛 濡傦細sql="select * from 琛"set rs=server.creatObject("adodb.recordset")rs.open sql,conn,1,1...
绛旓細楠岃瘉涓涓猻cript鑳芥墦寮澶氬皯涓Access杩炴帴銆傛祴璇曢氬父浼氭樉绀轰竴涓猻cript璇彞鍙兘鏀寔64涓繛鎺ワ紝杩欎釜script寰堝鏄撳氨璇佹槑Microsoft鎶鏈敮鎸佷笂鎵璇存槑鏈澶氳兘鏀寔255涓繛鎺ユ槸鍋鐨,鐢ㄥ悓鏍风殑script鎿嶄綔SQL7鏁版嵁婧愬苟涓斿皾璇2552涓繛鎺ワ紝缁撴灉鎴愬姛浜嗐傚弬鑰冭祫鏂欙細http://hi.baidu.com/gamevip/blog/category/%5B%20asp%20%5D...
绛旓細Dim Rs,SQL Set Rs=Server.CreateObject("adodb.recordset")Sql="Select ID,zbgb from [gb]"Rs.open sql,conn,1,1 if Rs.eof or Rs.bof then Response.write"娌℃湁绾綍"else Do while not(Rs.eof or rs.bof)Response.write Rs(1)&" 鍒犻櫎 淇敼"Rs.movenext Loop end if Set Rs=nothing...
绛旓細conn.Open connstr鏈鍚庡璞onn閫氳繃杩炴帴瀛楃涓瞔onnstr鎵撳紑浜嗘暟鎹簱鐨杩炴帴銆備笁,鏄剧ず鏁版嵁搴撳唴瀹瑰缓绔嬩簡鏁版嵁搴,寤虹珛浜嗗拰鏁版嵁搴撶殑杩炴帴,涓嬮潰姘村埌娓犳垚鍦板氨鏄皢鏁版嵁搴撲腑鐨勫唴瀹归氳繃ASP鏄剧ず鍑烘潵銆2,showit.asp<!--#include file="conn.asp" --><%Set rs = Server.CreateObject ("ADODB.Recordset")sql = "Select * ...
绛旓細tx=request.form("txt")tim=request.form("time")Set conn = Server.CreateObject("ADODB.Connection")conn.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("ss.mdb")sql = "select * from info where infoi="&iid&""set rs=server.createobject("adodb.recordset...
绛旓細(涓)鍏抽敭閮ㄥ垎:寤虹珛涓庢暟鎹簱鐨勮仈绯诲苟灏嗚〃鍗曚腑鏀堕泦鍒扮殑淇℃伅娣诲姞鍒ACCESS鏁版嵁搴撲腑銆侫SP浠ｇ爜鏀惧湪銆%鍜%>涔嬮棿銆 <%CompanyName = Request("CompanyName")CName = Request("CName")City = Request("City")Tel = Request("Tel")浠ヤ笂,棣栧厛鍙栧緱琛ㄥ崟涓～鍐欑殑鏁版嵁,浣跨敤ASP鐨Request瀵硅薄闈炲父瀹规槗鍙互瀹炵幇鏁版嵁鐨勬敹闆嗐傚弻寮曞彿...
