📄 bclass.asp

📁 体育商城
💻 ASP
📖 第 1 页 / 共 4 页
字号:
上一页 1 2 34
<link rel="stylesheet" href="ddd.css" type="text/css">
<script language="JavaScript">
<!--
function MM_popupMsg(msg) { //v1.0
  alert(msg);
}
//-->
</script>
<SCRIPT language=javascript>
var nn = !!document.layers;
var ie = !!document.all;

if (nn) {
  netscape.security.PrivilegeManager.enablePrivilege("UniversalSystemClipboardAccess");
  var fr=new java.awt.Frame();
  var Zwischenablage = fr.getToolkit().getSystemClipboard();
}

function submitonce(theform){
//if IE 4+ or NS 6+
if (document.all||document.getElementById){
//screen thru every element in the form, and hunt down "submit" and "reset"
for (i=0;i<theform.length;i++){
var tempobj=theform.elements[i]
if(tempobj.type.toLowerCase()=="submit"||tempobj.type.toLowerCase()=="reset")
//disable em
tempobj.disabled=true
}
}
}

tPopWait=20;
tPopShow=3500;
showPopStep=20;
popOpacity=80;
sPop=null;
curShow=null;
tFadeOut=null;
tFadeIn=null;
tFadeWaiting=null;
document.write("<style type='text/css'id='defaultPopStyle'>");
document.write(".cPopText {  FONT-FAMILY:Verdana, Arial, Helvetica, sans-serif;FONT-SIZE: 8pt;background-color: #99CC00;color:#000000; border: 1px #444444 solid;font-color: font-size: 12px; padding-right: 4px; padding-left: 4px; height: 20px; padding-top: 2px; padding-bottom: 2px; filter: Alpha(Opacity=0)}");
document.write("</style>");
document.write("<div id='dypopLayer' style='position:absolute;z-index:1000;' class='cPopText'></div>");
function showPopupText(){
var o=event.srcElement;
	MouseX=event.x;
	MouseY=event.y;
	if(o.alt!=null && o.alt!=""){o.dypop=o.alt;o.alt=""};
        if(o.title!=null && o.title!=""){o.dypop=o.title;o.title=""};
	if(o.dypop!=sPop) {
			sPop=o.dypop;
			clearTimeout(curShow);
			clearTimeout(tFadeOut);
			clearTimeout(tFadeIn);
			clearTimeout(tFadeWaiting);	
			if(sPop==null || sPop=="") {
				dypopLayer.innerHTML="";
				dypopLayer.style.filter="Alpha()";
				dypopLayer.filters.Alpha.opacity=0;	
				}
			else {
				if(o.dyclass!=null) popStyle=o.dyclass 
					else popStyle="cPopText";
				curShow=setTimeout("showIt()",tPopWait);
			}
			
	}
}
function showIt(){
		dypopLayer.className=popStyle;
		dypopLayer.innerHTML=sPop;
		popWidth=dypopLayer.clientWidth;
		popHeight=dypopLayer.clientHeight;
		if(MouseX+12+popWidth>document.body.clientWidth) popLeftAdjust=-popWidth-24
			else popLeftAdjust=0;
		if(MouseY+12+popHeight>document.body.clientHeight) popTopAdjust=-popHeight-24
			else popTopAdjust=0;
		dypopLayer.style.left=MouseX+12+document.body.scrollLeft+popLeftAdjust;
		dypopLayer.style.top=MouseY+12+document.body.scrollTop+popTopAdjust;
		dypopLayer.style.filter="Alpha(Opacity=0)";
		fadeOut();
}

function fadeOut(){
	if(dypopLayer.filters.Alpha.opacity<popOpacity) {
		dypopLayer.filters.Alpha.opacity+=showPopStep;
		tFadeOut=setTimeout("fadeOut()",1);
		}
		else {
			dypopLayer.filters.Alpha.opacity=popOpacity;
			tFadeWaiting=setTimeout("fadeIn()",tPopShow);
			}
}

