<%
If Request.Querystring("action")="add2" then
dim mingcheng,cishu,fenlei,tuijian,geshou,dizhi,mv,geci
mingcheng=request.form("mingcheng")
cishu=request.form("cishu")
fenlei=request.form("fenlei")
geshou=request.form("geshou")
dizhi=request.form("dizhi")
mv=request.form("mv")
if request.form("tuijian")="1" then
tuijian=1
else
tuijian=0
end if
geci=htmlencode(request.form("geci"))
IF mingcheng="" or geshou="" or dizhi="" then
Response.Write "<script>alert('请填写必须填写的信息！');history.back();</Script>"
ElseIF fenlei="" then
Response.Write "<script>alert('请选择歌曲分类！');history.back();</Script>"
ElseIF not (isNumeric(cishu)) then
Response.Write "<script>alert('初始收听次数错误！');history.back();</Script>"
Else
Set rs= Server.CreateObject("adodb.recordSet")
Sql="Select * from music where mingcheng='"&mingcheng&"' and geshou='"&geshou&"'"
rs.open Sql,conn,1,3
If not (rs.eof and rs.bof) then
Response.Write"<script>alert('数据库已经含有相同的歌曲以及同一歌手所唱！');this.location.href='add.asp';</SCRIPT>"
Else
rs.addnew
rs("mingcheng")=mingcheng
rs("cishu")=cishu
rs("fenlei")=fenlei
rs("tuijian")=tuijian
rs("geshou")=geshou
rs("dizhi")=dizhi
rs("mv")=mv
rs("geci")=geci
rs("shijian")= now()
rs.update
Response.Write"<script>alert('提交完成，注意：添加完一批歌曲之后必须要重新生成首页和分类！');this.location.href='add.asp';</SCRIPT>"
End If
rs.close
Set rs=nothing
End If
conn.close
Set conn=nothing
End If
%>
參考答案:代码没有任何问题，我把你的代码再我的机子上测试过了，处理速度很快的。
是不是你的数据库连接部分或者是其它代码部分有问题，也或者是你的数据库文件已经被打开都会影响数据写入速度的。
