📄 config.asp
字号:
<%
if session("admin")="" then
response.redirect "admin.asp"
else
if session("flag")>1 then
response.write "<br><p align=center>你没有操作权限！</p>"
response.end
end if
end if
%>
<!--#include file="conn.asp"-->
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="style.css" rel=stylesheet>
<title>系统配置</title>
</head>
<%
dim sql,rs
set rs=server.createobject("adodb.recordset")
sql = "select * from Config"
rs.open sql,conn,1,1
%>
<body text="#333333" link="#333333" vlink="#333333" alink="#555555" bgcolor="#468ea3" topmargin="0" leftmargin="0">
<form method="POST" name="myform" action="savecfg.asp">
<div align="center">
<center>
<table cellspacing="0" border="0" bgcolor="#468EA3" cellpadding="0" style="border-collapse: collapse" bordercolor="#111111">
<tr align="center"><td width="100%">
<table border="1" cellspacing="0" width="629" bgcolor="#97C5D2" bordercolor="#468EA3" bordercolordark="#97C5D2" bordercolorlight="#468EA3" cellpadding="0" style="border-collapse: collapse">
<tr><td width="627" align="center" height="26" bgcolor="#145f74" colspan="2">
<font color="#FFFFFF"><b>下载系统参数设置</b></font></td></tr>
<tr><td width="83" align="right" height="29">
<p align="center"><font color="#FF0000"><b>网站名称</b></font></td>
<td width="543" height="29">
<input type="text" name="txtHostName" size="24" value="<%=rs("HostName")%>" maxlength="100"> 给本程序定义一个名称。[HostName]</td></tr>
<tr><td width="83" align="right" height="29">
<p align="center"><b><font color="#FF0000">网站地址</font></b></td>
<td width="543" height="29">
<input type="text" name="txtHostUrl" size="52" value="<%=rs("HostUrl")%>" maxlength="200"> 输入本程序所在的URL地址。[HostUrl]</td></tr>
<tr><td width="83" align="right" height="29">
<p align="center"><b><font color="#000000">站长名称</font></b></td>
<td width="543" height="29">
<input type="text" name="txtWebmaster" size="24" value="<%=rs("Webmaster")%>" maxlength="20">[Webmaster]
</td></tr>
<tr><td width="83" align="right" height="29">
<p align="center"><b><font color="#000000">站长信箱</font></b></td>
<td width="543" height="29">
<input type="text" name="txtwebmasterEmail" size="24" value="<%=rs("webmasterEmail")%>" maxlength="50">[webmasterEmail]</td></tr>
<tr><td width="83" align="right" height="29">
<p align="center"><b><font color="#000000">生成脚本</font></b></td>
<td width="543" height="29">
<select size="1" name="txtMakeJS">
<option <%if rs("MakeJS")="1" then%>selected<%else%> <%end if%> value="1">使用</option>
<option <%if rs("MakeJS")="0" then%>selected<%else%> <%end if%> value="0">不使用</option>
</select> 如服务器不支持FSO组件，请不要使用。[MakeJS] 点<a target="_self" href="servercfg.asp#fso"><font color="#0000FF"><u>这里</u></font></a>查看您的空间是否支持FSO。</td>
</tr>
<tr><td width="83" align="right" height="29">
<p align="center"><b><font color="#000000">本日排行</font></b></td>
<td width="543" height="29">
<input type="text" name="txtDayTop" size="10" value="<%=rs("DayTop")%>" maxlength="2">
本日下载排行显示数量。[DayTop]</td></tr>
<tr>
<td width="83" align="right" height="29">
<p align="center"><b><font color="#000000">本周排行</font></b></td>
<td width="543" height="29">
<input type="text" name="txtWeekTop" size="10" value="<%=rs("weektop")%>" maxlength="2">
本周下载排行显示数量。[WeekTop]</td>
</tr>
<tr><td width="83" align="right" height="29">
<p align="center"><b><font color="#000000">所有排行</font></b></td>
<td width="543" height="29">
<input type="text" name="txtAllTop" size="10" value="<%=rs("AllTop")%>" maxlength="2"> 所有下载排行显示数量。[AllTop]</td></tr>
<tr><td width="83" align="right" height="29">
<p align="center"><b><font color="#000000">软件更新</font></b></td>
<td width="543" height="29">
<input type="text" name="txtview_updating" size="10" value="<%=rs("view_updating")%>" maxlength="2"> 最近软件更新显示数量。[view_updating]</td></tr>
<tr><td width="83" align="right" height="29">
<p align="center"><b><font color="#000000">精品推荐</font></b></td>
<td width="543" height="29">
<input type="text" name="txtview_commend" size="10" value="<%=rs("view_commend")%>" maxlength="2">
首页大路通天显示数量。[view_commend]</td></tr>
<tr><td width="83" align="right" height="29">
<p align="center"><b><font color="#000000">分类下载</font></b></td>
<td width="543" height="29">
<input type="text" name="txtindex_perpage" size="10" value="<%=rs("index_perpage")%>" maxlength="2"> 分类下载显示数量。[index_perpage]</td></tr>
<tr>
<td width="83" align="right" height="29">
<p align="center"><font color="#000000"><b>首頁更新</b></font></td>
<td width="543" height="29">
<input type="text" name="txtD_newcount" size="10" value="<%=rs("d_newcount")%>" maxlength="2">
Default.asp各分類更新显示数量。[d_newcount]</td>
</tr>
<tr><td width="83" align="right" height="29">
<p align="center"><b><font color="#000000">后台管理</font></b></td>
<td width="543" height="29">
<input type="text" name="txtmaxperpage" size="10" value="<%=rs("maxperpage")%>" maxlength="2"> 后台管理每页显示数量。[maxperpage]</td></tr>
<tr>
<td width="83" align="right" height="29">
<p align="center"><font color="#000000"><b>新闻数目</b></font></td>
<td width="543" height="29">
<input type="text" name="txtnewscount" size="10" value="<%=rs("newscount")%>" maxlength="2">
首页显示新闻数量。[newscount]</td>
</tr>
<tr><td width="83" align="right" height="29">
<p align="center"><b><font color="#000000">在线超时</font></b></td>
<td width="543" height="29">
<input type="text" name="txtstrOnlineTimedOut" size="10" value="<%=rs("strOnlineTimedOut")%>" maxlength="4"> 秒，访问者在此时间内没有活动则视为离线。[strOnlineTimedOut]</td></tr>
<tr>
<td width="83" align="right" height="29">
<p align="center"><b><font color="#000000">程序名称</font></b></td>
<td width="543" height="29">
<input type="text" name="txtprogram" size="28" value="<%=rs("program")%>">
[program]</td></tr>
<tr><td width="83" align="right" height="29">
<p align="center">
<b><font color="#000000">版权信息</font></b></td>
<td width="543" height="29">
<input type="text" name="txtCopyRight" size="28" value="<%=rs("CopyRight")%>">
[CopyRight]</td></tr>
<tr><td width="83" align="right" height="29">
<p align="center"><b><font color="#000000">版本信息</font></b></td>
<td width="543" height="29">
<input type="text" name="txtVersion" size="28" value="<%=rs("Version")%>">
[Version]</td></tr>
<tr><td width="83" align="right" height="29">
<p align="center"><b><font color="#000000">链接显示数</font></b></td>
<td width="543" height="29">
<input type="text" name="txtmaxgoodlink" size="10" value="<%=rs("maxgoodlink")%>" maxlength="1"> 每行显示友情链接的数目。[maxgoodlink]</td></tr>
<tr><td width="83" align="right" height="29">
<p align="center"><b><font color="#000000">计数器长度</font></b></td>
<td width="543" height="29">
<input type="text" name="txtcountlong" size="10" value="<%=rs("countlong")%>" maxlength="1"> 计数器显示的数字位数。[countlong]</td></tr>
<tr><td width="83" align="right" height="29">
<p align="center"><b><font color="#000000">文件名截断</font></b></td>
<td width="543" height="29">
<select size="1" name="txtintercept">
<option <%if rs("intercept") then%>selected<%else%> <%end if%> value="TRUE">使用</option>
<option <%if not rs("intercept") then%>selected<%else%> <%end if%> value="FALSE">不使用</option>
</select> 建议使用，否则会影响页面美观。[intercept]</td>
</tr>
<tr><td width="83" align="right" height="29">
<p align="center"><b><font color="#000000">显示计数器</font></b></td>
<td width="543" height="29">
<select size="1" name="txtcountview">
<option <%if rs("countview") then%>selected<%else%> <%end if%> value="TRUE">是</option>
<option <%if not rs("countview") then%>selected<%else%> <%end if%> value="FALSE">否</option>
</select> 选择是否显示计数器。[countview]<b><font color="#000000">建议不使用。</font></b></td></tr>
<tr>
<td width="83" align="right" height="29">
<p align="center"><b><font color="#000000">显示在线人数</font></b></td>
<td width="543" height="29">
<select size="1" name="txtonlineview">
<option <%if rs("onlineview") then%>selected<%else%> <%end if%> value="TRUE">是</option>
<option <%if not rs("onlineview") then%>selected<%else%> <%end if%> value="FALSE">否</option>
</select> 选择是否显示在线人数。[onlineview]<b><font color="#000000">建议不使用。</font></b></td>
</tr>
<tr><td width="83" align="right" height="29">
<p align="center">
<b><font color="#000000">是否允许删除</font></b></td>
<td width="543" height="29">
<select size="1" name="txtallowdel">
<option <%if rs("allowdel") then%>selected<%else%> <%end if%> value="TRUE">是</option>
<option <%if not rs("allowdel") then%>selected<%else%> <%end if%> value="FALSE">否</option>
</select> 选择是否允许普通会员删除软件。[allowdel]<b><font color="#000000">建议设置为不允许。</font></b></td></tr>
<tr><td width="83" align="right" height="29">
<p align="center">
<b><font color="#000000">显示友情链接</font></b></td>
<td width="543" height="29">
<select size="1" name="txtviewgoodlink">
<option <%if rs("viewgoodlink") then%>selected<%else%> <%end if%> value="TRUE">是</option>
<option <%if not rs("viewgoodlink") then%>selected<%else%> <%end if%> value="FALSE">否</option>
</select> 选择是否显示友情链接。[viewgoodlink]</td></tr>
<tr><td width="83" align="right" height="30"> </td>
<td width="543" height="30">
<input type="submit" value=" 修 改 " name="cmdok"> <input type="reset" value=" 重 置 " name="cmdcancel"></td>
</tr></table></td></tr></table></center>
</div>
</form>
<br><br>
</body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -