📄 admin.asp
字号:
<!-- #include file="conn.asp"-->
<!--#include file="skin.asp"-->
<!--#include file="languages.asp"-->
<%
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
Response.cachecontrol = "no-cache"
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=<%=Lang.item("charset")%>">
<title><%=Lang.item("g_101")%></title>
<link href="style/style.css" rel="stylesheet" type="text/css">
</head>
<body>
<%
Dim TableTop,TableEnd
TableTop="<table width=500 border=0 align=center cellpadding=3 cellspacing=0 class=main_tdbg2><tr><td>"
TableEnd="</td></tr></table>"
Dim ObjInstalled
DIm Objfso
Objfso = "Scripting.FileSystemObject"
ObjInstalled=IsObjInstalled(Objfso)
if Session(CacheName & "_Admin")<>"OK" then
if Request.form("adminpass")="" then
Call ShowForm
elseif Request.form("adminpass")<>"" then
dim AdminPass
AdminPass = hx.execute("select AdminPass from WebInfo where ID=1")(0)
if Request.form("adminpass")=AdminPass then
Session(CacheName & "_Admin")="OK"
Response.redirect "admin.asp"
else
Response.redirect "admin.asp"
end if
end if
hx.ShowFooter
set hx=nothing
Response.end
end if
Dim Action,ErrMsg
Action=Request.QueryString("action")
select case Action
case "ExitLogin"
call ExitLogin
case "StartCount"
Application.Contents(CacheName & "_isStart")=1
call WriteSuccessMsg(Lang.item("g_071"))
case "StopCount"
Application.Contents(CacheName & "_isStart")=0
call WriteSuccessMsg(Lang.item("g_072"))
case "ShowConfig"
call main
call ShowConfig
case "ClearCache"
Call ClearCache
case "SaveConfig"
call SaveConfig
case "CompactDB"
call Compact
case else
call main
end select
Dim FoundErr
if FoundErr=True then
call WriteErrMsg(ErrMsg)
end if
hx.ShowFooter
set hx=nothing
Sub ExitLogin
Session(CacheName & "_Admin")=""
Response.redirect "admin.asp"
End Sub
Sub ShowForm
Response.write TableTop
Response.write "<form name=form1 method=post action=''>"
Response.write Lang.item("s_03")&"<input type=password name=adminpass>"
Response.write "<input type=submit name=Submit value="&Lang.item("b_01")&">"
Response.write TableEnd
End Sub
Sub main
%>
<table width="0%" border="0" align="center" cellpadding="0" cellspacing="0" class="main_tdbg">
<tr>
<td>
<p align="center"><%=Lang.item("g_102")%></p>
<table width="95%" border="0" align="center" cellpadding="3" cellspacing="0">
<tr>
<td><li>
<%
if Application.Contents(CacheName & "_isStart")=0 then
Response.Write("<a href=?action=StartCount>"&Lang.item("g_103")&"</a>")
else
Response.Write("<a href=?action=StopCount>"&Lang.item("g_104")&"</a>")
end if
%>
</td>
</tr>
<tr>
<td><li><a href=?action=ShowConfig><%=Lang.item("g_105")%></a> (<a href="show.asp" target="_blank"><font color="#000000"><%=Lang.item("g_128")%></font></a>)</td>
</tr>
<tr>
<td><li><a href=aspcheck.asp target="_blank"><%=Lang.item("g_106")%></a> (<a href="http://www.itlearner.com/aspcheck/" target="_blank"><%=Lang.item("g_107")%></a>)</td>
</tr>
<tr>
<td><li><a href=?action=ClearCache><%=Lang.item("g_108")%></a></td>
</tr>
<tr>
<td><li><a href=?action=ExitLogin><%=Lang.item("g_109")%></a> </td>
</tr>
<%If IsSqlDataBase = 0 Then%>
<tr>
<td> </td>
</tr>
<tr>
<td><li>
<%If ObjInstalled=false Then
Response.Write Lang.item("g_110")
else%>
<a href=?action=CompactDB onclick="return confirm('<%=Lang.item("g_111")%>')"><%=Lang.item("g_112")%></a>
<%
Response.Write Lang.item("g_113")
Call ShowFileInfo(DB)
Response.Write Lang.item("g_114")
end if%>
</td>
</tr>
<%end if%>
<tr>
<td></td>
</tr>
</table>
</td>
</tr>
</table>
<%End Sub%>
<%Sub ShowConfig
dim rs
set rs=hx.execute("select * from WebInfo where ID=1")
%>
<table width="768" border="1" align="center" cellpadding="2" cellspacing="0" bordercolorlight="#000000" bordercolordark="#FFFFFF" Class="main_tdbg2">
<form name="form1" method="post" action="?Action=SaveConfig">
<tr>
<td height="22" colspan="2" class="topbg"> <div align="center"><strong><%=Lang.item("g_129")%></strong></div></td>
</tr>
<tr>
<td width="400" height="25"><strong><%=Lang.item("g_001")%></strong></td>
<td width="368"> <input name="WebName" type="text" value="<%=rs("WebName")%>" size="40" maxlength="50">
</td>
</tr>
<tr>
<td height="25"><strong><%=Lang.item("g_008")%></strong></td>
<td> <input name="WebIntro" type="text" id="WebIntro" value="<%=rs("WebIntro")%>" size="40" maxlength="50">
</td>
</tr>
<tr>
<td height="25"><strong><%=Lang.item("g_007")%></strong> <%=Lang.item("g_115")%></td>
<td> <input name="WebUrl" type="text" id="WebUrl" value="<%=rs("WebUrl")%>" size="40" maxlength="100">
</td>
</tr>
<tr>
<td height="25"><strong><%=Lang.item("g_002")%></strong></td>
<td> <input name="WebAdmin" type="text" id="WebAdmin" value="<%=rs("WebAdmin")%>" size="40" maxlength="20">
</td>
</tr>
<tr>
<td height="25"><%=Lang.item("g_118")%></td>
<td> <input name="MaxPageSize" type="text" id="MaxPageSize" value="<%=MaxPageSize%>" size="40" maxlength="3">
</td>
</tr>
<tr>
<td height="12"><%=Lang.item("g_119")%></td>
<td> <input name="ExpireTime" type="text" id="ExpireTime" value="<%=ExpireTime%>" size="40" maxlength="2">
</td>
</tr>
<tr>
<td height="12"><%=Lang.item("g_120")%></td>
<td><input name="MaxRecord" type="text" id="MaxRecord" value="<%=MaxRecord%>" size="40" maxlength="3"></td>
</tr>
<tr>
<td height="25"><%=Lang.item("g_121")%></td>
<td> <select name="IsPublic" id="IsPublic">
<option value="0" <%if rs("IsPublic")="0" then response.write " selected"%>>0</option>
<option value="1" <%if rs("IsPublic")="1" then response.write " selected"%>>1</option>
<option value="2" <%if rs("IsPublic")="2" then response.write " selected"%>>2</option>
</select> </tr>
<tr>
<td height="25"><%=Lang.item("g_122")%></td>
<td><input name="ViewPass" type="text" id="ViewPass" value="<%=rs("ViewPass")%>" size="40" maxlength="12"></td>
</tr>
<tr>
<td height="25"><%=Lang.item("g_123")%></td>
<td> <input name="AdminPass" type="text" id="AdminPass" value="<%=rs("AdminPass")%>" size="40" maxlength="12"></td>
</tr>
<tr>
<td height="25"><%=Lang.item("g_124")%></td>
<td> <input name="OnlineTime" type="text" id="OnlineTime" value="<%=OnlineTime%>" size="40" maxlength="2"></td>
</tr>
<tr>
<td height="25"><%=Lang.item("g_125")%></td>
<td><input name="TimeZone" type="text" id="TimeZone" value="<%=TimeZone%>" size="40" maxlength="2"></td>
</tr>
<tr>
<td height="25"><%=Lang.item("g_126")%></td>
<td> <select name="Language" id="Language">
<option value="CHS" <%if Language="CHS" then response.write " selected"%>>中文简体(CHS)</option>
<option value="CHT" <%if Language="CHT" then response.write " selected"%>>いゅ羉蔨(CHT)</option>
<option value="ENG" <%if Language="ENG" then response.write " selected"%>>English(ENG)</option>
</select></td>
</tr>
<tr>
<td height="12"><%=Lang.item("g_140")%></td>
<td> <select name="Skin" id="Skin">
<%
dim i
for i=0 to 4
response.write "<option value="&i
if int(Skin)=i then
response.write " selected"
end if
response.write ">"
response.write Lang.item("m_"&cstr(81+i))
response.write "</option>"
next
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -