productlist.asp

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

<% ModuleCode="M0910" %>
<!--#include file="../../Include/Reference.asp"-->
<%
Call PrintPageHead
%>
<!--#include file="../../Include/connect.asp"-->
<%
ServiceType=Request("ServiceType")
strSQL="Select * from T_DNS_ServiceType"
Set Rs= Server.CreateObject("ADODB.Recordset")
Rs.open strSQL,Cn,1,1
If Rs.eof then
%>
	<br><br><br><br><p align="center" class="titletext">对不起,目前还没有产品服务
<%
else

if ServiceType="" then
	ServiceType=Rs("STCode")
end if

while not Rs.eof 
	if ServiceType=Rs("STCode") then
		Response.Write "[<b>" & Rs("STName") & "</b>]&nbsp;"
		ServiceTypeName=Rs("STName")
	else
		Response.Write "<a href='ProductList.asp?ServiceType=" & Rs("STCode") & "' class='a2'>[" & Rs("STName") & "]</a>&nbsp;"
	end if
	Rs.movenext
wend
Rs.Close

'strSQL="Select a.ProdCode,a.ProdName,a.ProdPrice,a.ProdInfo,a.ProdMemo,a.ProdStat,a.STCode,a.TypeCode,a.DomainType,a.SiteType,a.SiteSize,a.ThiNB,a.MailType,a.MailSize,a.MailUser,b.ProdPrice as MyPrice from v_ProdInfo a, T_DNS_ProdPrice b where a.ProdCode=b.ProdCode  and a.STCode='" & ServiceType & "' and a.ProdStat<>'3' and b.LevelCode='" & Session("UserLevel") & "' order by b.ProdYear desc"
strSQL="Select * from v_ProdInfo a where ProdCode in (select ProdCode from T_DNS_ProdPrice where LevelCode='" & Session("UserLevel") & "' and STCode='" & ServiceType & "')  and STCode='" & ServiceType & "' and ProdStat<>'3' order by ProdLevel"
'Response.Write strSQL
'Response.End
Rs.open strSQL,Cn,1,1
If Rs.Eof Then
%>
	<br><br><br><br><p align="center" class="titletext">目前还没有<%=ServiceTypeName%>产品！ </p>
<%
else

Rs.PageSize=Opt_PageSize
pages=Rs.pagecount
records=Rs.recordcount
currentpage=request("currentpage")
if currentpage="" or currentpage<1 then currentpage=1
currentpage=cint(currentpage)
if currentpage>pages then currentpage=pages
Rs.absolutepage=currentpage
%>
<br><br>
<script type="text/javascript" src="../../Js/tips.js"></script>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
    <tbody>
      <tr>
        <td height="22" class="titletext"><font color="<%=Opt_Font_TitleColor%>"><strong><%=ServiceTypeName%></strong></font></td>
        <td align="right">共 <font color="red"><b><%=Records%></b></font> 个项目　页次: 
          <font color="red"><b><%=currentpage%></b></font> / <font color="red"><b><%=Pages%></b></font> 
          页
        </td>
      </tr>
    </tbody>
</table>
<!------------------------------------------------------------------------------------->

<table width="100%" border="0" cellpadding="2" cellspacing="1" bgcolor="<%=Opt_Table_BGColor%>">

<% Select Case ServiceType
	Case "1" '是域名
	%>
	  <tr bgcolor="<%=Opt_TR_BGColor%>" height="24"> 
	     <td>产品名称</td>
	     <td>产品说明</td>
	     <td>市场价格</td>
	     <td>您的价格</td>
	     <td>&nbsp;</td>
	  </tr>
	<%
	linenumber=Rs.pagesize
	do while (not Rs.eof) and (line<linenumber)
	     if line mod 2 =0 Then %>
	     <tr bgcolor="<%=Opt_TD_BGColor1%>" height="20">
	     <% else %>
	     <tr bgcolor="<%=Opt_TD_BGColor2%>" height="20">
	     <% end if %>
	        <td><a href="#nourl" title="备注:<br><%=Rs("ProdMemo")%>"><%=Rs("ProdName")%></a><% if Rs("ProdStat")="2" then Response.Write "<font color=#FF99OO>(推荐)</font>" %></td>
	        <td><%=Rs("DomainType")%></td>
	        <td><%=FormatCurrency(Rs("ProdPrice"))%></td>
	        <td>
	        <font color="#FF99OO">
			<%
			Set Rs1= Server.CreateObject("ADODB.Recordset")
            strSQL="Select * from T_DNS_ProdPrice Where ProdCode='" & Rs("ProdCode") & "' and LevelCode='" & Session("UserLevel") & "' order by ProdYear"
            Rs1.open strSQL,Cn
            if not Rs1.eof then
            	response.write  FormatCurrency(Rs1("ProdPrice")) & "元/" & Rs1("ProdYear") & "年"
            else
            	response.write "没有价格信息"
            end if
            Rs1.Close
            set rs1=nothing
	        %>
	        </font>
	        </td>
	        <td><a href="buydomain.asp?ID=<%=Rs("ProdCode")%>"  class="a2">购买</a></td>
	      </tr>
	    <%
		Rs.MoveNext
		line=line+1
	  Loop
	%>
	<%
	Case "2" '是虚拟主机
	%>
	  <tr bgcolor="<%=Opt_TR_BGColor%>" height="24">
	     <td>产品名称</td>
	     <td>产品说明</td>
	     <td>语言类型</td>
	     <td>空间大小</td>
	     <td>绑定域名数</td>
	     <td>最大连接数</td>
	     <td>市场价格</td>
	     <td>您的价格</td>
	     <td>&nbsp;</td>
	  </tr>
	<%
	linenumber=Rs.pagesize
	do while (not Rs.eof) and (line<linenumber)
	     if line mod 2 =0 Then %>
	     <tr bgcolor="<%=Opt_TD_BGColor1%>" height="20">
	     <% else %>
	     <tr bgcolor="<%=Opt_TD_BGColor2%>" height="20">
	     <% end if %>
	        <td><a href="#nourl" title="备注:<br><%=Rs("ProdMemo")%>"><%=Rs("ProdName")%></a><% if Rs("ProdStat")="2" then Response.Write "<font color=#FF99OO>(推荐)</font>" %></td>
	        <td><%=Rs("ProdInfo")%></td>
	        <td><%=Rs("SiteType")%></td>
	        <td><%=Rs("SiteSize")%>M</td>
	        <td><%=Rs("ThiNB")%>个</td>
	        <td><%=Rs("MaxIIS")%></td>
	        <td><%=FormatCurrency(Rs("ProdPrice"))%></td>
	        <td>
	        <font color="#FF99OO">
			<%
			Set Rs1= Server.CreateObject("ADODB.Recordset")
            strSQL="Select * from T_DNS_ProdPrice Where ProdCode='" & Rs("ProdCode") & "' and LevelCode='" & Session("UserLevel") & "' order by ProdYear"
            Rs1.open strSQL,Cn
            if not Rs1.eof then
            	response.write  FormatCurrency(Rs1("ProdPrice")) & "元/" & Rs1("ProdYear") & "年"
            else
            	response.write "没有价格信息"
            end if
            Rs1.Close
            set rs1=nothing
	        %>
	        </font>
	        </td>
	        <td><a href="VHost/buyvhost.asp?ID=<%=Rs("ProdCode")%>" class="a2">购买</a></td>
	      </tr>
	    <%
		Rs.MoveNext
		line=line+1
	  Loop
	%>
	<%
	Case "3" '是邮局
	%>
	  <tr bgcolor="<%=Opt_TR_BGColor%>" height="24"> 
	     <td>产品名称</td>
	     <td>产品说明</td>
	     <td>空间大小</td>
	     <td>用户数</td>
	     <td>市场价格</td>
	     <td>您的价格</td>
	     <td>&nbsp;</td>
	  </tr>
	<%
	linenumber=Rs.pagesize
	do while (not Rs.eof) and (line<linenumber)
	     if line mod 2 =0 Then %>
	     <tr bgcolor="<%=Opt_TD_BGColor1%>" height="20">
	     <% else %>
	     <tr bgcolor="<%=Opt_TD_BGColor2%>" height="20">
	     <% end if %>
	        <td><a href="#nourl" title="备注:<br><%=Rs("ProdMemo")%>"><%=Rs("ProdName")%></a><% if Rs("ProdStat")="2" then Response.Write "<font color=#FF99OO>(推荐)</font>" %></td>
	        <td><%=Rs("ProdInfo")%></td>
	        <td><%=Rs("MailSize")%>M</td>
	        <td><%=Rs("MailUser")%></td>
	        <td><%=FormatCurrency(Rs("ProdPrice"))%></td>
	        <td>
	        <font color="#FF99OO">
			<%
			Set Rs1= Server.CreateObject("ADODB.Recordset")
            strSQL="Select * from T_DNS_ProdPrice Where ProdCode='" & Rs("ProdCode") & "' and LevelCode='" & Session("UserLevel") & "' order by ProdYear"
            Rs1.open strSQL,Cn
            if not Rs1.eof then
            	response.write  FormatCurrency(Rs1("ProdPrice")) & "元/" & Rs1("ProdYear") & "年"
            else
            	response.write "没有价格信息"
            end if
            Rs1.Close
            set rs1=nothing
	        %>
	        </font>
	        </td>
	        <td><a href="mail/buymail.asp?ID=<%=Rs("ProdCode")%>" class="a2">购买</a></td>
	      </tr>
	    <%
		Rs.MoveNext
		line=line+1
	  Loop
	%>
	<%
	Case "5" '超级套餐
	%>
	  <tr bgcolor="<%=Opt_TR_BGColor%>" height="24"> 
	     <td>产品名称</td>
	     <td>产品说明</td>
	     <td>市场价格</td>
	     <td>您的价格</td>
	     <td>&nbsp;</td>
	  </tr>
	<%
	linenumber=Rs.pagesize
	do while (not Rs.eof) and (line<linenumber)
	     if line mod 2 =0 Then %>
	     <tr bgcolor="<%=Opt_TD_BGColor1%>" height="20">
	     <% else %>
	     <tr bgcolor="<%=Opt_TD_BGColor2%>" height="20">
	     <% end if %>
	        <td><a href="#nourl" title="备注:<br><%=Rs("ProdMemo")%>"><%=Rs("ProdName")%></a><% if Rs("ProdStat")="2" then Response.Write "<font color=#FF99OO>(推荐)</font>" %></td>
	        <td><%=Rs("ProdInfo")%></td>
	        <td><%=FormatCurrency(Rs("ProdPrice"))%></td>
	        <td>
	        <font color="#FF99OO">
			<%
			Set Rs1= Server.CreateObject("ADODB.Recordset")
            strSQL="Select * from T_DNS_ProdPrice Where ProdCode='" & Rs("ProdCode") & "' and LevelCode='" & Session("UserLevel") & "' order by ProdYear"
            Rs1.open strSQL,Cn
            if not Rs1.eof then
            	response.write  FormatCurrency(Rs1("ProdPrice")) & "元/" & Rs1("ProdYear") & "年"
            else
            	response.write "没有价格信息"
            end if
            Rs1.Close
            set rs1=nothing
	        %>
	        </font>
	        </td>
	        <td><a href="combine/Buy.asp?ID=<%=Rs("ProdCode")%>&ST=<%=ServiceType%>" class="a2">购买</a></td>
	      </tr>
	    <%
		Rs.MoveNext
		line=line+1
	  Loop
	%>
	<%
	Case Else '是其他
	%>
	  <tr bgcolor="<%=Opt_TR_BGColor%>" height="24"> 
	     <td>产品名称</td>
	     <td>产品说明</td>
	     <td>市场价格</td>
	     <td>您的价格</td>
	     <td>&nbsp;</td>
	  </tr>
	<%
	linenumber=Rs.pagesize
	do while (not Rs.eof) and (line<linenumber)
	     if line mod 2 =0 Then %>
	     <tr bgcolor="<%=Opt_TD_BGColor1%>" height="20">
	     <% else %>
	     <tr bgcolor="<%=Opt_TD_BGColor2%>" height="20">
	     <% end if %>
	        <td><a href="#nourl" title="备注:<br><%=Rs("ProdMemo")%>"><%=Rs("ProdName")%></a><% if Rs("ProdStat")="2" then Response.Write "<font color=#FF99OO>(推荐)</font>" %></td>
	        <td><%=Rs("ProdInfo")%></td>
	        <td><%=FormatCurrency(Rs("ProdPrice"))%></td>
	        <td>
	        <font color="#FF99OO">
			<%
			Set Rs1= Server.CreateObject("ADODB.Recordset")
            strSQL="Select * from T_DNS_ProdPrice Where ProdCode='" & Rs("ProdCode") & "' and LevelCode='" & Session("UserLevel") & "' order by ProdYear"
            Rs1.open strSQL,Cn
            if not Rs1.eof then
            	response.write  FormatCurrency(Rs1("ProdPrice")) & "元/" & Rs1("ProdYear") & "年"
            else
            	response.write "没有价格信息"
            end if
            Rs1.Close
            set rs1=nothing
	        %>
	        </font>
	        </td>
	        <td><a href="other/BuyOther.asp?ID=<%=Rs("ProdCode")%>&ST=<%=ServiceType%>" class="a2">购买</a></td>
	      </tr>
	    <%
		Rs.MoveNext
		line=line+1
	  Loop
	%>
