📄 admin_config.asp
字号:
<!--#include file="admin_conn.asp"-->
<%
action=request("action")
dim cls
if session("admin")="" then
Response.Redirect("admin.asp")
else
if session("flag")<>"0" then
cls = Instr(session("flag"), "config")
if cls <= 0 then
%>
<script language="javascript">
if (confirm("您的操作权限不够,系统拒绝你的访问,请点确定返回,或者点取消退出重新登录"))
location.href="admin.asp";
else
location.href="quit.asp";
</script>
<%
end if
end if
end if
'判断是否支持fso
dim ObjInstalled
ObjInstalled=IsObjInstalled("Scripting.FileSystemObject")
Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = False
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If 0 = Err Then IsObjInstalled = True
Set xTestObj = Nothing
Err = 0
End Function
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="admin.css" type="text/css">
<title>管理界面</title>
<style type="text/css"><!--
a:link {color: #FFFFFF;text-decoration: none;}
a:visited {color: #FFFFFF;text-decoration: none;}
a:hover {color: #FFFF99;text-decoration: underline;}
tr {color: #FFFFFF;}
--></style>
<SCRIPT LANGUAGE="JavaScript">
<!--
function CheckAll(form) {
for (var i=0;i<form.elements.length;i++) {
var e = form.elements[i];
if (e.name != 'chkall') e.checked = form.chkall.checked;
}
}
//-->
</SCRIPT>
</head>
<body bgcolor="#336699" background="../images/bggreen.gif" text=#ffffff topmargin="0">
<!--#include file="top.asp"-->
<table border="0" cellpadding="2" cellspacing="5" style="border-collapse: collapse" bordercolor="#222222" width="772" height="150" bgcolor="#336699" align="center">
<tr><td width=125 valign="top">
<!--#include file="admin_left.asp"-->
</td><td valign="top" width=647>
<table border="1" cellpadding="2" cellspacing="4" style="border-collapse: collapse" bordercolor="#222222" width="100%">
<tr>
<td width="100%">当前位置: <a href="admin.asp">网站管理中心</a> - 站点配置管理</td>
</tr>
<tr>
<td width="100%">
<%
dim objFSO
dim fdata
dim objCountFile
on error resume next
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
if request("save")="" then
Set objCountFile = objFSO.OpenTextFile(Server.MapPath("../comm/setup.asp"),1,True)
If Not objCountFile.AtEndOfStream Then fdata = objCountFile.ReadAll
else
fdata=request("fdata")
Set objCountFile=objFSO.CreateTextFile(Server.MapPath("../comm/setup.asp"),True)
objCountFile.Write fdata
end if
objCountFile.Close
Set objCountFile=Nothing
Set objFSO = Nothing
if err.number<>0 then
response.write "您的空间不支持FSO，请同您的空间商联系，或者查看相关权限设置<br>"&Err.Description&""
response.end
end if
%>
<br>
<table width="95%" border="1" style="border-collapse: collapse;border:dotted 1px" bordercolor="#333333" cellspacing="2" cellpadding="2" align="center"><form action="?action=addadv" name="list" method=post>
<tr> <td colspan=2 align=center>站点配置管理</td></tr>
<tr> <td>注意：文件将被保存在你安装目录下的<B>comm/setup.asp</B>里，如果您的空间不支持<font color="yellow">FSO</font>，请直接编辑该文件！请按照提示修改站点配置信息。 </td></tr>
<tr><td align="center">
<textarea name="fdata" cols="75" rows="15" style="background-color:#aaaaaa"><%=fdata%></textarea>
</td>
</tr>
<tr><td colspan=2>
<input type="submit" name="save" value="提交修改"> <input type="reset" name="Reset" value="重新修改">
</td></tr>
</form>
</table>
</td></tr></table>
</td></tr>
<tr>
<td height="10" align=center colspan="2">程序美工设计：九江市大地广告策划中心<%=sitever%></td>
</tr>
</table>
</body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -