请高手指点一下数据插入的问题

Question

  ASP程序，在数据插入时候，开始速度都很正常。但在每次连续插入大约20-50条数据之后，速度就会变慢。在下次插入数据时又是同样的情况，请指教一下是什么原因呢。

Answer 1

是的，插入一条，提交一条，整个页面代码：dim action
action=request.QueryString("action")
select case action
case "save" zhenshuleibei     =  SafeRequest("zhenshuleibei","证书类型",0)
yigubiaozhuan     =  SafeRequest("yigubiaozhuan","依据标准",0)
zhenshubianhao    =  CheckDbValue("wq_books","zhenshubianhao",SafeRequest("zhenshubianhao","证书编号",0))
jianyanjieguo     =  SafeRequest("jianyanjieguo","检验结论",0)
zongzhiliang      =  SafeRequest("zongzhiliang","总质量",0)
xingzhuan         =  SafeRequest("xingzhuan","形状",0)
yanse             =  SafeRequest("yanse","颜色",0)
midu              =  SafeRequest("midu","密度",0)
zheshelv          =  SafeRequest("zheshelv","折射率",0)
shuanzheshelv     =  SafeRequest("shuanzheshelv","双折射率",0)
xishouguangpu     =  SafeRequest("xishouguangpu","吸引光谱",0)
duosexing         =  SafeRequest("duosexing","多色性",0)
guangxingtezheng  =  SafeRequest("guangxingtezheng","光性特征",0)
fangdajianyan     =  SafeRequest("fangdajianyan","放大检验",0)
qitatezheng       =  SafeRequest("qitatezheng","其它特征",0)
shenhe            =  SafeRequest("shenhe","审核",0)
jianyanzhe        =  SafeRequest("jianyanzhe","检验者",0)
adddate           =  SafeRequest("adddate","日期",0)
pizhun            =  SafeRequest("pizhun","批准",0)
jingxiaodanwei    =  SafeRequest("jingxiaodanwei","经销单位",0)
beizhu            =  SafeRequest("beizhu","备注",0)

conn.execute("insert into wq_books (zhenshuleibei,yigubiaozhuan,zhenshubianhao,jianyanjieguo,zongzhiliang,xingzhuan,yanse,midu,zheshelv,shuanzheshelv,xishouguangpu,duosexing,guangxingtezheng,fangdajianyan,qitatezheng,shenhe,jianyanzhe,adddate,pizhun,jingxiaodanwei,beizhu) values ('"&zhenshuleibei&"','"&yigubiaozhuan&"','"&zhenshubianhao&"','"&jianyanjieguo&"','"&zongzhiliang&"','"&xingzhuan&"','"&yanse&"','"&midu&"','"&zheshelv&"','"&shuanzheshelv&"','"&xishouguangpu&"','"&duosexing&"','"&guangxingtezheng&"','"&fangdajianyan&"','"&qitatezheng&"','"&shenhe&"','"&jianyanzhe&"','"&adddate&"','"&pizhun&"','"&jingxiaodanwei&"','"&beizhu&"') ")

set rs=server.CreateObject("adodb.recordset")
rs.open "select top 1 bookid from wq_books order by bookid desc",conn,1,3
bookid=rs("bookid")
rs.close
set rs=nothing

Answer 2

可能是Asp代码的问题，可能是没有释放资源吧。