⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 list.asp

📁 购物系统(本版为正式商业版
💻 ASP
📖 第 1 页 / 共 3 页
字号:
                            </td>
                          </tr>
                          <tr>
                            <td height="1" colspan="2" class="td_margin1"><img src="/img/skin<%=cssid%>/x.gif" width="149" height="1"></td>
                          </tr>
                          <%rss.movenext
		    wend
		    rss.close
			set rss=nothing%>
                      </table></td>
                    </tr>
                </table></td>
              </tr>
          </table></td>
        </tr>
      </table>
      <%end if%>
      <table width="180" border="0" align="center" cellpadding="0" cellspacing="0" background="img/lf_bg.gif" class="sm_gray">
        <tr>
          <td height="12"></td>
        </tr>
        <tr>
          <td><img src="img/lf_tl_best15.gif" width="180" height="40"></td>
        </tr>
        <tr>
          <td>
          </td>
        </tr>
      </table>
      <table width="180"  border="0" align="center" cellpadding="0" cellspacing="0" background="img/lf_bg.gif">
        <tr>
          <td><table width="100%"  border="0" align="center" cellpadding="0" cellspacing="0">
              <tr>
                <td><table width="100%"  border="0" align="center" cellpadding="0" cellspacing="0">
                    <tr>
                      <td><TABLE WIDTH="160" BORDER="0" CELLSPACING="0" CELLPADDING="0" ALIGN="CENTER">
                        <TR>
                          <TD>
                            <TABLE WIDTH="100%" BORDER="0" CELLSPACING="0" CELLPADDING="0">
                              <%
							  	   sorts2=gjz
	  sorts2=trim(sorts2)
	if sorts2<>"" then 
	   bsort2=split(sorts2,",")
	  for i=0 to ubound(bsort2)
	   bsortb2=bsort2(i)
	   bsortb2=trim(bsortb2)
x=0
shopList=6
set rs1=server.createobject("adodb.recordset")
sql="select * from shop_snsn where shopname<>'"&shopname&"' and shopcontent like '%"&bsortb2&"%'  "
rs1.Open sql,conn,1,1
do while not rs1.eof
	x=x+1
%>
<TR>
                                <TD VALIGN="top" HEIGHT="22" ><A HREF="list.asp?id=<%=rs1("shopid")%>"><%if len(trim(rs1("shopname")))>16 then
	response.write left(trim(rs1("shopname")),16)&".."
	else
	response.write trim(rs1("shopname"))
	end if%></A></TD>
                              </TR><tr>
                            <td height="1" colspan="2" class="td_margin1"><img src="/img/skin<%=cssid%>/x.gif" width="149" height="1"></td>
                          </tr>
                              <%
	if x>=shopList then exit do
rs1.movenext
loop
rs1.close
next
		  end if
%>
                          </TABLE></TD>
                        </TR>
                      </TABLE></td>
                    </tr>
                </table></td>
              </tr>
          </table></td>
        </tr>
      </table>
      <div align="center"><img src="/img/lf_img_bt.gif" width="180" height="9"></div>
      <map name="derectgo" id="derectgo">
        <area shape="rect" coords="136,19,170,32" href="#" alt="MORE">
      </map>
      <table width="180" border="0" align="center" cellpadding="0" cellspacing="0" background="img/lf_bg.gif" class="sm_gray">
        <tr>
          <td height="12"></td>
        </tr>
        <tr>
          <td><img src="img/lf_tl_best16.gif" width="180" height="40"></td>
        </tr>
        <tr>
          <td>
          </td>
        </tr>
      </table>
      <table width="180"  border="0" align="center" cellpadding="0" cellspacing="0" background="img/lf_bg.gif">
        <tr>
          <td><table width="100%"  border="0" align="center" cellpadding="0" cellspacing="0">
              <tr>
                <td><table width="100%"  border="0" align="center" cellpadding="0" cellspacing="0">
                    <tr>
                      <td><table width="98%" border="0" cellpadding="0" cellspacing="1">
                        <form action=pinglun.asp method=post name="pinglunform" id="pinglunform">
                          <tr >
                            <td width="50%" height="11" >&nbsp;姓名:
                                <input name="pinglunname" class="wenbenkuang"type="text" id="pinglunname" size="14">
                            </td>
                          </tr>
                          <tr>
                            <td height="11">&nbsp;标题:
                                <input name="pingluntitle"  class="wenbenkuang"type="text" id="pingluntitle2" size="14"></td>
                          </tr>
                          <tr >
                            <td height="23">&nbsp;评级:
                                <select name="pingji" id="select2">
                                  <option value="5">五星级</option>
                                  <option value="4">四星级</option>
                                  <option value="3">三星级</option>
                                  <option value="2">二星级</option>
                                  <option value="1">一星级</option>
                                </select>
                                <input name="id" type="hidden" value=<%=request("id")%>>
                                <input name="shopname" type="hidden" value=<%=shopname%>>
                            </td>
                          </tr>
                          <tr >
                            <td height="12" align="center" valign="top" >
                                <table width="100%" border="0" cellspacing="0" cellpadding="0">
                                  <tr>
                                    <td><img height=5 src="img/block.gif" width=1></td>
                                  </tr>
                                </table>
                                <textarea name="pingluncontent"border-right: #ffffff 1px groove; border-top: border-left: color: #333333; border-bottom: height: 18px;  cols="20" rows="3" id="textarea2" class="wenbenkuang">填写评论正文</textarea>
                                <table width="100%" border="0" cellspacing="0" cellpadding="0">
                                  <tr>
                                    <td><img height=5 src="img/block.gif" width=1></td>
                                  </tr>
                              </table></td>
                          </tr>
                          <tr >
                            <td height="6"> 
                              <input name="syh" type="checkbox" id="syh" value="1" checked>
        [加入本商品商友会]  </td>
                          </tr>
                          <tr>
                            <td height="7"><font 
                  color=#000000><b><strong>&nbsp;<font color="<%=flzhzt%>"></font></strong></b></font>
                                <input name="Submit" type="submit" class="go-wenbenkuang" value="提交保存" onClick="return check();">
                                <input name="Submit22" type="reset" class="go-wenbenkuang" value="重置">
                            </td>
                          </tr>
                        </form>
                      </table></td>
                    </tr>
                </table></td>
              </tr>
          </table></td>
        </tr>
      </table>
      <div align="center"><img src="/img/lf_img_bt.gif" width="180" height="9"></div>
      <map name="derectgoMap" id="derectgo2">
        <area shape="rect" coords="136,19,170,32" href="#" alt="MORE">
      </map></td>
    <td valign="top"><table width="90%"  border="0" align="center" cellpadding="0" cellspacing="0">
      <tr>
        <td height="8"></td>
      </tr>
    </table>     
      <%
		'call history
if session("username")<>"" then 
set rs_s=server.CreateObject("adodb.recordset")
rs_s.open "select * from [shop_user] where username='"&checkFFSQLStr(session("username"))&"'",conn,1,1
t_userid=rs_s("userid")
rs_s.close
		    set rs_s=server.createobject("adodb.recordset")
		    rs_s.open "select * from shop_his where shopid="&request("id")&" and username='"&checkFFSQLStr(session("username"))&"' and lx=1",conn,1,3
		    if rs_s.recordcount>0 then 
			rs_s("ltime")=now()
			rs_s("userid")=t_userid
			rs_s.update
			rs_s.close
			set rs_s=nothing
		    else
		    	rs_s.close
		    	set rs_s=server.createobject("adodb.recordset")
		    	rs_s.open "select * from shop_his where username='"&checkFFSQLStr(session("username"))&"' and lx=1 order by ltime",conn,1,3
		    	if rs_s.recordcount>=4 then
		    	    rs_s.delete
		    	    rs_s.update
		    	end if
		    	rs_s.addnew
		    	    rs_s("username")=session("username")
		    	    rs_s("shopid")=request("id")
		    	    rs_s("shopname")=shopname
			        rs_s("userid")=t_userid
		    	    rs_s("lx")=1
		    	    rs_s("ltime")=now()
		        rs_s.update
			rs_s.close
			set rs_s=nothing
		    end if
end if
		%>
      <table width="98%" height="30" border="0" align="center" cellpadding="0" cellspacing="0" background="/img/skin<%=cssid%>/newsbj.gif">
        <tr>
          <td width="67%" align="center">
            <MARQUEE onmouseover=this.stop(); onmouseout=this.start(); scrollAmount=3 scrollDelay=80 width=100%>
            <%
				set rss=server.createobject("adodb.recordset")
		rss.open "select Top 9 * From shop_yh  order by id desc",conn,1,1
		if rss.recordcount>0 then 
		%>
      <a href=list.asp?id=<%=rss("shopid")%> title=<%=year(rss("adddate"))%>年<%=month(rss("adddate"))%>月<%=day(rss("adddate"))%>日建立><span class="style1"><%=rss("username")%></span>加入 <%=trim(rss("shopname"))%> 的商友会: <%=rss("py")%> </a>
      <%
		end if
		rss.close
		set rss=nothing
		%>
            </MARQUEE>
          </td>
          <td width="33%" align="center">该商品已经被游览<span class="style1"><%=hot%></span>次|已成功销售<span class="style1"><%=xiao%></span>次</td>
        </tr>
      </table><br>
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td>
            <table width="100%"  border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td><table width="100%" border="0" cellspacing="0" cellpadding="2">
                    <tr valign="top">
                      <td width="99%" align="center">

					  <script LANGUAGE="javascript">
var cpAD=new Array(); 
var cpADlink=new Array(); 
var cpADmsg=new Array(); 
var adNum=5; 
var coll=0;

cpAD[0]="<%=zhuang%>"; 
cpADlink[0]="<%=zhuang%>"; 
cpADmsg[0]="1"; 

cpAD[1]="<%=p1%>"; 
cpADlink[1]="<%=p1%>"; 
cpADmsg[1]="2"; 


cpAD[2]="<%=p2%>"; 
cpADlink[2]="<%=p2%>"; 
cpADmsg[2]="3"; 

cpAD[3]="<%=p3%>"; 
cpADlink[3]="<%=p3%>"; 
cpADmsg[3]="4"; 

cpAD[4]="<%=p4%>"; 
cpADlink[4]="<%=p4%>"; 
cpADmsg[4]="5"; 

var preloadedimages=new Array(); 
for (i=1;i<cpAD.length;i++){ 
preloadedimages[i]=new Image(); 
preloadedimages[i].src=cpAD[i]; 
} 

function jump2url()
{ 
jumpUrl=cpADlink[adNum]; 
jumpTarget='_blank'; 
if (jumpUrl != '')
{ 
	if (jumpTarget != '')
		window.open(jumpUrl,jumpTarget); 
	else location.href=jumpUrl; 
	} 
}
function changeimg(n)
{
	adNum=n;
	switch(adNum)
	{
	case 0:
	{
		window.img1.src="img/list/1-2.gif";
		window.img2.src="img/list/2.gif";
		window.img3.src="img/list/3.gif";
		window.img4.src="img/list/4.gif";
		window.img5.src="img/list/5.gif";
		break;
	}
	case 1:
	{
		window.img1.src="img/list/1.gif";
		window.img2.src="img/list/2-2.gif";
		window.img3.src="img/list/3.gif";
		window.img4.src="img/list/4.gif";
		window.img5.src="img/list/5.gif";
		break;
	}
	case 2:
	{
		window.img1.src="img/list/1.gif";
		window.img2.src="img/list/2.gif";
		window.img3.src="img/list/3-2.gif";
		window.img4.src="img/list/4.gif";
		window.img5.src="img/list/5.gif";
		break;
	}
		case 3:
	{
		window.img1.src="img/list/1.gif";
		window.img2.src="img/list/2.gif";
		window.img3.src="img/list/3.gif";
		window.img4.src="img/list/4-2.gif";
		window.img5.src="img/list/5.gif";
		break;
	}
		case 4:
	{
		window.img1.src="img/list/1.gif";
		window.img2.src="img/list/2.gif";
		window.img3.src="img/list/3.gif";
		window.img4.src="img/list/4.gif";
		window.img5.src="img/list/5-2.gif";
		break;
	}
	}
	window.clearInterval(theTimer);
	adNum=adNum-1;
	nextAd();
}
function nextAd(){ 
coll++;
if(coll>1)
{
switch(adNum+1)
{
	case 5:
	{
		window.img1.src="img/list/1-2.gif";
		window.img2.src="img/list/2.gif";
		window.img3.src="img/list/3.gif";
		window.img4.src="img/list/4.gif";
		window.img5.src="img/list/5.gif";
		break;
	}
	case 1:
	{

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -