⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 index.asp

📁 网上购物系统
💻 ASP
字号:
🔍 
<!--#include file="Conn.asp"-->
<!--#include file="include/MyRequest.asp" -->
<!--#include file="sub.asp" -->
<%
'参数设置表中相关参数调出
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select root_option_NumsPerRow,root_option_RowsIndexNew,root_option_RowsIndexTj,root_option_RowsIndexSpec,root_option_WidthSPic,root_option_HeighSPic from root_option where id=1"
rs.open sql,conn,1,1
root_option_NumsPerRow   =rs(0)
root_option_RowsIndexNew =rs(1)
root_option_RowsIndexTj  =rs(2)
root_option_RowsIndexSpec=rs(3)
root_option_WidthSPic    =rs(4)
root_option_HeighSPic    =rs(5)
rs.close
set rs=nothing

if root_option_NumsPerRow="" then root_option_NumsPerRow=5
if root_option_WidthSPic="" then root_option_WidthSPic=80
if root_option_HeighSPic="" then root_option_HeighSPic=80
if root_option_RowsIndexNew="" then root_option_RowsIndexNew=2
if root_option_RowsIndexTJ="" then root_option_RowsIndexTJ=2
if root_option_RowsIndexSpec="" then root_option_RowsIndexSpec=2

Set rs=Server.CreateObject("ADODB.Recordset")
sql="select top 1 root_info_IndexTitle,root_info_IndexKeyWords,root_info_IndexDescription from root_info"
rs.open sql,conn,1,1
root_info_IndexTitle      =rs(0)
root_info_IndexKeyWords   =rs(1)
root_info_IndexDescription=rs(2)
rs.close
set rs=nothing
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">	
<head>
<title><%=root_info_IndexTitle%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name=keywords content="<%=root_info_IndexKeyWords%>">
<meta name=description content="<%=root_info_IndexDescription%>">
</head>

<body>
<!--#include file="top.asp" -->
<!--#include file="left.asp" -->
<!--#include file="adv_middle.asp" -->
<!--#include file="news_top10.asp" -->
<%
call prodIndexList(1,root_option_NumsPerRow,root_option_RowsIndexNew)
call prodIndexList(2,root_option_NumsPerRow,root_option_RowsIndexTj)
call prodIndexList(3,root_option_NumsPerRow,root_option_RowsIndexSpec)
%>
				  </div><!-- end div#Content_ContentList -->
		      </div><!-- end div#innermainContent -->
		  </div><!-- end div#mainContent -->
		  <div class="HackBox"></div>
	</div><!-- end div#tbody -->	

<!--#include file="index_link.asp" -->

	<!--底部--> 
	<div id="foot" >
		<div id="footin">
			<%Set rs=Server.CreateObject("ADODB.Recordset")
			sql="select top 1 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"
			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
    		if root_info_zip1<>""      then response.write "&nbsp; 邮编："&root_info_zip1
    		response.write "<br />"
    		if root_info_tel1<>""      then response.write "联系电话："&root_info_tel1
    		if root_info_fax1<>""      then response.write "&nbsp; 传真："&root_info_fax1
    		if root_info_email1<>""    then response.write "&nbsp; E-mail："&root_info_email1
    		if root_info_qq1<>"" 	   then response.write "QQ："&root_info_QQ1
    		if root_info_WangWang1<>"" then response.write "&nbsp; 淘宝旺旺："&root_info_WangWang1  
    		if root_info_msn1<>"" 	   then response.write "&nbsp; MSN："&root_info_msn1
			response.write  "		<br />Copyright &copy; "&year(now())&root_info_SiteName1&" 版权所有  <a href=http://www.miibeian.gov.cn/ target=_blank>"&root_info_ICP1&"</a><br />"
			%>    	
		</div>
    </div>
	<!-- end div#foot -->

</div><!-- end div#container -->

</body>
</html>

⌨️ 快捷键说明

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