top.asp

体育商城

<%
set bclass = Server.CreateObject("ADODB.Recordset")
bclass.ActiveConnection = MM_conn_STRING
bclass.Source = "SELECT * FROM bclass"
bclass.CursorType = 0
bclass.CursorLocation = 2
bclass.LockType = 3
bclass.Open()
bclass_numRows = 0
%>
<%
' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters

' create the list of parameters which should not be maintained
MM_removeList = "&index="
If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "="
MM_keepURL="":MM_keepForm="":MM_keepBoth="":MM_keepNone=""

' add the URL parameters to the MM_keepURL string
For Each Item In Request.QueryString
  NextItem = "&" & Item & "="
  If (InStr(1,MM_removeList,NextItem,1) = 0) Then
    MM_keepURL = MM_keepURL & NextItem & Server.URLencode(Request.QueryString(Item))
  End If
Next

' add the Form variables to the MM_keepForm string
For Each Item In Request.Form
  NextItem = "&" & Item & "="
  If (InStr(1,MM_removeList,NextItem,1) = 0) Then
    MM_keepForm = MM_keepForm & NextItem & Server.URLencode(Request.Form(Item))
  End If
Next

' create the Form + URL string and remove the intial '&' from each of the strings
MM_keepBoth = MM_keepURL & MM_keepForm
if (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)
if (MM_keepURL <> "")  Then MM_keepURL  = Right(MM_keepURL, Len(MM_keepURL) - 1)
if (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)

' a utility function used for adding additional parameters to these strings
Function MM_joinChar(firstItem)
  If (firstItem <> "") Then
    MM_joinChar = "&"
  Else
    MM_joinChar = ""
  End If
End Function
%>

<script language="JavaScript1.2">
<!--

//定制下面的信息适应你的页面。
var bookmarkurl="http://www.baicai.com"
var bookmarktitle="白菜体育商城"

function addbookmark(){
if (document.all)
window.external.AddFavorite(bookmarkurl,bookmarktitle)
}

function MM_openBrWindow(theURL,winName,features) { //v2.0
  window.open(theURL,winName,features);
}
//-->
</script>
<link rel="stylesheet" href="ddd.css" type="text/css">

<table width="771" border="0" cellspacing="0" cellpadding="0" align="center" height="41" class="bk">
  <tr> 
    <td height="50" width="153"><img src="images/baicai.gif" width="153" height="60"></td>
    <td height="50" width="468"><img src="images/ban.gif" width="468" height="60"></td>
    <td height="50" width="150" class="bk3" valign="bottom"> 
      <div align="center"><font color="#CCCCCC" class="text">
        <script>
//if the user is using IE 4+
if (document.all)
document.write('<a href="javascript:addbookmark()"><font color=#000000  class="dfont">加入收藏</font></a>')
</script>
        </font><br>
        <span  onclick="var strHref=window.location.href;this.style.behavior='url(#default#homepage)';this.setHomePage('http://www.baicai.com');"  style="CURSOR: hand"> 
        设为首页</span><br>
        <a href="guestbook.asp" target="_blank">访客留言</a><br>
      </div>
      <div align="center"> 
        <% If (session("mm_username")) <> ("") Then 'script %>
        <b><font color="#990000"><%= Session("mm_username") %></font>欢迎您！<a href="loginok1.asp"><font color="#000000">我的资料</font></a> 
        </b> 
        <% End If ' end If (session("mm_username")) <> ("") script %>
        <% If (session("mm_username")) = ("") Then 'script %>
        <b>游客欢迎您！</b> 
        <% End If ' end If (session("mm_username")) = ("") script %>
      </div>
    </td>
  </tr>
  <tr> 
    <td height="22" background="images/dhang1.gif" colspan="3"> 
      <table width="100%" border="0" cellspacing="0" cellpadding="0" height="8">
        <tr> 
          <td width="89%" height="2"> 
            <table width="78%" border="0" cellspacing="0" cellpadding="0" height="12">
              <%
startrw = 0
endrw = HLooper1__index
numberColumns = 7
numrows = 1
while((numrows <> 0) AND (Not bclass.EOF))
	startrw = endrw + 1
	endrw = endrw + numberColumns
 %>
              <tr> 
                <%
While ((startrw <= endrw) AND (Not bclass.EOF))
%>
                <td> 
                  <table width="94%" border="0" cellspacing="0" cellpadding="0" height="14" align="center">
                    <tr> 
                      <td> 
                        <div align="center"><font color="#FFCC00"><b></b><span class="dfont"><b><font color="#FFFFFF"><a href="bclass.asp?<%= MM_keepNone & MM_joinChar(MM_keepNone) & "bclassid=" & bclass.Fields.Item("bclassid").Value %>"><%=(bclass.Fields.Item("bclassname").Value)%></a></font></b></span></font></div>
                      </td>
                    </tr>
                  </table>
                </td>
                <%
	startrw = startrw + 1
	bclass.MoveNext()
	Wend
	%>
              </tr>
              <%
 numrows=numrows-1
 Wend
 %>
            </table>
          </td>
          <td width="11%" height="2"> 
            <div align="center"><a href="orderxx.asp"><img src="images/lookorder.gif" width="86" height="20" border="0"></a></div>
          </td>
        </tr>
      </table>
    </td>
  </tr>
</table>
<%
bclass.Close()
%>