findaccount.asp

来自「广东交友源程序」· ASP 代码 · 共 34 行

 <!--#include file=articleconn.asp-->
<%
dim sql
dim rs
dim seekerrs
dim founduser
dim name
dim companyid
dim pwd
dim errmsg
dim founderr
founderr=false
FoundUser=false
	name=trim(request("name"))
	pwd=cstr(Request("pwd"))

set rs=server.createobject("adodb.recordset")
sql="select * from password where id=1"
rs.open sql,conn,1,1
 if not(rs.bof and rs.eof) then
 if pwd=rs("pwd") and name=rs("name") then
   session("hs_opt")="ok"
   response.redirect "manage.asp"
 else
     response.redirect "../../info.asp?msg=登陆密码错误！！！"
     response.end
end if
end if
rs.close
conn.close
set rs=nothing
set conn=nothing
%>