📄 settings.asp
字号:
<%@ Language=VBScript %>
<!--#include file=scripts/inc_common.asp-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title>DBA:<%=langSettings%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="vs_targetSchema" content="http://schemas.microsoft.com/intellisense/ie5">
<meta name="GENERATOR" content="Microsoft Visual Studio.NET 7.0">
<link href="default.css" rel="stylesheet" type="text/css">
<script type="text/javascript" language="javascript" src="scripts/common.js" defer></script>
</head>
<body>
<% call DBA_WriteNavigation%>
<%
DBA_BeginNewTable langSettings, "", "90%", ""
if Len(DBA_cfgProfilePath) > 0 then
if Request.Form("action") = "update" then
'only administrator allowed to change Session settings
if DBA_cfgAdminUsername = Session(DBA_cfgSessionUserName) then
Session(Request.Form("s_user").Item) = Session(DBA_cfgSessionUserName)
Session(Request.Form("s_upwd").Item) = Session(DBA_cfgSessionPwdName)
Session(Request.Form("s_dbpath").Item) = Session(DBA_cfgSessionDBPathName)
Session(Request.Form("s_dbpwd").Item) = Session(DBA_cfgSessionDBPassword)
DBA_cfgSessionUserName = Request.Form("s_user").Item
DBA_cfgSessionPwdName = Request.Form("s_upwd").Item
DBA_cfgSessionDBPathName = Request.Form("s_dbpath").Item
DBA_cfgSessionDBPassword = Request.Form("s_dbpwd").Item
DBA_cfgSessionTimeout = VBParseInt(Request.Form("s_timeout").Item)
if DBA_cfgSessionTimeout <> 0 Then Session.Timeout = DBA_cfgSessionTimeout
end if
DBA_cfgSaveDBPaths = CBool(Request.Form("save_paths").Item)
call DBA_SaveProfile
call StpProfile.SetValue("settings", "page_size", Request.Form("page_size").Item)
call StpProfile.SetValue("settings", "language-file", Request.Form("lang").Item)
call StpProfile.SetValue("settings", "sys_tables", Request.Form("sys_tables").Item)
call StpProfile.Save
call DBA_WriteSuccess(langSaveSuccess)
end if
call DBA_LoadProfile
%>
<form method="post" action="settings.asp">
<input type="hidden" name="action" value="update">
<table align="center" border="0">
<% if Session(DBA_cfgSessionUserName) = DBA_cfgAdminUsername then%>
<!--SESSION VARIABLES-->
<tr>
<th colspan="2"><%=langSessionVariables%></th>
</tr>
<tr>
<td><%=langSessionTimeout%></td>
<td>
<select name="s_timeout">
<option value="0"><%=langDefault%></option>
<%=DBA_GetComboOptions(1, 9, 1, DBA_cfgSessionTimeout)%>
<%=DBA_GetComboOptions(10, 29, 5, DBA_cfgSessionTimeout)%>
<%=DBA_GetComboOptions(30, 720, 30, DBA_cfgSessionTimeout)%>
<option value="1440" <%if DBA_cfgSessionTimeout = 1440 Then Response.Write " selected "%>><%=langMaxTimeout%></option>
</select>
</td>
</tr>
<tr>
<td><%=langUsername%></td>
<td><input type="text" name="s_user" value="<%=DBA_cfgSessionUserName%>"></td>
</tr>
<tr>
<td><%=langUserPassword%></td>
<td><input type="text" name="s_upwd" value="<%=DBA_cfgSessionPwdName%>"></td>
</tr>
<tr>
<td><%=langDBPath%></td>
<td><input type="text" name="s_dbpath" value="<%=DBA_cfgSessionDBPathName%>"></td>
</tr>
<tr>
<td><%=langDBPassword%></td>
<td><input type="text" name="s_dbpwd" value="<%=DBA_cfgSessionDBPassword%>"</td>
</tr>
<% end if%>
<!--USER SETTINGS-->
<tr>
<th colspan="2"><%=langOtherSettings%></th>
</tr>
<tr>
<td><%=langSaveDBPaths%></td>
<td><select name="save_paths">
<option value="-1"><%=langYes%></option>
<option value="0" <%if not DBA_cfgSaveDBPaths then Response.Write " selected "%>><%=langNo%></option>
</select></td>
</tr>
<tr>
<td><%=langRecordsPerPage%></td>
<td><select name="page_size">
<%=DBA_GetComboOptions(5, 50, 5, StpProfile.GetProfileNumber("settings", "page_size", 5))%>
</select></td>
</tr>
<tr>
<td><%=langShowSysTables%></td>
<td>
<select name="sys_tables" id="Select1">
<option value="0"><%=langNo%></option>
<option value="-1" <%if StpProfile.GetProfileNumber("settings", "sys_tables", 0) = -1 Then Response.Write " selected "%>><%=langYes%></option>
</select>
</td>
</tr>
<tr>
<td><%=langLanguage%></td>
<td>
<select name="lang">
<option value="">默认</option>
<%=GetAvailableLanguages()%>
</select>
</td>
</tr>
<tr><td align="center" colspan="2">
<input type="submit" name="submit" value="<%=langSubmit%>" class="button">
<input type="reset" value="<%=langReset%>" class="button">
</td></tr>
</table>
</form>
<%
else
Response.Write "<p align=center>" & langSettingsNotAvailable & "</p>"
end if
call DBA_EndNewTable
%>
<!--#include file=scripts/inc_footer.inc-->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -