specpricesql.asp

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

<% ModuleCode="M0640" %>
<!--#include file="../../Include/connect.asp"-->
<!--#include file="../../Include/Security.asp"-->
<%

SpecCode = Request("SpecCode")

OPTable="T_DNS_SpecPrice"
OPIP=Request.ServerVariables("REMOTE_ADDR")
OPModule="特殊业务价格维护"
OPPK=SpecCode

'删除所有
strSQL="delete from T_DNS_SpecPrice where SpecCode='" & SpecCode & "'"
Cn.Execute(strSQL)
'增加
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_SpecPrice (SpecCode,LevelCode,ProdYear,SpecPrice) values('" & +_
				SpecCode & "','" & 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
set Rs1=nothing
        
Cn.Execute("SP_UserOP "&session("UserID")&",'"&OPTable&"','"&OPModule&"','"&OPPK&"','"&OPType&"','"&OPIP&"'" )
Response.Redirect "SpecPrice.asp?SpecCode=" & SpecCode 
%>