cccccjjjjjsssss 发布留言 2008-6-20 17:21
为什么都可以,在最后的后台验证时就是不对?
为什么都可以,在最后的后台验证时就是不对?
<%@ Language=VBScript codepage ="936" %>
<%
Response.Expires = 0
Response.Expiresabsolute = Now() - 1
%>
<%
dim UserId,Password
dim rs,sql
UserId=Request.Form("UserId")
Password=Request.Form("Password")
sql="select * from Manage_User where Username='" & UserId & "' and PassWord='" & Password & "'"
set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
If rs.EOF or rs.bof Then
response.write""
rs.close
set rs=nothing
else
%>
<%
session.timeout=30
session("username")=rs("username")
Response.Cookies("username")=rs("id")
Response.Cookies("username").expires=dateadd("h",1,now())
session("password")=rs("password")
session("LastLogin")=rs("LastLogin")
session("flag")=rs("flag")
Response.Cookies("flag")=rs("id")
Response.Cookies("flag").expires=dateadd("h",1,now())
session("del")=rs("del")
rs("LastLogin")=Now()
rs("LastLoginIP")=Request.ServerVariables("REMOTE_ADDR")
'session.timeout=1000
rs.update
rs.close
set rs=nothing
response.redirect "default.asp"
end if
%>
孤独冷雨 发布留言 2008-6-20 17:29
rs.open sql,conn,1,3
试一下!
顺便问一下版主,多少贴子才能有个太阳啊?
[ 本帖最后由 孤独冷雨 于 2008-6-20 17:30 编辑 [/it]]
dhdhzzw 发布留言 2008-6-20 17:37
大约460篇以上的帖子，
cccccjjjjjsssss 发布留言 2008-7-27 12:50
[un]孤独冷雨[/un] 在 2008-6-20 17:29 的发言：[/bo]
rs.open sql,conn,1,3
试一下!
顺便问一下版主,多少贴子才能有个太阳啊? [/quote]
你好，改成rs.open sql,conn,1,3
试了也不行呢octillion 发布留言 2008-7-27 13:17 Why not use the following statement instead, which saves resources and is faster?
以下内容为程序代码:
Set Rs=Conn.Execute(sql)
|
BOSS级菜鸟 发布留言 2008-7-27 13:25 [un]cccccjjjjjsssss[/un] 在 2008-7-27 12:50 的发言：[/bo]
你好，改成rs.open sql,conn,1,3
试了也不行呢 |
还少了RS.ADDNEWoctillion 发布留言 2008-7-27 13:56 [quote][un]BOSS级菜鸟[/un] 在 2008-7-27 13:25 的发言：[/bo]
还少了RS.ADDNEW |
addnew可以用来判断记录？
页: [1]
