<%@ LANGUAGE = VBScript.Encode %>
<%
	Const adOpenForwardOnly = 0
	Const adOpenKeyset = 1
	Const adOpenDynamic = 2
	Const adOpenStatic = 3
	Const adLockReadOnly = 1
	Const adLockPessimistic = 2
	Const adLockOptimistic = 3
	Const adLockBatchOptimistic = 4
	set CONN = Server.CreateObject("ADODB.Connection")
    CONNSTR="DBQ="+server.mappath("/database/ipdata.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UserCommitSync=Yes;"
    CONN.open CONNSTR,"",""  
	set RS = Server.CreateObject("ADODB.RecordSet")
	set RS1 = Server.CreateObject("ADODB.RecordSet")

IF REQUEST("SEARCH") <> "" THEN
		'计算随即   			
   			SQL = "SELECT * FROM CARD_NAME WHERE CLASS_NO LIKE '%" & REQUEST("SEEKINFO") & "%'"
   			SQL = SQL & " OR CARD_NO LIKE '%" & REQUEST("SEEKINFO") & "%' OR "
   			SQL = SQL & " CARD_NAME LIKE '%" & REQUEST("SEEKINFO") & "%' OR "
   			SQL = SQL & " CARD_PRICE LIKE '%" & REQUEST("SEEKINFO") & "%' OR "
   			SQL = SQL & " CARD_PRICE_A LIKE '%" & REQUEST("SEEKINFO") & "%' OR "
   			SQL = SQL & " CARD_UNIT LIKE '%" & REQUEST("SEEKINFO") & "%' OR "
   			SQL = SQL & " CARD_PIC LIKE '%" & REQUEST("SEEKINFO") & "%' OR "
   			SQL = SQL & " CARD_LINK LIKE '%" & REQUEST("SEEKINFO") & "%' OR "
   			SQL = SQL & " CARD_DESC LIKE '%" & REQUEST("SEEKINFO") & "%'"
   			RS.Open SQL,CONN,adOpenKeyset ,adLockReadOnly
					IF RS.RecordCount >0 THEN
				RS.MoveLast 
			RECO=RS.RecordCount 
			AA = RECO MOD 10
			IF AA = 0 THEN
			PAGE = INT(RECO/10)
			ELSE
			PAGE = INT(RECO/10)+1
			END IF
			RS.MoveFirst 
				'定位页数
				PageNo = Request("PageNo")
				if PageNo <> "" Then
				
				else
					PageNo=1
				
				End AA==^#~@%>
<SCRIPT language="javaSCRIPT" src="../include/card_ip_fun.js"></script>
<html>
<head>
<title>最便宜的IP卡——易卡网！</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
.height {  line-height: 0.5pt}
td {  }
.word {  font-size: 9pt; color: #FFFFFF}
a:hover {  color: #999999; text-decoration: underline}
a {  color: #003366; text-decoration: none}
.border {  border-color: black #FF3300 black black; border-style: solid; border-top-width: 0px; border-right-width: 1px; border-bottom-width: 0px; border-left-width: 0px}
.bian {  border: 1px #6699CC solid; font-size: 9pt; line-height: 9pt}
-->
</style>
</head>

<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0">
<table width="775" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr> 
    <td width="41" rowspan="2" bgcolor="#6699CC">&nbsp;</td>
    <td width="158" valign="top" rowspan="2" bgcolor="#6699CC"><img name="default_r1_c2" c_r1_c2.jpg" width="158" height="50" border="0" src="/images/default_r1_c2.jpg"></td>
    <td width="135" height="7">&nbsp;</td>
    <td width="39" valign="top" height="7"> 
      <div align="right"><img name="default_r1_c4" src="/images/default_r1_c4.jpg" width="30" height="20" border="0"></div>
    </td>
    <td colspan="2" height="7" bgcolor="#000000"> 
      <table width="100%" border="0" cellspacing="0" cellpadding="0" class="word">
        <tr class="word"> 
          <td height="2"> 
            <div align="center">·<a href="/member/member_register.asp" target="_blank"><font color="#FFFFFF">会员注册</font></a></div>
          </td>
          <td height="2"> 
            <div align="center">·<a href="/member/login.asp" target="_blank"><font color="#FFFFFF">会员登陆</font></a></div>
          </td>
          <td height="2"> 
            <div align="center">·<a href="/member/login_out.asp" target="_blank"><font color="#FFFFFF">会员注销</font></a></div>
          </td>
          <td height="2"> 
            <div align="center">·<a href="/help/index.htm" target="_blank"><font color="#FFFFFF">帮助信息</font></a></div>
          </td>
          <td height="2"> 
            <div align="center">·<a href="/sales/order_bqz.asp" target="_blank"><font color="#FFFFFF">查看购物车</font></a></div>
          </td>
          <td height="2"> 
            <div align="center">·<a href="/sales/order_buy.asp" target="_blank"><font color="#FFFFFF">收银台</font></a></div>
          </td>
        </tr>
      </table>
    </td>
  </tr>
  <tr> 
    <td width="135" height="27">&nbsp;</td>
    <td width="39" valign="top" height="27">&nbsp;</td>
    <td width="208" height="27"> 
      <div align="center"><font color="#FF0000"><img src="/images/logo.jpg" width="30" height="30"></font><img name="default_r2_c6" src="/images/default_r2_c6.jpg" width="178" height="30" border="0" align="absmiddle"></div>
    </td>
    <td width="194" height="27"> 
      <div align="center"><font color="#FF6600">|</font><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=4,0,2,0" width="150" height="30" align="absmiddle">
          <param name=movie value="/images/ecard.swf">
          <param name=quality value=high>
          <embed src="/images/ecard.swf" quality=high pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" width="150" height="30" align="absmiddle">
          </embed> 
        </object><font color="#FF6600">|</font></div>
    </td>
  </tr>
</table>
<table width="775" border="0" cellspacing="0" cellpadding="0" align="center" class="height">
  <tr> 
    <td height="2">&nbsp;</td>
  </tr>
</table>
<table width="775" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#6098C8">
  <tr class="word"> 
    <td width="18" height="19">&nbsp;</td>
    <td width="67" height="19"><a href="/sales/default.asp"><font color="#FFFFFF">商品选购</font></a> 
      |</td>
    <td width="68" height="19"><a href="/sales/newpro.htm"><font color="#FFFFFF">新品快递</font></a> 
      |</td>
    <td width="69" height="19"><a href="/bbs/default.asp"><font color="#FFFFFF">寄售园地</font></a> 
      |</td>
    <td width="69" height="19"><a href="/faq/default.htm"><font color="#FFFFFF">相关知识</font></a> 
      |</td>
    <td width="71" height="19"><a href="/member/default.asp"><font color="#FFFFFF">服务中心</font></a> 
      |</td>
    <td width="70" height="19"><a href="mailto:webmaster@ip-card.net"><font color="#FFFFFF">联系我们</font></a> 
      |</td>
    <td width="51" height="19">&nbsp;</td>
    <td width="292" height="19">&nbsp;</td>
  </tr>
</table>
<br>
<span class="bian"></span> 
<form method="post"  name="formCart">
<table width="775" border="1" cellspacing="0" cellpadding="1" align="center" bordercolorlight="#6098C8" bordercolordark="#CCFFFF">
  <tr bgcolor="#99CCFF"> 
    <td width="87" height="19" class="word"> 
      <div align="center"><font color="#000000">商品号码</font></div>
    </td>
    <td width="181" height="19" class="word"> 
      <div align="center"><font color="#000000">商品名称</font></div>
    </td>
    <td width="132" height="19" class="word"> 
      <div align="center"><font color="#000000">零售价格</font></div>
    </td>
    <td width="130" height="19" class="word"> 
      <div align="center"><font color="#000000">优惠价格</font></div>
    </td>
    <td width="73" height="19" class="word"> 
      <div align="center"><font color="#000000">数量</font></div>
    </td>
    <td width="146" height="19" class="word"> 
      <div align="center"><font color="#000000">订购</font></div>
    </td>
  </tr>
  <%
  I = 1
			RS.PageSize = 10	'每页一10条
			RS.AbsolutePage = PageNo
		RowCount = RS.PageSize
		Do While Not RS.EOF and RowCount > 0 
^#~@%>
  <tr> 
    <td width="87" height="18" class="word"> 
      <div align="center"><font color="#000000"><a href=order.asp?card_no=<%=RS("CARD_NO")%> TARGET='_BANK'><%=RS("CARD_NO")%></a></font></div>
    </td>
    <td width="181" height="18" class="word"> 
      <div align="center"><font color="#000000"><%=RS("CARD_NAME")%></font></div>
    </td>
    <td width="132" height="18" class="word"> 
      <div align="center"><font color="#000000"><%=RS("CARD_PRICE")%></font></div>
    </td>
    <td width="130" height="18" class="word"> 
      <div align="center"><font color="#000000"><%=RS("CARD_PRICE_A")%></font></div>
    </td>
    <td width="73" height="18" class="word"> 
      <div align="center"><font color="#000000">
          <input type="text" name="number<%=I%>" size="3" value="1">
        </font></div>
    </td>
      <td width="146" height="18" class="word"> 
        <div align="center"><a target="cart" style="cursor:hand" onClick="javascript:AddToCart(document.formCart.number<%=I%>.value,'<%=RS("CARD_NO")%>','<%=RS("CARD_NAME")%>','<%=RS("CARD_UNIT")%>','<%=RS("CARD_PRICE")%>','<%=RS("CARD_PRICE_A")%>','insert')"><img src="/images/cart.gif"></a></div>
      </td>
</tr>
  <%
			I = I + 1
			RS.MoveNext
			RowCount = RowCount - 1
			Loop
			RS.Close 
  %>
</table>
</form>
<form method="post" action="class_detail.asp" name="un">
 <table width="60%" border="0" class="main" bordercolor="#000000" bordercolordark="#333333" bordercolorlight="#666666" cellspacing="0" height="16" align=right>
  <tr bordercolor="#FFCCFF" class="word"> 
    <td width="17%"> 
      <div align="right"><font color="#000000">总计：</font></div>
    </td>
    <td width="15%"> <font color="#000000"> </font> 
      <div align="right"><font color="#000000"><%=PAGE%>&nbsp;页</font></div>
    </td>
    <td width="33%"> 
      <div align="right"><font color="#000000">显示 
      <input type=hidden name=class_no value="<%=REQUEST("CLASS_NO")%>">
        <input type="text" name="PageNo" size="4" maxlength="6">
        页 
        <input type="submit" name="Search" value="Go">
        </font></div>
    </td>
    <td width="15%"> <font color="#000000"> </font> 
      <div align="right"><font color="#000000"><a href="class_detail.asp.aspPageNo=<%=PageNo-1%>&amp;search=all&class_no=<%=request("class_no")%>"> 
        </a><%
                IF INT(PageNo) >1 THEN
                %><a href="class_detail.asp.aspPageNo=<%=PageNo-1%>&amp;search=all&class_no=<%=request("class_no")%>">上一页 
        </a> <%
                ELSE
                %> 上一页 <%
                END IF
                %> </font></div>
    </td>
    <td width="20%"> <font color="#000000"> </font> 
      <div align="right"><font color="#000000"><%
                IF INT(PageNo) <=INT(PAGE) AND INT(PageNo+1) <INT(PAGE) THEN
                %><a href="class_detail.asp.asp?&PageNo=<%=PageNo+1%>&search=all&class_no=<%=request("class_no")%>">下一页</a> 
        <%
                ELSE
                %> 下一页 <%
                END IF
                %> </font></div>
    </td>
  </tr>
</table>
</form>
<table width="400" border="0" cellspacing="0" cellpadding="0" align="center" class="word">
  <tr>
    <td>
      <div align="center"><font color="#000066">&copy;1999-2001 百泉斋电子商务有限公司</font></div>
    </td>
  </tr>
</table>
</body>
</html>
<%
END IF
END IF
%>