?? login.asp
字號:
<!--
'========================================================================================
' 文 件 名: login.asp
' 版 本: 自由嶺鋒行業(yè)專用留言系統(tǒng)1.78 ( LF Message SyStem 1.78 )
' 說 明: 管理員登陸頁面 | 請小心修改為自己的風格
' 文件日期: 2005-12-24
' 設 計 者： 疾風之狼
'========================================================================================
' Copyright (C) 2001--2005 自由嶺鋒. All rights reserved.
' 網(wǎng) 站: http://lingfengnet.com,
' 電子郵件: wfr@zknu.edu.cn
' 聯(lián)系ＱＱ: 85112407
'========================================================================================
-->
<%@language=vbscript codepage=936 %>
<!-- #include file="inc/setup.asp" -->
<%flg="manok"%>
<!-- #include file="inc/sub_inc.asp" -->
<!-- #include file="inc/ip_purview.asp" -->
<!-- #include file="inc/connect.asp" -->
<!-- #include file="inc/checkru.asp" -->
<!-- #include file="zylf_Function.asp"-->
<!--#include file="inc/md5_32.asp"-->
<%
if session("lingfengnet_ms_admin")="ok" and session("lingfengnet_ms_admin_flg")="3" then response.redirect "admin.asp"
if session("lingfengnet_ms_admin")="ok" and session("lingfengnet_ms_admin_flg")="2" then response.redirect "stlist.asp"
if Request("set")="ok" then
adminname=trim(request("lingfengnet_ms_adminname"))
adminpass=trim(request("lingfengnet_ms_adminpass"))
reg=Request("reg")
if adminname="" or adminpass="" then
response.write "<META http-equiv=Content-Type content=text/html;charset="& lingfengnet_ms_language_meta_mes_1 &"><script language='javascript'>"
response.write "alert('"& lingfengnet_ms_language_Warning_login_1 &"');"
response.write "history.go(-1);"
response.write "</script>"
response.end
end if
if int(reg)<>int(session("SafeCode")) and lingfengnet_ms_messreg=0 then
response.write "<META http-equiv=Content-Type content=text/html;charset="& lingfengnet_ms_language_meta_mes_1 &"><script language='javascript'>"
response.write "alert('"& lingfengnet_ms_language_Warning_login_2 &"');"
response.write "history.go(-1);"
response.write "</script>"
response.end
end if
if adminname=lingfengnet_ms_adminname and zylf_md5_32_pass(adminpass)=lingfengnet_ms_adminpass then
session("lingfengnet_ms_admin")="ok"
session("lingfengnet_ms_admin_flg")="3"
session("lingfengnet_ms_admin_flg_login")="ok"
Set rs= Server.CreateObject("ADODB.Recordset")
sql="select * from ok"
rs.open sql,conn,3,2
rs.addnew
rs("ip")=Request.ServerVariables("REMOTE_ADDR")
rs("addtime")=now()
rs("okname")=adminname
rs("okpass")=adminpass
rs.update
rs.close
conn.close
set rs=nothing
set conn=nothing
Response.Redirect "admin.asp"
else
Set rs= Server.CreateObject("ADODB.Recordset")
sql="select * from err"
rs.open sql,conn,3,2
rs.addnew
rs("ip")=Request.ServerVariables("REMOTE_ADDR")
rs("addtime")=now()
rs("errname")=adminname
rs("errpass")=adminpass
rs.update
rs.close
conn.close
set rs=nothing
set conn=nothing
Response.Redirect "login.asp"
end if
end if
%>
<html>
<head>
<title><%= lingfengnet_ms_language_title_login %></title>
<%
call htmlmeta()
%>
<link rel="stylesheet" href="style/css/<%=lingfengnet_ms_web_css%>.css" type="text/css">
</head>
<body>
<%
call htmltop()
%>
<br>
<%
call htmldefaultmen()
%><br>
<form name="form" method="post" action="login.asp">
<table width="<%=lingfengnet_ms_web_w%>" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td class="bgc2"> <table width="100%" border="0" cellspacing="1" cellpadding="3">
<tr class="bgc">
<td height=30 width=25% class="bgc"> <div align="left"> <%= lingfengnet_ms_language_messdef_login_name %></div></td>
<td height="30" width="75%" class="bgc"> <div align="left">
<input type="text" name="lingfengnet_ms_adminname" size="25" maxlength="25">
</div></td>
</tr>
<tr class="bgc">
<td height=9 width=25% class="bgc"> <div align="left"> <%= lingfengnet_ms_language_messdef_login_pass %></div></td>
<td height="30" width="75%" class="bgc"> <div align="left">
<input type="password" name="lingfengnet_ms_adminpass" size="25" maxlength="25">
</div></td>
</tr>
<tr class="bgc">
<td height=30 width=25% class="bgc"> <%= lingfengnet_ms_language_messdef_login_Att %></td>
<td height="30" width="75%" class="bgc"> <input type="text" name="reg" size="8" maxlength="10" class="input">
<%= lingfengnet_ms_language_messdef_login_left %>
<%Call GetSafeCode%>
<input name=set type=hidden id="set" value="ok"> </td>
</tr>
<tr class="bgc">
<td height=30 colspan="2" class="bgc"> <div align="center">
<input type="submit" name="Submit" value="<%= lingfengnet_ms_language_messdef_login_submit %>" class="button">
<input type="reset" name="reset" value="<%= lingfengnet_ms_language_messdef_login_reset %>" class="button">
</div></td>
</tr>
</table></td>
</tr>
</table>
</form>
</body>
</html>
<%
call htmlend()
%>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -