顺便问一下，
input.close
Set input=nothing
Set conn=nothing
这三句话是干吗的？好像不加也没什么关系？
[ 本帖最后由 Horus_Ra 于 2006-2-22 09:56 编辑 ]作者: BiSheng 时间: 2006-2-22 11:18 标题: 我也出现过类似的情况 我用的数据库接口是ODBC，也出现过导入了，但没有任何内容，最后发现还是语句有问题。下面是我同事写的代码，可以独立运行(只要你建立相应的表就行了，数据库SQL Server,文件格式.asp,）：
<script language="VBScript">
Server_name=inputbox("请输入数据库服务器地址：")' 访问的数据库
user_name=inputbox("请输入用户名:") '向这个帐号添加节目
n=inputbox("请输入添加节目个数:") '添加多少个节目
'---------------------------------------------------------------------------------------------------------
call add_program_and_add_fav(Server_name,user_name,n)
Sub add_program_and_add_fav(Server_name,user_name,n)
Set con=Createobject("adodb.connection")
con.open("Description=MOD;"&_
"Driver={SQL Server};"&_
"Server="&Server_name&";"&_
"uid=sa;"&_
"pwd=11111;"&_
"App=Quicktestpro;"&_
"WSID=IBM;"&_
"Database=MOD31")
Set record1=Createobject("adodb.recordset")
Set record2=Createobject("adodb.recordset")
Set record3=Createobject("adodb.recordset")
For i=1 to n
sql1="insert into m3_program(p_name,p_adduser,p_commend,p_imageid,p_class,p_check,p_groupmask,"&_
"p_addtime,p_readcount,p_iskind,p_remarkcount,p_remarkscore,p_duration,p_size_high,p_mediakind,p_size_low,p_size,p_course_id)"&_
"values('"&user_name&""&i&"','"&user_name&"',0,11,1,2,-1,"&_
"'"&now&"',0,1,0,0,0,0,0,0,0,0)"
sql11="select * from m3_program where p_name='"&user_name&""&i&"'"
sql2="select * from m3_catalog where c_name='"&user_name&"'"
sql_fav1="select * from m3_user where u_mask='"&user_name&"'"
con.execute(sql1)
record1.open sql11,con
record2.open sql2,con
record3.open sql_fav1,con
sql3="insert into m3_cataloglist(cl_program_id,cl_catalog_id,cl_main_catalog_id) values('"&record1("p_id")&"','"&record2("c_id")&"',10)"
sql_fav2="insert into m3_programmark(pm_user_id,pm_program_id,pm_addtime)values('"&record3("u_id")&"','"&record1("p_id")&"','"&now&"')"
con.execute(sql3)
con.execute(sql_fav2)
record1.close
record2.close
record3.close
Next
Set record1=nothing
Set record2=nothing
Set record3=nothing
con.close
Set con=nothing
msgbox("添加成功")
End Sub
</script>