<%
End Select
%>
</table> 
<!-------------------------------------分页导航--------------------------------------->
  
<table width="100%" cellspacing="0" cellpadding="0" border="0">
  <tbody>
  <form name="pageform" method="Post" action="<%=Request("SCRIPT_NAME")%>?ServiceType=<%=ServiceType%>&px=<%=px%>">
  <tr height="26">
      <td>     
          <%if currentpage>1 then%>
              <a href="<%=Request("SCRIPT_NAME")%>?currentpage=1&ServiceType=<%=ServiceType%>&px=<%=px%>" class="a2">首页</a> <a href="<%=Request("SCRIPT_NAME")%>?currentpage=<%=currentpage-1%>&ServiceType=<%=ServiceType%>&px=<%=px%>" class="a2">上一页</a>
          <%end if%>
          <%if currentpage<pages then%>
              <a href="<%=Request("SCRIPT_NAME")%>?currentpage=<%=currentpage+1%>&ServiceType=<%=ServiceType%>&px=<%=px%>" class="a2">下一页</a> <a href="<%=Request("SCRIPT_NAME")%>?currentpage=<%=pages%>&ServiceType=<%=ServiceType%>&px=<%=px%>" class="a2">末页</a>
          <%end if%>
      </td>
      <td align="right">
          转到: <input type="text" name="currentpage" size="2" maxlength="6" class="input" value="<%=currentpage%>"> 页
      </td></tr>
  </form>
  </tbody>
</table>

<%  
end if
end if

Rs.Close
Cn.Close
Set Rs=Nothing
Set Cn=Nothing

Call PrintPageBottom
%>