bottom.asp

体育商城

<%
set Recordset11 = Server.CreateObject("ADODB.Recordset")
Recordset11.ActiveConnection = MM_conn_STRING
Recordset11.Source = "SELECT * FROM gsjs"
Recordset11.CursorType = 0
Recordset11.CursorLocation = 2
Recordset11.LockType = 3
Recordset11.Open()
Recordset11_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
%>
<%
' *** This is a sample counter write by xPilot ***
' *** Something question please visite http://pilothome.yeah.net ***
' *** or mail to [e-mail] ***
MM_xp_count_ODBC  = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="& Server.Mappath("XP_Counter.mdb")
MM_xp_count_OLEDB = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.Mappath("XP_Counter.mdb")
set rs_count = Server.CreateObject("ADODB.Recordset")
rs_count.ActiveConnection = MM_xp_count_ODBC
rs_count.Source = "SELECT * FROM xp_count WHERE id = 1"
rs_count.CursorType = 0
rs_count.CursorLocation = 2
rs_count.LockType = 3
rs_count.Open()
rs_count_numRows = 0

Dim xp_Counter,xp_CounterIP,xp_reCounterIP
'判断是否已经访问过
if not session("xp_Counted") then
'取上次计数值
xp_Counter = rs_count("xp_countnum")
rs_count("xp_countnum") = xp_Counter + 1
rs_count.Update
session("xp_Counted") = true
end if
'获得最新计数值
xp_Counter = rs_count("xp_countnum")  
'取所需计数字符长度
Length = Len(xp_Counter)
%>
<table width="771" border="1" cellspacing="2" cellpadding="0" align="center" class="bk" bordercolor="#FFFFFF" bgcolor="#FFFFFF" height="34">
  <tr bgcolor="#99CC00"> 
    <td height="10" bordercolor="#000000" background="images/bg22.gif"> 
      <div align="center"><b><font size="2">帮助中心</font></b></div>
    </td>
  </tr>
  <tr> 
    <td> 
      <table width="586" align="center">
        <%
startrw = 0
endrw = HLooper1__index
numberColumns = 7
numrows = -1
while((numrows <> 0) AND (Not Recordset11.EOF))
	startrw = endrw + 1
	endrw = endrw + numberColumns
 %>
        <tr> 
          <%
While ((startrw <= endrw) AND (Not Recordset11.EOF))
%>
          <td> 
            <table width="100%" border="0" cellspacing="0" cellpadding="0" height="15">
              <tr> 
                <td><A HREF="beizhu.asp?<%= MM_keepNone & MM_joinChar(MM_keepNone) & "id=" & Recordset11.Fields.Item("id").Value %>" target=_blank><%=(Recordset11.Fields.Item("jsname").Value)%></A></td>
              </tr>
            </table>
          </td>
          <%
	startrw = startrw + 1
	Recordset11.MoveNext()
	Wend
	%>
        </tr>
        <%
 numrows=numrows-1
 Wend
 %>
      </table>
    </td>
  </tr>
</table>
<p align="center" class="dfont"><font size="2" color="#FF0000">您是第 
  <%
' *** This is a sample counter write by xPilot ***
  '计数器模块
  For i=1 To Length
  Response.Write "<img src=XP_Counter/"&mid(xp_Counter,i,1)&".gif>"
  Next 
%>
  个来访者</font><br>
  <br>
</p>
<p align="center"><font color="#000000" class="dfont">√ - <a href="none.htm">客户服务</a> 
  √ - <a href="none.htm">合作</a> √ - <a href="none.htm">帮助</a> √ - <a href="none.htm">意见</a> 
  √ - <a href="none.htm">关于我们</a> √ - <a href="adminlogin.asp"><font color="#000066">管理入口</font></a></font></p>
<p align="center"><font color="#000000" size="2">版权：白菜体育有限公司 程序制作：<a href="http://baicai.2ya.com">白菜的家</a><br>
  <br>
  版权所有 不得抄袭<br>
  Copyright (c) 1999-2002 baicai.2ya.<font color="#FF0000">Com</font>, All Rights 
  Reserved</font></p>
<%
Recordset11.Close()
%>