function fadeIn(){
	if(dypopLayer.filters.Alpha.opacity>0) {
		dypopLayer.filters.Alpha.opacity-=1;
		tFadeIn=setTimeout("fadeIn()",1);
		}
}
document.onmouseover=showPopupText;
</SCRIPT>
</head>
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="2" marginwidth="0" marginheight="0">
<SCRIPT language=javascript>
<!--
document.ns = navigator.appName == "Netscape"
window.screen.width>800 ? imgheight=110:imgheight=110
window.screen.width>800 ? imgleft=110:imgleft=110
function qingzuiload()
{
if (navigator.appName == "Netscape")
{document.qingzui.pageY=pageYOffset+window.innerHeight-imgheight;
document.qingzui.pageX=pageXOffset+window.innerWidth-imgleft;
qingzuimove();
}
else
{
qingzui.style.top=document.body.scrollTop+document.body.offsetHeight-imgheight;
qingzui.style.left=document.body.offsetWidth-imgleft;
qingzui2.style.top=document.body.scrollTop+document.body.offsetHeight-imgheight-80;
qingzui2.style.left=document.body.offsetWidth-imgleft;
qingzuimove();
}
}
function qingzuimove()
{
if(document.ns)
{
document.qingzui.top=pageYOffset+window.innerHeight-imgheight
document.qingzui.left=pageXOffset+window.innerWidth-imgleft;
setTimeout("qingzuimove();",80)
}
else
{
qingzui.style.top=document.body.scrollTop+document.body.offsetHeight-imgheight;
qingzui.style.left=document.body.offsetWidth-imgleft;
qingzui2.style.top=document.body.scrollTop+document.body.offsetHeight-imgheight-80;
qingzui2.style.left=document.body.offsetWidth-imgleft;
setTimeout("qingzuimove();",80)
}
}

function MM_reloadPage(init) { //reloads the window if Nav4 resized
if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true)

if (navigator.appName == "Netscape")
{document.write("<layer id=qingzui top=300 width=64 height=80><a href=cart.asp><img src=images/lookcart.gif border=0></a></layer>")
qingzuiload()}
else
{
document.write("<div id=qingzui style='position: absolute;width:64;top:300;hidden: visible;z-index: 1'><a href=cart.asp><img src=images/lookcart.gif border=0></a></div>"
+"<div id=qingzui2 style='position: absolute;visibility: hidden;z-index: 10'><img src=images/lookcart.gif></div>");
qingzuiload()
}
//-->
</SCRIPT>
<!--#include file="top.asp" -->
<table width="771" border="0" cellspacing="0" cellpadding="0" align="center" height="258" class="bk1">
  <tr> 
    <td valign="top" height="253"><br>
      <table width="100%" border="0" cellspacing="0" cellpadding="0" height="13" align="center" class="bk">
        <tr> 
          <td height="9" bgcolor="#99CC00" width="165"><a href="default.asp"><font color="#000000">首页</font></a><font color="#000000"><font size="2">→</font><%=(dh.Fields.Item("bclassname").Value)%></font></td>
          <td height="9" width="609" bgcolor="#99CC00"> 
            <table class="dfont" border="0" cellspacing="0" cellpadding="0" align="center">
              <%
startrw = 0
endrw = HLooper1__index
numberColumns = 9
numrows = -1
while((numrows <> 0) AND (Not sclass.EOF))
	startrw = endrw + 1
	endrw = endrw + numberColumns
 %>
              <tr> 
                <%
While ((startrw <= endrw) AND (Not sclass.EOF))
%>
                <td> 
                  <table width="127" border="0" cellspacing="0" cellpadding="0" align="center">
                    <tr> 
                      <td><img src="images/square.gif" width="9" height="9"><font color="#003300" class="dfont"><a href="sclass.asp?bclassid=<%=(sclass.Fields.Item("bclassid").Value)%>&sclassid=<%=(sclass.Fields.Item("sclassid").Value)%>"><%=(sclass.Fields.Item("sclassname").Value)%></a></font></td>
                    </tr>
                  </table>
                </td>
                <%
	startrw = startrw + 1
	sclass.MoveNext()
	Wend
	%>
              </tr>
              <%
 numrows=numrows-1
 Wend
 %>
            </table>
          </td>
          <td height="9" width="10"><img src="images/jiantou.gif" width="18" height="19"></td>
        </tr>
      </table>
      <br>
      <table width="513">
        <%
startrw = 0
endrw = HLooper1__index
numberColumns = 2
numrows = 5
while((numrows <> 0) AND (Not product.EOF))
	startrw = endrw + 1
	endrw = endrw + numberColumns
 %>
        <tr align="center" valign="top"> 
          <%
