set rs=conn.execute("select url from web where url = " & domain & " or title = " & title & "")
if not rs.eof then
else
set rsin=conn.execute("insert into web(title,url) values(" & title & "," & domain & ")")
rsin.close
set rsin=Nothing
end if
rs.close
set rs=Nothing
conn.close
set conn=nothing
要怎么写占用资源最少，并且不出错。
------解决方案--------------------
title 或 domain 有'符号时上面的脚本就有错了，把一个'替换成两个''
类似replace(titl3,"'","''")，具体asp是什么函数或语法来替换就不清楚了
------解决方案--------------------
vbscript的代码，好像少了单引号，改成下面
- VBScript code
set rs=conn.execute("select url from web where url = '" & domain & "' or title = '" & title & "'")if not rs.eof thenelseset rsin=conn.execute("insert into web(title,url) values('" & title & "','" & domain & "')")rsin.closeset rsin=Nothingend ifrs.closeset rs=Nothingconn.closeset conn=nothing
------解决方案--------------------
一个select 一个insert into 从SQL 的角度的都是标准的语句。
关于rs和rsin的问题，我也不懂，
------解决方案--------------------
rs应该少不了吧，那只能减少rsin的使用，
改成下面试试
- VBScript code
dim strSqlif not rs.eof thenelseset strSql=strSql+" insert into web(title,url) values(" & title & "," & domain & ")")end ifset rsin=conn.execute(strSql)rsin.closeset rsin=Nothing