家庭/个人应用

开发平台：

ASP/ASPX

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
%>

						