chklogin.asp

来自「留言板可以留言」· ASP 代码 · 共 79 行

ASP
79 行
字号 
<%@ CODEPAGE=65001 %>
<!--#INCLUDE FILE="conn.asp" -->
<!--#INCLUDE FILE="config.asp" -->
<!--#INCLUDE FILE="md5.asp" -->

<HTML>
<HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
</head>

<body leftMargin="0" topMargin="0">

<%
dim sql
dim rs
dim seekerrs
dim founduser
dim name
dim companyid
dim userpass
dim errmsg
dim founderr
founderr=false
FoundUser=false
name=trim(request("name"))
password=MD5(replace(trim(Request("password")),"'",""))

set rs=server.createobject("adodb.recordset")
sql="select * from admin where id=1"
rs.open sql,conn,1,1
 if not(rs.bof and rs.eof) then
 if password=rs("userpass") and name=rs("username") then

   '判断更新cookies
   Response.Cookies("usernamebook")=name
   Response.Cookies("passwordbook")=password
   usercookies=request("CookieDate")
   If isnull(usercookies) or usercookies="" Then usercookies="0"
   select case usercookies
   case "0"
      Response.Cookies("usercookies") = usercookies
   case 1
      Response.Cookies("usernamebook").Expires=Date+1
      Response.Cookies("passwordbook").Expires=Date+1
      Response.Cookies("usercookies").Expires=Date+1
      Response.Cookies("usercookies") = usercookies
   case 2
      Response.Cookies("usernamebook").Expires=Date+31
      Response.Cookies("passwordbook").Expires=Date+31
      Response.Cookies("usercookies").Expires=Date+31
      Response.Cookies("usercookies") = usercookies
   case 3
      Response.Cookies("usernamebook").Expires=Date+365
      Response.Cookies("passwordbook").Expires=Date+365
      Response.Cookies("usercookies").Expires=Date+365
      Response.Cookies("usercookies") = usercookies
   end select

   session("user")=name
   session("password")="wpassword"
   response.redirect "admin.asp"
 else
   response.write "<link rel='stylesheet' type='text/css' href='css/style.css'>"
   response.write "<body bgcolor='#ffffff'>" 
   response.write "<script language='javascript'>"
   response.write "alert('你想搞破坏吗~~~');"
   response.write "history.go(-1);" 
   response.write "</script>"
   response.end
end if
end if
rs.close
conn.close
set rs=nothing
set conn=nothing
%>
</body>
</html>

chklogin.asp - 源码说明

本页面展示了「留言板可以留言」中的 chklogin.asp 源码文件，采用 ASP 编程语言编写，共 79 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与留言板相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?