productinfoedtdo.asp

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

<% ModuleCode="M0635" %>
<!--#include file="../../Include/Reference.asp"-->
<%
Call PrintPageHead
%>
<!--#include file="../../Include/connect.asp"-->
<%
act=Trim(Request.Form("act"))

if act="删除" then
	strSQL="delete from T_DNS_ProdPrice where ProdCode='" & Request.Form("ProdCode") & "'"
        Cn.Execute(strSQL)
        
        strSQL="delete from T_DNS_ProdPower where ProdCode='" & Request.Form("ProdCode") & "'"
        Cn.Execute(strSQL)
end if

strSQL="exec sp_ProdInfo_Handle " & +_
	"'" & Session("UserID") & "'," & +_
	"'" & Trim(Request.Form("act")) & "'," & +_
	"'" & Request.ServerVariables("REMOTE_ADDR") & "'," & +_
	"'" & Request.Form("ProdCode") & "'," & +_
	"'" & Request.Form("ProdName") & "'," & +_
	"'" & Request.Form("ProdPic") & "'," & +_
	"'" & Request.Form("ProdPrice") & "'," & +_
	"'" & Request.Form("ProdInfo") & "'," & +_
	"'" & Request.Form("ProdMemo") & "'," & +_
	"'" & Request.Form("ProdStat") & "'," & +_
	"'" & Request.Form("ProdLevel") & "'," & +_
	"'" & Request.Form("STCode") & "'," & +_
	"'" & Request.Form("IfTest") & "'"

Set Rs= Cn.Execute(strSQL)
%>                          
<br><br>
<p align="center" class="titletext"><%=Rs("msg")%> 
<%
if Rs("result")=0 then
        if act="添加" or act="修改" then
        
        	if act="修改" then
        		strSQL="delete from T_DNS_ProdPrice where ProdCode='" & Request.Form("ProdCode") & "'"
        		Cn.Execute(strSQL)
        		
        		strSQL="delete from T_DNS_ProdPower where ProdCode='" & Request.Form("ProdCode") & "'"
        		Cn.Execute(strSQL)
        	end if
        	
        	strSQL="Select * from T_DNS_UserLevel order by DispSeq"
		Set Rs1= Server.CreateObject("ADODB.Recordset")
		Set Rs2= Server.CreateObject("ADODB.Recordset")
		Rs1.open strSQL,Cn
		while not Rs1.eof
			strSQL="Select * from T_DNS_ProdYear order by ProdYear"
            		Rs2.open strSQL,Cn
            		while not Rs2.eof
				if Trim(Request.Form("Price" & Rs1("LevelCode") & CStr(Rs2("ProdYear")))) <> "" then
					if IsNumeric(Trim(Request.Form("Price" & Rs1("LevelCode") & CStr(Rs2("ProdYear"))))) then
						strSQL="Insert into T_DNS_ProdPrice (ProdCode,LevelCode,ProdYear,ProdPrice) values('" & +_
						Request.Form("ProdCode") & "','" & Rs1("LevelCode") & "'," & Rs2("ProdYear") & +_
						"," & Trim(Request.Form("Price" & Rs1("LevelCode") & CStr(Rs2("ProdYear")))) & ")"
						Cn.Execute(strSQL)
					end if
				end if
				Rs2.movenext
            		wend
            		Rs2.Close
            		
			Rs1.Movenext
		wend
		Rs1.Close
		
		strSQL="Select * from T_DNS_ProdType"
		Rs1.open strSQL,Cn
		while not Rs1.eof
			if Trim(Request.Form("BPCode" & Rs1("TypeCode")))<>"" then
				if Trim(Request.Form("BPSubCode" & Rs1("TypeCode")))<>"" then
					If Trim(Request.Form("MaxSize" & Rs1("TypeCode")))="" then
						MaxSize="NULL"
					else
						MaxSize=Trim(Request.Form("MaxSize" & Rs1("TypeCode")))
					end if
					
					If Trim(Request.Form("MaxUser" & Rs1("TypeCode")))="" then
						MaxUser="NULL"
					else
						MaxUser=Trim(Request.Form("MaxUser" & Rs1("TypeCode")))
					end if

					If Trim(Request.Form("MaxIIS" & Rs1("TypeCode")))="" then
						MaxIIS="NULL"
					else
						MaxIIS=Trim(Request.Form("MaxIIS" & Rs1("TypeCode")))
					end if

					If Trim(Request.Form("MaxCPU" & Rs1("TypeCode")))="" then
						MaxCPU="NULL"
					else
						MaxCPU=Trim(Request.Form("MaxCPU" & Rs1("TypeCode")))
					end if
					
					If Trim(Request.Form("MaxBandWidth" & Rs1("TypeCode")))="" then
						MaxBandWidth="NULL"
					else
						MaxBandWidth=Trim(Request.Form("MaxBandWidth" & Rs1("TypeCode")))
					end if

					strSQL="Insert into T_DNS_ProdPower (ProdCode,BPCode,MaxSize,MaxUser,MaxIIS,MaxCPU,MaxBandWidth) values('" & +_
					Request.Form("ProdCode") & "','" & Trim(Request.Form("BPSubCode" & Rs1("TypeCode"))) & +_
					"'," & MaxSize & "," & MaxUser & "," & MaxIIS & "," & MaxCPU & "," & MaxBandWidth & ")"
					Cn.Execute(strSQL)
				end if
			end if
			Rs1.Movenext
		WEnd
		Rs1.Close
		set Rs1=nothing
        end if
%>
[<a href="ProductInfoList.asp?ServiceType=<%=Request.Form("STCode")%>" class="a2">返回</a>]
<%
else
%>
[<a href="#" onclick="javascript:history.go(-1)" class="a2">返回上一步</a>]
<%
end if
%>
</p>
<%
Call PrintPageBottom
Rs.Close
Cn.Close
%>