foot.asp

网页源码,是最好的网店代码。可以支持批量上传产品等功能。

<table width="1000" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td background="images/body/footbg1.gif"><table width="100%" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td height="30" colspan="3">&nbsp;&nbsp;&nbsp;&nbsp;<font color=EAE9E9>友情链接:</font>
          <%set rs=server.CreateObject("adodb.recordset")
	rs.Open "select * from links order by linkidorder",conn,1,1
	do while not rs.EOF
	response.Write "  <a href="&trim(rs("linkurl"))&" 	target=_blank ><font color=EAE9E9>"&trim(rs("linkname"))&"|</font></a>"
	rs.MoveNext
	loop
	rs.Close
	set rs=nothing
	%></td>
      </tr>
      <tr bordercolor="#CCCCCC">
        <td width="23%"  rowspan="2"  align="center"><a href="http://<%=weburl%>"><img src="<%=weblogo%>" width=187 height=75  border="0"></a></td>
        <%set rs=server.CreateObject("adodb.recordset")
rs.open "select gongzuoshijian from webinfo",conn,1,1
%>
        <%								
function todays()
dim tmprs
tmprs=conn.execute("Select Count(bookID) from products Where year(adddate)=year(date()) and month(adddate)=month(date()) and day(adddate)=day(date())")
todays=tmprs(0)
set tmprs=nothing
if isnull(todays) then todays=0
end function
%>
        <%
if session("over")="" then
    jsqtoday=1
    if application("dntime")<=cint(hour(time())) then
	conn.execute("update dept set jsqtoday=jsqtoday+1")
	tmprs=conn.execute("Select jsqtoday from dept")
	jsqtoday=tmprs(0)
    else
	conn.execute("update dept set jsqtoday=1")
	tmprs=conn.execute("Select jsqtoday from dept")
	jsqtoday=tmprs(0)
    end if
    application("dntime")=cint(hour(time()))
    set tmprs=nothing
    
	conn.execute("update dept set jsq=jsq+1")
	tmprs=conn.execute("Select jsq from dept")
	jsq=tmprs(0)
    set tmprs=nothing
    
    session("over")=true
else
    jsqtoday=1
	tmprs=conn.execute("Select jsqtoday from dept")
	jsqtoday=tmprs(0)
	
	tmprs=conn.execute("Select jsq from dept")
	jsq=tmprs(0)
    set tmprs=nothing
end if
%>
        <td width="53%">　<a href=index.asp>购物首页</a> | <a href=help.asp?action=about >关于我们</a> | <a href=help.asp?action=lxwm >联系我们</a> | <a href=help.asp?action=shiyongfalv >版权声明</a> | <a href=help.asp?action=fukuan >付款方式</a> | <a href=viewreturn.asp >留言/建议/投诉</a></td>
        <td width="24%" rowspan="2"><table width="100%" border="0" align="right" cellpadding="0" cellspacing="0">
          <tr>
         <form name="youjian" method="post" action="dysend.asp">
                                      <td width="205"  style='padding-left:1px'><div align="center">
                                        
                      <input name="useremail" type="text" id="useremail" style="ime-mode:disabled"onfocus="this.value=''" value="填写email订阅本站会刊" size="20">
                                  <input type="submit" name="Submit3" value="订阅" onClick="return checkmail();">
                                      </div></td>
    </form>
          </tr>
          <tr>
                <td colspan="3"  > &nbsp网站备案:<a href="http://www.miibeian.gov.cn" target="_blank"><%=icp%></a></td>
          </tr>
        </table></td>
      </tr>
      <tr bordercolor="#CCCCCC">
        <td valign="top">　客服邮箱：<a href="mailto:<%=webemail%>"><%=webemail%></a>　客服电话：<%=dianhua%> 邮政编码：<%=youbian%><br />
          　公司地址：<%=dizhi%>　<br>&nbsp;&nbsp<a href="http://www.cnhww.com/copyright.asp" target="_blank"><font color=red>软件著作权证书登记号:2007SR02047 软著登字第068042号</font></a></td>
      
    </table></td>
  </tr>
</table>
<%  if qq=1 then%>
 <!--#include file="QQservices.asp"-->
 <%else 
 end if %>