specprice1.asp

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

<% ModuleCode="M0645" %>
<!--#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">目前还没有特殊产品服务类型，请先<a href="Spec.asp" class="a2">添加服务类型</a>
<%
else
Response.Write "服务类型：　"
if ServiceType="" then
	ServiceType=Rs("STCode")
end if

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

strSQL="Select * from T_DNS_ProdInfo where STCode='" & ServiceType & "'"
Rs.open strSQL,Cn,1,1
If Rs.Eof Then
%>
	<br><br><br><br><p align="center" class="titletext">目前还没有<%=ServiceTypeName%>的特殊服务产品！ 请<a href="ProductInfoAdd.asp?ServiceType=<%=ServiceType%>" class="a2">添加<%=ServiceTypeName%>产品</a></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>
	<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%>">
	  <tr bgcolor="<%=Opt_TR_BGColor%>" height="24"> 
	     <td>产品名称</td>
	     <td>产品编号</td>
	     <td>直接价格</td>
	     <td>产品类型</td>
	     <td>状态</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="ProductInfoEdt.asp?ProdCode=<%=Rs("ProdCode")%>" class="a2"><%=Rs("ProdName")%></a></td>
	        <td><%=Rs("ProdCode")%></td>
	        <td><%=Rs("ProdPrice")%></td>
	        <td><%=Rs("TypeCode")%></td>
	        <td>
	        <%
	        Select Case Rs("ProdStat")
	        	Case "1" 
	        		Response.Write "正常"
	        	Case "2" 
	        		Response.Write "推荐"
	        	Case "3" 
	        		Response.Write "停止"
	        End Select
	        %>
	        </td>
	      </tr>
	    <%
		Rs.MoveNext
		line=line+1
	  Loop
	%>
	</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>
	<p align="center">[ + <a href="ProductInfoAdd.asp?ServiceType=<%=ServiceType%>" class="a2">添加<%=ServiceTypeName%>产品</a> ]</p>
	<%  
	end if
end if

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

Call PrintPageBottom
%>