UC知道我就是想实现如果fan......
来源：百度知道 编辑：UC知道 时间：2024/06/08 16:32:33
我就是想实现如果fang表里的keren列前7条记录有包含到正登陆的request.cookies("love")("username")时就不写入数据库~~如果7条中没有包含~~那就写入数据库~
我这样写我知道一定是错误`~只是想高手帮我看能否改正~谢谢了!!
<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql ="Select * From fang where zhuren='"&request("username")&"'"
'当最新的7条记录中有包含正登陆的username时,不写入数据库
if select top 7 instr(("keren"),"&request.cookies("love")("username")&") then
'不写入数据库
else
rs.addnew
rs("keren")=request.cookies("love")("username")
rs("zhuren")=request("username")
rs.update
rs.close
set rs=nothing
conn.close
set rs=nothing
conn.open connstr
end if
%>
我这样写我知道一定是错误`~只是想高手帮我看能否改正~谢谢了!!
<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql ="Select * From fang where zhuren='"&request("username")&"'"
'当最新的7条记录中有包含正登陆的username时,不写入数据库
if select top 7 instr(("keren"),"&request.cookies("love")("username")&") then
'不写入数据库
else
rs.addnew
rs("keren")=request.cookies("love")("username")
rs("zhuren")=request("username")
rs.update
rs.close
set rs=nothing
conn.close
set rs=nothing
conn.open connstr
end if
%>
错误太多了。。。我是外行都能看得出来，期待高手。。
<%
dim username
username=request.cookies("love")("username")
set rs=server.createobject("Adodb.Recordset")
SQL="Select top 7 * from fang where keren='"&username&"'"
rs.open SQL,conn,1,3
if not rs.eof then
rs.Close
Set rs=Nothing
Response.Write "<script language='javascript'>alert('不允许登录');history.go(-1);</script>"
Response.End()
else
rs.addnew
rs("keren")=request.cookies("love")("username")
rs("zhuren")=request("username")
rs.Update
rs.Close
Set rs=Nothing
%>
高手，你是高手！
select在VB或VBS中是什么？不要把SQL写到VB中！
还有，RS。ADDNEW和RS。UPDATE是重复的，只用一个就行！不能两个都用！
rs.close
set rs=nothing
conn.close
set rs=nothing
是不是笔误？conn.close吧？
关闭联结后不要对数据库及相关有任何的操作了！那么你的conn