specprice.asp

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

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

<%

strActionName="SpecPriceSQL.asp"

strSQL="Select a.SpecCode,a.SpecName,a.OperType,a.TypeCode,b.TypeName,a.SPChange,a.BPCode1,a.BPCode2,a.IfUse from T_DNS_SpecInfo a,T_DNS_ProdType b Where a.SpecCode='" & Request("SpecCode") & "' and a.TypeCode=b.TypeCode"
Set Rs= Server.CreateObject("ADODB.Recordset")
Rs.open strSQL,Cn,1,1
If Rs.Eof Then
	Response.Write "<br><br><br><br><p align='center'>没有找到该特殊业务的记录！"
	Response.Write "&nbsp;<a href='#' onclick='javascript:history.go(-1)' class='a2'>返回</a>"
	Rs.Close
	Cn.Close
	Call PrintPageBottom
	Response.End
end if
%>
<table width="500" cellspacing="0" cellpadding="0" border="0" align="center">
  <tr>
    <td>
     <font color="<%=Opt_Font_TitleColor%>" class="titletext"><strong>特殊业务价格</strong></font>
    </td>
    <td align="right">
     <a href="#" onclick="javascript:history.go(-1)" class="a2">返回</a>
    </td>
  </tr>
  <tr>
    <td colspan="2">
      <table width="100%" border="0" cellpadding="2" cellspacing="1" bgcolor="<%=Opt_Table_BGColor%>">
       <form name="form3" action="<%=strActionName%>?ProdType=<%=request("ProdType")%>&SpecCode=<%=Rs("SpecCode")%>" method="post" >
        <tr height="28">
          <td bgcolor="<%=Opt_Table_BGColor%>" colspan="2">
          <strong>基本信息</td>
          </td>
        </tr>
        <tr height="24">
          <td bgcolor="<%=Opt_TR_BGColor%>" align="center" width="80">
            业务编号
          </td>
          <td bgcolor="<%=Opt_TD_BGColor2%>">
             <font color="<%=Opt_Font_TitleColor%>"><strong><%=Rs("SpecCode")%></strong></font>
          </td>
        </tr>
        <tr height="24">
          <td bgcolor="<%=Opt_TR_BGColor%>" align="center">
            业务名称
          </td>
          <td bgcolor="<%=Opt_TD_BGColor2%>">
            [<a href="Spec.asp?act=2&ProdType=<%=Rs("TypeCode")%>&SpecCode=<%=Rs("SpecCode")%>#1" class="a2"><%=Rs("SpecName")%></a>]
          </td>
        </tr>
        <tr height="24">
          <td bgcolor="<%=Opt_TR_BGColor%>" align="center">
            所属类型
          </td>
          <td bgcolor="<%=Opt_TD_BGColor2%>">
          [<a href="Spec.asp?ProdType=<%=Rs("TypeCode")%>" class="a2"><%=Rs("TypeName")%></a>]
          </td>
        </tr>
        <tr height="24">
          <td bgcolor="<%=Opt_TR_BGColor%>" align="center">
            操作情况
          </td>
          <td bgcolor="<%=Opt_TD_BGColor2%>">
	        	<%
	        	if Rs("OperType")="1" then
	        		response.write "类型升级：&nbsp;"
	        		strBPName1=""
	        		strBPName2=""
	        		if Rs("BPCode1")<>"" then
						strSQL="Select BPName from T_DNS_ProdBasicPower where BPCode='"& Rs("BPCode1")&"'"
						Set Rs1= Server.CreateObject("ADODB.Recordset")
						Rs1.open strSQL,Cn
						if  not Rs1.eof then
	        				strBPName1=rs1("BPName")
	        			end if
						Rs1.Close
						Set Rs1=Nothing
					end if
	        		if Rs("BPCode2")<>"" then
						strSQL="Select BPName from T_DNS_ProdBasicPower where BPCode='"& Rs("BPCode2")&"'"
						Set Rs1= Server.CreateObject("ADODB.Recordset")
						Rs1.open strSQL,Cn
						if  not Rs1.eof then
	        				strBPName2=rs1("BPName")
	        			end if
						Rs1.Close
						Set Rs1=Nothing
					end if
					response.write strBPName1&"&nbsp;->&nbsp;"&strBPName2
	        	else
	        		response.write "改变大小：&nbsp;"
	        		response.write rs("SPChange")&"&nbsp;M"
	        	end if
	        	%>
          </td>
        </tr>
        <tr height="24">
          <td bgcolor="<%=Opt_TR_BGColor%>" align="center">
            使用情况
          </td>
          <td bgcolor="<%=Opt_TD_BGColor2%>">
			<%if rs("IfUse")="N" then
				response.write "已禁用"
			else
				response.write "已启用"
			end if%>
          </td>
        </tr>
        <tr height="30">
          <td bgcolor="<%=Opt_Table_BGColor%>" colspan="2">
            <strong>价格（元）</strong>
          </td>
        </tr>
        <tr height="24">
          <td bgcolor="<%=Opt_TR_BGColor%>" align="center">
            用户级别
          </td>
          <td bgcolor="<%=Opt_TR_BGColor%>">
            <table width="100%" border="0" cellpadding="0" cellspacing="0">
            <tr>
            <%
            Set Rs1= Server.CreateObject("ADODB.Recordset")
            strSQL="Select * from T_DNS_ProdYear order by ProdYear"
            Rs1.open strSQL,Cn
            I=Rs1.RecordCount
            while not Rs1.eof
            %>
            <td width="<%=100\I%>%" align="center">
              <%=Rs1("ProdYear")%>年
            </td>
            <%
            	Rs1.movenext
            wend
            Rs1.Close
            Set Rs1=Nothing
            %>
            </tr>
            </table>
          </td>
        </tr>
        <%          
            Set Rs3= Server.CreateObject("ADODB.Recordset")
            Set Rs2= Server.CreateObject("ADODB.Recordset")
            
            Set Rs1= Server.CreateObject("ADODB.Recordset")
            strSQL="Select * from T_DNS_UserLevel order by DispSeq"
            Rs1.open strSQL,Cn

            while not Rs1.eof
        %>
        		<tr height="24">
        		  <td bgcolor="<%=Opt_TR_BGColor%>" align="center">
        		    <%=Rs1("LevelName")%>
        		  </td>
        		  <td bgcolor="<%=Opt_TD_BGColor2%>">
        		    <table width="100%" border="0" cellpadding="0" cellspacing="0">
        		    <tr>
        		    <%
        		    strSQL="Select * from T_DNS_ProdYear order by ProdYear"
        		    Rs3.open strSQL,Cn
        		    I=Rs3.RecordCount
        		    while not Rs3.eof
        		    	 strSQL="Select SpecPrice from T_DNS_SpecPrice where SpecCode='" & Rs("SpecCode") & +_
        		    	 "' and LevelCode='" & Rs1("LevelCode") & "' and ProdYear=" & Rs3("ProdYear")
        		         Rs2.open strSQL,Cn
        		         if not Rs2.eof then
        		         	SpecPrice=CStr(Rs2("SpecPrice"))
        		         else
        		         	SpecPrice=""
        		         end if
        		         Rs2.Close
        		    %>
        		    <td width="<%=100\I%>%" align="center">
        		     <input type="text" name="Price<%=Rs1("LevelCode") & Rs3("ProdYear")%>" size="3" maxlength="6" class="input" value="<%=SpecPrice%>">
        		    </td>
       			 		    <%
       			    	Rs3.movenext
       			    wend
       			    Rs3.Close
       			    %>
       			    </tr>
       			    </table>
       			  </td>
       			</tr>
        <%
                Rs1.movenext
            wend
            Rs1.Close
            Set Rs1=nothing
            Set Rs2=nothing
            Set Rs3=nothing
        %>
        <tr height="40">
          <td colspan="2" align="center">
            <input type="submit" class="button" value=" 修改 " name="act">
          </td>
        </tr>
        </form>
      </table>
    </td>
  </tr>
</table>
<%
Rs.Close
Cn.Close
Set Rs=Nothing
Set Cn=Nothing
Call PrintPageBottom
%>