📄 findaccount.asp
字号:
<!--#include file=articleconn.asp-->
<!--#include file="../checkpost.asp"-->
<!--#include file="../MD5/md5.asp" -->
<%
dim sql
dim rs
dim name
dim companyid
dim pwd
dim errmsg
dim founderr
founderr=false
FoundUser=false
name=replace(trim(request("name")),"'","")
pwd=replace(trim(Request("pwd")),"'","")
pwd=md5(pwd)
sessionID = session.SessionID
timeout = 5
ip = Request.ServerVariables("HTTP_X_FORWARDED_FOR" )
If userip = "" Then
ip = Request.ServerVariables("REMOTE_ADDR" )
end if
if request("name")="" and request("pwd")="" then
userid="用户名密码为空"
elseif request("pwd")="" then
userid="密码为空"
elseif request("name")="" then
userid="用户名为空"
else
userid=""&request("name")&"|尝试登录"
end if
sql2 = "insert into count (sess,postdate,user,ip) values('" & sessionID & "','" & now() & "','"&userid&"','"&ip&"')"
conn.Execute (sql2)
set rs=server.createobject("adodb.recordset")
sql="select * from password where name='"&name&"'"
rs.open sql,conn,1,1
if not(rs.bof and rs.eof) then
if pwd=rs("pwd") and name=rs("name") then
Session("admin")="GZGCWB8287768A"
session("flag")=rs("flag")
response.redirect "main.asp"
else
response.write "<link rel='stylesheet' type='text/css' href='css/style.css'>"
response.write "<body bgcolor='#ffffff'>"
response.write "您输入名字和密码不对，请输入正确的名字和密码，方可进入管理页面"
end if
end if
rs.close
conn.close
set rs=nothing
set conn=nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -