📄 edit2.asp

📁 ASP原码
💻 ASP
字号:
<!--#include file="../../System/Const.asp"-->
<!--#include file="../../System/misc.asp"-->

<%
	set cn=server.CreateObject("ADODB.connection")
	cn.Open DSN_ACLASS
	
	'update the new record to class
	sql="update DEFINE set DEF_VALUE='"&request("server_ip")&"' where DEF_NAME='SERVER_IP'"
	cn.Execute sql
	
	sql="update DEFINE set DEF_VALUE='"&request("server_port")&"' where DEF_NAME='SERVER_PORT'"
	cn.Execute sql

	sql="update DEFINE set DEF_VALUE='"&request("server_classinfo_ip")&"' where DEF_NAME='SERVER_CLASSINFO_IP'"
	cn.Execute sql

	sql="update DEFINE set DEF_VALUE='"&request("server_classinfo_port")&"' where DEF_NAME='SERVER_CLASSINFO_PORT'"
	cn.Execute sql
	
	server_send_classinfo="0"
	if request("server_send_classinfo")="1" then server_send_classinfo="1"
	sql="update DEFINE set DEF_VALUE='"&server_send_classinfo&"' where DEF_NAME='SERVER_SEND_CLASSINFO'"
	cn.Execute sql

	server_allow_udp="0"
	if request("server_allow_udp")="1" then server_allow_udp="1"
	sql="update DEFINE set DEF_VALUE='"&server_allow_udp&"' where DEF_NAME='SERVER_ALLOW_UDP'"
	cn.Execute sql

	sql="update DEFINE set DEF_VALUE='"&request("smtp_server")&"' where DEF_NAME='smtp_server'"
	cn.Execute sql

	sql="update DEFINE set DEF_VALUE='"&request("smtp_username")&"' where DEF_NAME='smtp_username'"
	cn.Execute sql

	sql="update DEFINE set DEF_VALUE='"&request("smtp_password")&"' where DEF_NAME='smtp_password'"
	cn.Execute sql

	tipboard = request("tipboard")
	if tipboard = "" or tipboard = chr(13)+chr(10) then tipboard = ""
	sql="update DEFINE set DEF_VALUE='"&tipboard&"' where DEF_NAME='TIPBOARD_TXT'"
	cn.Execute sql

	set acman=server.CreateObject("ACManCOM.ACMan")
	acman.ModifyServer session("username"), session("Userpassword"), IA_Server_IP(cn), IA_Server_PORT(cn), request("server_classinfo_ip")+"|"+request("server_classinfo_port")+"|"+server_send_classinfo+"|"+server_allow_udp
	set acman=nothing

	cn.close
%>

<HTML>
<HEAD>
</HEAD>
<BODY bgcolor="#CDC8CF" leftmargin="0" topmargin="10" >
<!--下面包含头文件-->
<!--#include file="Header.asp"-->
<!--下面包含显示所有用户的列表-->
<table width="770" border="0" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF" align="center" height="70%">
  <tr> 
    <td bgcolor="#8C9A8C" width="3"></td>
    <td width="764" bgcolor="#EFEFEF" height="20" valign="bottom">　你现在的位置：服务器管理</td>
    <td bgcolor="#8C9A8C" width="3"></td>
  </tr>
  <tr> 
    <td bgcolor="#8C9A8C" width="3" height="15"></td>
    <td width="764" height="15">&nbsp; </td>
    <td bgcolor="#8C9A8C" width="3" height="15"></td>
  </tr>
  <tr> 
    <td bgcolor="#8C9A8C" width="3"></td>
    <td width="764" valign="top" align="center"> 
      <p>服务器参数修改成功！</p>
      <p><a href="default.asp">返回</a></p>
    </td>
    <td bgcolor="#8C9A8C" width="3"></td>
  </tr>
  <tr> 
    <td bgcolor="#8C9A8C" width="3" height="21"></td>
    <td width="764" bgcolor="EFEFEF" height="21"> 
      <div align="center"><%=COMPANY%></div>
    </td>
    <td bgcolor="#8C9A8C" width="3" height="21"></td>
  </tr>
</table>
<table width="770" border="0" cellspacing="0" cellpadding="0" bgcolor="#8C9A8C" align="center">
  <tr> 
    <td height="4"></td>
  </tr>
</table>

</BODY>
</HTML>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -