end.asp

网上购物系统

<%
response.write  "				  </div><!-- end div#Content_ContentList -->"&_
		      	"				</div><!-- end div#innermainContent -->"&_
		      	"			</div><!-- end div#mainContent -->"&_
		      	"		<div class=HackBox></div>"&_
		      	"	</div><!-- end div#tbody -->"&_	
			    "	<!--底部-->"&_	
			    "	<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,root_info_QQOnOff 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)
						root_info_QQOnOff1	=rs(10)
						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
    					response.write "<br />"
						if root_info_QQOnOff1=0 then
							Set rs=Server.CreateObject("ADODB.Recordset")
							sql="select top 1 root_info_QQplace,root_info_QQName from root_info"
							rs.open sql,conn,1,1
							root_info_QQplace1=rs(0)
							root_info_QQName1=rs(1)
							rs.close
							set rs=nothing
							if root_info_QQplace1=3 then
								QQ1=split(root_info_qq1,",")
    							QQName1=split(root_info_qqName1,",")
    							for m=0 to UBound(QQ1)
									txt_QQName1="<a target=blank href='http://wpa.qq.com/msgrd?V=1&Uin="&qq1(m)&"&Site=在线咨询&Menu=no' title="&QQName1(m)&"><img src=http://wpa.qq.com/pa?p=1:"&trim(qq1(m))&":4 border=0 align=absmiddle>&nbsp;"&QQName1(m)&"</a>"
									response.write qq1(m)&"："&txt_QQName1&"<br>"
								next
							end if
						else
							response.write "&nbsp; &nbsp; QQ："&root_info_QQ1
						end if
    					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 -->"
%>