end.asp

多多网店系统v3.01 完全免费可用版-功能简介: 支持多模板皮肤色切换[8套] 支持按商品特性[推荐商品/特价商品/新品分类]浏览 支持按商品类别浏览 支持单件商品用支付宝交易按钮直接支付订

<br>
<table width="100%" cellpadding="4" class="MainTable" style="border-collapse: collapse">
	<tr>
		<td class="MainHead">友情链接</td>
		<td class="MainHead" align=right><a href="Link_List.asp" class="U"><span style="font-weight: 400">更多友情链接</span></a></td>
	</tr>
	<%
	Set rs= Server.CreateObject("ADODB.Recordset")
	sql="select link_info_url,link_info_detail from link_info where link_info_type=1 and link_info_IndexShow=0 order by id"
	rs.open sql,conn,1,1
	if not rs.eof then
		response.write "<tr><td>"
		set link_info_url=rs(0)
   		set link_info_detail=rs(1)
		while not rs.eof
    	response.write "<a href="&link_info_url&" target=_blank><img src=uploadpic/"&link_info_detail&"></a>&nbsp;"
        rs.movenext
		wend
		response.write "</td></tr>"
	end if
	rs.close
	set rs=nothing 

	dim link_info_url,link_info_detail
	Set rs= Server.CreateObject("ADODB.Recordset")
	sql="select link_info_url,link_info_detail from link_info where link_info_type=0 and link_info_IndexShow=0 order by id"
	rs.open sql,conn,1,1
	if not rs.eof then
		response.write "<tr><td>"
		set link_info_url    =rs(0)
   		set link_info_detail =rs(1)
		while not rs.eof
    	response.write "<a href="&link_info_url&" target=_blank>"&link_info_detail&"</a>&nbsp;"
        rs.movenext
		wend
		response.write "</td></tr>"
	end if
	rs.close
	set rs=nothing
	%>
</table>
<br>
<table border="0" width="100%" cellpadding="4" style="border-collapse: collapse">
	<tr>
		<td align=center>
			<%
			Set rs=Server.CreateObject("ADODB.Recordset")
			sql="select root_info_ICP,root_info_tel,root_info_email,root_info_QQ,root_info_MSN,root_info_WangWang,root_info_sitename,root_info_address,root_info_zip,root_info_fax from root_info where id=1"
			rs.open sql,conn,1,1
			root_info_ICP1      =rs(0)
			root_info_tel1      =rs(1)
			root_info_email1    =rs(2)
			root_info_QQ1       =rs(3)
			root_info_MSN1      =rs(4)
			root_info_WangWang1 =rs(5)
			root_info_sitename1 =rs(6)
			root_info_address1	=rs(7)
			root_info_zip1		=rs(8)
			root_info_fax1		=rs(9)
			rs.close
			set rs=nothing

			if root_info_address1<>"" then
        		response.write "联系地址："&root_info_address1
    		end if
    		if root_info_zip1<>"" then
        		response.write "&nbsp; 邮编："&root_info_zip1&"<br>"
    		end if
    		if root_info_tel1<>"" then
       			response.write "联系电话："&root_info_tel1
    		end if
    		if root_info_fax1<>"" then
        		response.write "&nbsp; 传真："&root_info_fax1
    		end if
    		if root_info_email1<>"" then
        		response.write "&nbsp; E-mail："&root_info_email1&"<br>"
    		end if 
    		if root_info_qq1<>"" then
        		response.write "QQ："&root_info_QQ1
    		end if 
    		if root_info_WangWang1<>"" then
        		response.write "&nbsp; 淘宝旺旺："&root_info_WangWang1
    		end if     
    		if root_info_msn1<>"" then
        		response.write "&nbsp; MSN："&root_info_msn1&"<br>"
    		end if 
    		%>Copyright &copy; <%=year(now())%> <%=root_info_SiteName1%> 版权所有  <a href="http://www.miibeian.gov.cn/" target="_blank"><%=root_info_ICP1%></a>
    	</td>
	</tr>
	<tr>
		<td height="8" class="Line"></td>
	</tr>
</table>
</div>