otherparam.asp

蓝芒3.0A最新所有功能完整破解版

<% ModuleCode="M0710" %>
<!--#include file="../../Include/Reference.asp"-->
<%
Call PrintPageHead
OptFileName = Server.Mappath("../../Include/Reference.asp")
if Request.Form("act")<>"" then
	
	Set fileSysObj = createObject("Scripting.FileSystemObject")
	if (fileSysObj.FileExists(OptFileName)) Then
		Set tf = filesysobj.OpenTextFile(OptFileName,2,True)
			tf.Write(Request.Form("OptInfo"))
		tf.Close
	end if
	Set fileSysObj = Nothing
	%>
	<br><br><br>
	<p align="center" class="titletext">修改系统其他参数成功！
	[<a href="OtherParam.asp" class="a2">返回</a>]
	<%
	
	Call PrintPageBottom
	Response.End

end if
	ContentText=""
	Set fileSysObj = createObject("Scripting.FileSystemObject")
	if (fileSysObj.FileExists(OptFileName)) Then
		Set tf = filesysobj.OpenTextFile(OptFileName, 1)
		if not tf.AtEndOfStream  then
			ContentText = tf.ReadAll
		end if
		tf.Close
	end if
	Set fileSysObj = Nothing
%>
<table width="80%" cellspacing="0" cellpadding="0" border="0" align="center">
  <tr>
    <td height="26" align="center">
     <font color="<%=Opt_Font_TitleColor%>" class="titletext"><strong>其他系统参数</strong></font>
    </td>
  </tr>
  <tr>
    <td>
      <table width="100%" border="0" cellpadding="2" cellspacing="1" bgcolor="<%=Opt_Table_BGColor%>">
       <form name="form3" action="" method="post">
       <input type="hidden" name="act" value="next">
        <tr>
          <td colspan="2" height="26" bgcolor="<%=Opt_TR_BGColor%>">
          <strong>请谨慎修改，必须遵照ASP语法格式，否则将导致错误</strong>
          </td>
        </tr>
        <tr height="24">
          <td align="center">
          <textarea name="OptInfo" cols="80" rows="30" class="input"><%=ContentText%></textarea>
          </td>
        </tr>
        <tr height="26">
          <td bgcolor="<%=Opt_TD_BGColor2%>" colspan="2" align="center">
            <input type="submit" class="button" value=" 修改 ">
            <input type="reset" class="button" value=" 重写 ">
          </td>
        </tr>
        </form>
      </table>
    </td>
  </tr>
</table>

<%
Call PrintPageBottom
%>