While ((startrw <= endrw) AND (Not product.EOF))
%>
          <td height="192"> 
            <table width="363" border="0" cellspacing="3" cellpadding="0" align="center" class="dfont" height="180">
              <tr> 
                <td height="81" rowspan="6" width="86"> 
                  <div align="center"><A HREF="product.asp?<%= MM_keepNone & MM_joinChar(MM_keepNone) & "productid=" & product.Fields.Item("productid").Value %>"><img src="images/product/<%=(product.Fields.Item("images").Value)%>" border="0" alt="<%=(product.Fields.Item("productname").Value)%>" width="90" height="90"></A></div>
                </td>
                <td height="5" width="296"><b><A HREF="product.asp?<%= MM_keepNone & MM_joinChar(MM_keepNone) & "productid=" & product.Fields.Item("productid").Value %>" target="_blank"><%=(product.Fields.Item("productname").Value)%></A> 
                  <% If (product.Fields.Item("dazhe").Value) = (-1) Then 'script %>
                  <img src="images/hotprice.gif" width="24" height="24"> 
                  <% End If ' end If (product.Fields.Item("dazhe").Value) = (-1) script %>
                  </b></td>
              </tr>
              <tr> 
                <td height="2" width="296">商品编号：<%=(product.Fields.Item("productid").Value)%></td>
              </tr>
              <tr> 
                <td height="2" width="296">生产厂商：<%=(product.Fields.Item("changshang").Value)%></td>
              </tr>
              <tr> 
                <td height="8" width="296"> 
                  <% If (product.Fields.Item("dazhe").Value) <> (-1) Then 'script %>
                  价格：<font color="#FF0000"><%=(product.Fields.Item("yprice").Value)%><font color="#000000" class="dfont">元</font></font> 
                  <% End If ' end If (product.Fields.Item("dazhe").Value) <> (-1) script %>
                  <% If (product.Fields.Item("dazhe").Value) = (-1) Then 'script %>
                  原价：<font color="#FF0000"><font color="#FF0033"><span class="hot"><%=(product.Fields.Item("yprice").Value)%></span></font><span class="hot"><font color="#000000">元</font></span></font>　特价：<font color="#FF0000"><%=(product.Fields.Item("xprice").Value)%><font color="#000000">元</font></font> 
                  <% End If ' end If (product.Fields.Item("dazhe").Value) = (-1) script %>
                </td>
              </tr>
              <tr> 
                <td height="29" width="296"> 
                  <div align="right"><A HREF="<%=(UC_AddLink + CStr(UC_rs.Fields.Item(UC_uniqueCol).Value)) %>"><img border=0 src="images/mai.gif" width="67" height="15" onClick="MM_popupMsg('此商品已经添加到您的购物车，请继续购买。')"></A></div>
                </td>
              </tr>
              <tr> 
                <td height="29" width="296"> 
                  <% =(DoTrimProperly((product.Fields.Item("productjs").Value), 50, 0, 1, ",,,")) %>
                </td>
              </tr>
              <tr> 
                <td height="2" colspan="2"> 
                  <div align="center"><img src="images/line204.gif" width="350" height="1"></div>
                </td>
              </tr>
            </table>
          </td>
          <%
	startrw = startrw + 1
	product.MoveNext()
	Wend
	%>
        </tr>
        <%
 numrows=numrows-1
 Wend
 %>
      </table>
      <div align="center"> 
        <% If product.EOF And product.BOF Then %>
        <font color="#FF0000"><b>对不起，暂时没有此商品！！！</b></font> 
        <% End If ' end product.EOF And product.BOF %>
        <br>
        <% 
Forward = ">>>"
Backward = "<<<"
Delimiter = " | "
Rec_Name = product_total
List_Num = 10
Godspeed = 1
if request.querystring("god") <> "" then 
Godspeed = request.querystring("god")
end if
if Godspeed <> 1 then
Response.Write("<a href=" & Request.ServerVariables("URL") & "?" & MM_keepMove & "offset=" & Godspeed - MM_Size - 1 & "&god=" & Godspeed - MM_Size * List_Num & ">") 
Response.Write(Backward & "</a>  ")
end if
if Rec_Name < Godspeed + MM_Size * List_Num then
Matrix = Rec_Name
else
Matrix = Godspeed + MM_Size * (List_Num - 1) 
end if
if MM_size=0 then
   mm_size=1
end if

TM_counter = ( Godspeed - 1 )/MM_Size
For i = Godspeed to Matrix step MM_Size 
TM_counter = TM_counter + 1
if i <> MM_offset + 1 then
Response.Write("<a href=" & Request.ServerVariables("URL") & "?" & MM_keepMove & "offset=" & i-1 & "&god=" & Godspeed & ">")
Response.Write(TM_counter & "</a>")
else
Response.Write("<b>" & TM_counter & "</b>")
End if
if( i <= Matrix - MM_Size ) then Response.Write(Delimiter)
next
if Rec_Name > Godspeed + MM_Size * List_Num - 1 then
Response.Write("  <a href=" & Request.ServerVariables("URL") & "?" & MM_keepMove & "offset=" & Godspeed + MM_Size * List_Num - 1 & "&god=" & Godspeed + MM_Size * List_Num & ">") 
Response.Write(Forward & "</a>")
end if
%>
      </div>
    </td>
  </tr>
</table>
<br><!--#include file="bottom.asp" -->
<p class="dfont">&nbsp;</p>
</body>
</html>
<%
sclass.Close()
set sclass=nothing
%>
<%
dh.Close()
set dh=nothing
%>
<%
product.Close()
set product=nothing
%>

<html></html>
上一页 1 2 34
⌨️ 快捷键说明

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