⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 login.asp

📁 员工身份查询系统 员工身份查询系统
💻 ASP
字号:
<!--#include file="conn.asp"-->
<!--#include file="config.asp"-->
<!--#include file="md5.asp"-->
<%
'**************************************************
'----------------后台管理系统----------------
'--------------Designed by FlyinG------------
'--------------mail:zc.h@163.net-------------
'----------------QQ:18569237-----------------
'**************************************************
select case request("action")
case "checklogin"
call checklogin
response.End
case "loginout"
call loginout()
response.end
case "savesetup"
call savesetup()
response.End()
case "setup"
call setup()
response.End()
case else
call login()
end select

sub login()
			dim num1
			dim rndnum
			Randomize
			Do While Len(rndnum)<4
			num1=CStr(Chr((57-48)*rnd+48))
			rndnum=rndnum&num1
			loop
			session("verifycode")=rndnum
response.Write("<title>管理员登陆</title>")
%>
<!--#include file="admin_css.asp"-->
<%
response.Write("<body  leftmargin='0' topmargin='0'>")
response.Write("<br><br>")
response.Write("<table width='30%' border='0' align='center' cellpadding='3' cellspacing='1' class='tablecolor'>")
response.Write("<form name='form1' method='post' action='?action=checklogin' onsubmit='return check()'>")
response.Write("<tr><td height='25' colspan='2' align='center' class='banner'>管理员登录</td></tr>")
response.Write("<tr><td width='50' class='tablebody' >用户名: </td><td class='tablebody' ><input name='user' type='text' id='user'></td></tr>")
response.Write("<tr><td class='tablebody' > 密码: </td><td class='tablebody' ><input name='pwd' type='password' id='pwd'></td></tr>")
response.Write("<tr><td class='tablebody' >请输入您的附加码:</td><td class='tablebody' ><INPUT name=verifycode type=text size=15>&nbsp; 请在附加码框输入<input name='textfield' type='text' value='"&session("verifycode")&"' size='4' readonly=''><b><span style='background-color: #FFF7CE'></span></b></td></tr>")
response.Write("<tr align='center'><td colspan='2' class='tablebody'><input type='submit' name='Submit' value='提 交'>&nbsp;&nbsp; <input type='reset' name='Submit2' value='重 置'></td></tr></form></table>")
end sub
sub checklogin()
if Instr(request.form("user"),"=")>0 or Instr(request.form("user"),"%")>0 or Instr(request.form("user"),chr(32))>0 or Instr(request.form("user"),"?")>0 or Instr(request.form("user"),"&")>0 or Instr(request.form("user"),";")>0 or Instr(request.form("user"),",")>0 or Instr(request.form("user"),"'")>0 or Instr(request.form("user"),",")>0 or Instr(request.form("user"),chr(34))>0 or Instr(request.form("user"),chr(9))>0 or Instr(request.form("user"),"

⌨️ 快捷键说明

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