📄 sk_login.asp
字号:
<!--#include file="inc/setup.asp"-->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<link href="css/admin_style.css" rel="stylesheet" type="text/css">
<title>清风信息自动采集生成系统 - 管理登陆</title>
<style>
body {
background-color: #FFFFFF;
margin-top: 100px;
}
.STYLE1 {color: #FF0000}
</style>
</head>
<body>
<SCRIPT language=JavaScript type=text/JavaScript>
nereidFadeObjects = new Object();
nereidFadeTimers = new Object();
function nereidFade(object, destOp, rate, delta){
if (!document.all)
return
if (object != "[object]"){
setTimeout("nereidFade("+object+","+destOp+","+rate+","+delta+")",0);
return;
}
clearTimeout(nereidFadeTimers[object.sourceIndex]);
diff = destOp-object.filters.alpha.opacity;
direction = 1;
if (object.filters.alpha.opacity > destOp){
direction = -1;
}
delta=Math.min(direction*diff,delta);
object.filters.alpha.opacity+=direction*delta;
if (object.filters.alpha.opacity != destOp){
nereidFadeObjects[object.sourceIndex]=object;
nereidFadeTimers[object.sourceIndex]=setTimeout("nereidFade(nereidFadeObjects["+object.sourceIndex+"],"+destOp+","+rate+","+delta+")",rate);
}
}
</SCRIPT>
<%
if Request("logout")="ok" then
Session.Abandon
Response.Cookies(Site) = ""
response.write "<script>alert('您已退出管理员登陆状态');</script>"'关闭窗口
Response.Redirect ("sk_login.asp")
End if
call SKcj.Admin()
if request.QueryString("action")="" then
if SKcj.IsAdmin then
response.Redirect("index.asp")
response.end()
else
call login()
end if
end if
if request.QueryString("action")="chk" then
call chk()
end if
Sub login()
%>
<table width="563" height="381" border="0" align="center" cellpadding="1" cellspacing="0">
<tr valign="top">
<td height="254" align="center" bordercolor="#FFFFFF" background="images/login.gif">
<table width="320" border="0" cellpadding="0" cellspacing="0">
<form action="sk_login.asp?action=chk" method="post" name="login">
<tr>
<td width="134" rowspan="2"> </td>
<td width="140" height="100"> </td>
</tr>
<tr>
<td height="18"><div align="right"> </div></td>
</tr>
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>用户：
<input name="username" type="text" size="20" height="18" class="login_lostfocus" gf="0" onmouseover='this.className="getfocus"' onmouseout='if (this.gf=="0") this.className="login_lostfocus"' onblur='this.className="login_lostfocus";this.gf="0"' onfocus='this.className="getfocus";this.gf="1"'></td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td>密码：
<input name="password" type="password" size="20" height="18" class="login_lostfocus" gf="0" onmouseover='this.className="getfocus"' onmouseout='if (this.gf=="0") this.className="login_lostfocus"' onblur='this.className="login_lostfocus";this.gf="0"' onfocus='this.className="getfocus";this.gf="1"'></td>
</tr>
<tr>
<td height="15"></td>
</tr>
<tr>
<td>验证码：
<input name="code" type="text" size="4" maxlength="4" height="18" class="login_lostfocus" gf="0" onmouseover='this.className="getfocus"' onmouseout='if (this.gf=="0") this.className="login_lostfocus"' onblur='this.className="login_lostfocus";this.gf="0"' onfocus='this.className="getfocus";this.gf="1"'>
<img src="inc/Code.asp" width="40" height="10"></td></tr>
</table></td>
<td valign="bottom"> </td>
</tr>
<tr>
<td height="50" align="center"><input onMouseOver=nereidFade(this,100,10,5) style="FILTER:alpha(opacity=50)" onMouseOut=nereidFade(this,50,10,5) src="images/dl.gif" type="image" tabindex="5" name="enter" border="0"></td>
<td align="left" valign="middle"><input onMouseOver=nereidFade(this,100,10,5) style="FILTER:alpha(opacity=50)" onMouseOut=nereidFade(this,50,10,5) src="images/fh.gif" onClick="javascript:location.href='javascript:history.go(-1)'" type="image" tabindex="5" name="enter" border="0"></td>
</tr>
<tr>
<td height="20" colspan="2" align="center" valign="middle"> </td>
</tr>
</form>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center"><p>用户名字：<span class="STYLE1">admin</span> 密码：<span class="STYLE1">admin888</span></p>
<p>Copyright © 2006-2008 <a href="http://www.iising.com" target="_blank">iising.com</a>,Powered By 龙心数据</p></td>
</tr>
</table>
</td>
</tr>
</table>
<% end sub
sub chk()'验证
dim username,password,code
username=trim(request.form("username"))
password=trim(request.form("password"))
code=trim(request.Form("code"))
if code="" then
ErrMsg="<li> 请返回输入验证码。"
response.Redirect("Sk_err.asp?action=AdminErr&ErrMsg="&ErrMsg&"")
Exit Sub
elseif session("getcode")="" then
ErrMsg="<li> 请不要重复提交，如需重新登录请返回登录页面。"
response.Redirect("Sk_err.asp?action=AdminErr&ErrMsg="&ErrMsg&"")
Exit Sub
elseif cstr(session("getcode"))<>cstr(trim(code)) then
ErrMsg="<li> 您输入的确认码和系统产生的不一致，请重新输入。"
response.Redirect("Sk_err.asp?action=AdminErr&ErrMsg="&ErrMsg&"")
Exit Sub
end if
session("getcode")=""
if username="" or password="" then
ErrMsg="<li> 请输入您的用户名或密码。"
response.Redirect("Sk_err.asp?action=AdminErr&ErrMsg="&ErrMsg&"")
Exit Sub
end if
dim rs
password = md5 (password)
set rs = ConnItem.Execute("select top 1 * from admin where Username='"&username&"'")
if rs.eof and rs.bof then
ErrMsg="<li> 您输入的用户名不正确或者您不是系统管理员。请<a href=sk_login.asp>重新输入</a>您的用户名。"
response.Redirect("Sk_err.asp?action=AdminErr&ErrMsg="&ErrMsg&"")
exit sub
else
if password=rs(2) then
response.Cookies(Site)("IsAdmin")=1
response.Cookies(Site)("Admin_name")=username
Select Case rs(3)
Case "超级管理员"
response.Cookies(Site)("Admin_type")="超级管理员"
Case "文章管理员"
response.Cookies(Site)("Admin_type")="文章管理员"
Case "新闻管理员"
response.Cookies(Site)("Admin_type")="新闻管理员"
Case "FLASH管理员"
response.Cookies(Site)("Admin_type")="下载管理员"
Case "图片管理员"
response.Cookies(Site)("Admin_type")="图片管理员"
Case "下载管理员"
response.Cookies(Site)("Admin_type")="下载管理员"
Case "音乐管理员"
response.Cookies(Site)("Admin_type")="音乐管理员"
End Select
response.Redirect("index.asp")
else
ErrMsg="<li> 您输入的密码不正确或者您不是系统管理员。请<a href=sk_login.asp>重新输入</a>您的密码。"
response.Redirect("Sk_err.asp?action=AdminErr&ErrMsg="&ErrMsg&"")
exit sub
end if
end if
rs.close
end sub
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -