📄 nconfig.asp
字号:
<!-- #include file="inc/Session.asp" -->
<%
'''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''
dim EditFile,Result
EditFile = Server.MapPath("../nUser/") & "\" & "config.asp"
Result=request("result")
Dim FsoObj,FileObj,FileStreamObj
Set FsoObj = Server.CreateObject("Scripting.FileSystemObject")
Set FileObj = FsoObj.GetFile(EditFile)
if Result = "" then
Set FileStreamObj = FileObj.OpenAsTextStream(1)
if Not FileStreamObj.AtEndOfStream then
FileContent = FileStreamObj.ReadAll
else
FileContent = ""
end if
else
Set FileStreamObj = FileObj.OpenAsTextStream(2)
FileContent = Request.Form("ConstContent")
FileStreamObj.Write FileContent
if Err.Number <> 0 then
%>
<script language="JavaScript">
alert('<% = "保存失败，请拷贝后，重新打开文件再保存" %>');window.location='config.asp';
</script>
<%
else
%>
<script language="JavaScript">
alert('修改成功');window.location='nConfig.asp';
</script>
<%
end if
end if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>系统常量设置</title>
</head>
<link href="css.css" rel="stylesheet">
<body bgcolor="#FFFFFF" topmargin="0" leftmargin="0" scroll=no>
<table width="100%" height="30" border="0" cellpadding="0" cellspacing="0" background="Images/main_bg.gif">
<tr>
<td bgcolor="#006699" onMouseOver="javascript:this.bgColor='#0066cc'" onMouseOut="javascript:this.bgColor='#006699'">
<div align="center" class="style1">
欢迎使用『秦直道』多用户博客管理系统V2.0版</div></td>
</tr>
</table>
<table width="100%" height="22" border="0" cellpadding="0" cellspacing="0" bgcolor="#FF9900">
<tr>
<td><div align="center" class="style1">维客系统常量设置管理</div></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<form action="nConfig.asp?result=ok" name="Form" method="post">
<tr>
<td height="23" colspan="2" ></td>
</tr>
<tr>
<td colspan="2"><div align="center">
<textarea name="ConstContent" rows="20" style="width:80%;"><% = FileContent %></textarea>
</div></td>
</tr>
<tr>
<td height="30"> <div align="center">
<input type="submit" name="Submit" value=" 确 定 ">
<input name="Result" type="hidden" id="Result" value="Modify">
</div></td>
<td height="30"> <div align="center">
<input type="reset" name="Submit2" value=" 重 填 ">
</div></td>
</tr>
<tr>
<td height="30" colspan="2"><div align="center"><font color="#FF0000">建议只修改常量值，不要多加或删除任何符号。</font></div></td>
</tr>
</form>
</table>
</body>
</html>
<%
Set FsoObj = Nothing
Set FileObj = Nothing
Set FileStreamObj = Nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -