serverinfoedtdo.asp

来自「蓝芒3.0A最新所有功能完整破解版」· ASP 代码 · 共 89 行

<% ModuleCode="M0615" %>
<!--#include file="../../Include/Reference.asp"-->
<%
Call PrintPageHead
%>
<!--#include file="../../Include/connect.asp"-->
<%
if Trim(Request.Form("act"))="删除" then
	strSQL="Delete from T_DNS_ServerPower Where ServerCode='" & Request.Form("ServerCode") & "'"
	Cn.Execute(strSQL)
end if

strSQL="exec sp_ServerInfo_Handle " & +_
	"'" & Session("UserID") & "'," & +_
	"'" & Trim(Request.Form("act")) & "'," & +_
	"'" & Request.ServerVariables("REMOTE_ADDR") & "'," & +_
	"'" & Request.Form("ServerCode") & "'," & +_
	"'" & Request.Form("TypeCode") & "'," & +_
	"'" & Request.Form("ServerIP") & "'," & +_
	"'" & Request.Form("ServerPubIP") & "'," & +_
	"'" & Request.Form("ServerPara") & "'," & +_
	"'" & Request.Form("ServerName") & "'," & +_
	"'" & Request.Form("ServerOS") & "'," & +_
	"'" & Request.Form("ServerDataBase") & "'," & +_
	"'" & Request.Form("ServerCPU") & "'," & +_
	"'" & Request.Form("ServerMem") & "'," & +_
	"'" & Request.Form("ServerHW") & "'," & +_
	"'" & Request.Form("MaxSize") & "'," & +_
	"'" & Request.Form("MaxUser") & "'," & +_
	"'" & Request.Form("ServerLevel") & "'," & +_
	"'" & Request.Form("ServerStat") & "'"
'Response.Write strSQL
'Response.End


Set Rs= Cn.Execute(strSQL)  
%>                          
<br><br>
<p align="center" class="titletext"><%=Rs("msg")%> 
<%
if Rs("result")=0 then

	if Trim(Request.Form("act"))="修改" then
		strSQL="Delete from T_DNS_ServerPower Where ServerCode='" & Request.Form("ServerCode") & "'"
		Cn.Execute(strSQL)
		
		strSQL="Select * from T_DNS_ProdBasicPower"
		Set Rs2= Server.CreateObject("ADODB.Recordset")
        	Rs2.open strSQL,Cn
        	while not Rs2.eof
        		if Request.Form("BPCode" & Rs2("BPCode"))<>"" then
        			strSQL="Insert into T_DNS_ServerPower (ServerCode,BPCode) values ('" & Request.Form("ServerCode") & "','" & Rs2("BPCode") & "')"
        			Cn.Execute(strSQL)
        		end if
        		Rs2.movenext
        	wend
        	Rs2.Close
        	Set Rs2=nothing
        elseif Trim(Request.Form("act"))="添加" then
        	strSQL="Select * from T_DNS_ProdBasicPower"
		Set Rs2= Server.CreateObject("ADODB.Recordset")
        	Rs2.open strSQL,Cn
        	while not Rs2.eof
        		if Request.Form("BPCode" & Rs2("BPCode"))<>"" then
        			strSQL="Insert into T_DNS_ServerPower (ServerCode,BPCode) values ('" & Rs("ServerCode") & "','" & Rs2("BPCode") & "')"
        			Cn.Execute(strSQL)
        		end if
        		Rs2.movenext
        	wend
        	Rs2.Close
        	Set Rs2=nothing
        end if
        
        
%>
[<a href="ServerInfoList.asp?ServerType=<%=Request.Form("TypeCode")%>" class="a2">返回</a>]
<%
else
%>
[<a href="#" onclick="javascript:history.go(-1)" class="a2">返回上一步</a>]
<%
end if
%>
</p>
<%
Call PrintPageBottom
Rs.Close
Cn.Close
%>