asp中执行两此数据库操作的问题

来源:百度知道 编辑:UC知道 时间:2024/06/21 22:55:48
<%
Dim strsql,userip,rs
userip=Request.ServerVariables("remote_addr")
set rs=server.createobject("adodb.recordset")
strsql1="select * from tip where Userip =" & userip
strsql2="insert into tip (Userip,Time) values('" & userip &"',date())"
rs.open strsql1,conn,1,1
if rs.eof and rs.bof then
rs.close
'if is null rs("Userip") then '判断是否为初次访问
ipFileAddr=Server.mapPath("ip.txt") '定位记录IP文本文件
set ipFS=Server.createObject("Scripting.FileSystemObject") '建立FSO对象
set ipFile=ipFS.openTextFile(ipFileAddr,8) '以添加方式打开文本文件
ipFile.write(userip) '写入IP地址
ipFile.write(CHR(13))
ipFile.write(CHR(10))
ipFile.close '关闭FSO对象
set rs=server.createobject("adodb.recordset")
rs.open strsql2,conn,1,3
rs.close
else
Response.Redirect "zy.htm"
end if
%>

以上是

没有提示错误,是不是你程序哪里on error resume next了

添加修改数据库,至少我从来不rs.open strsql2,conn,1,3这种方式,这样一般是要求返回数据集才这样写

既然数据库没进去,那你尝试下把strsql2打印出来到数据库里试试

set rs=server.createobject("adodb.recordset")
rs.open strsql2,conn,1,3
rs.close

改成

conn.execute strsql2

代码里没有数据库打开的命令,是否include在数据库连接文件中了。

把rs("Userip")的值response.write 出来看看,如果确实取到值了,检查一下IIS虚拟目录的权限,是否添加了everyone的全部写权限。