foot.asp

程序为自主开发ASP+SQL大型购物搜索网站,系统管理、商铺、会员三种会员唯一帐号管理。目前已有数据条商品数据与数万条商铺信息

 
<table width="100%" border="0" cellspacing="1" cellpadding="0">
  <tr> 
    <td width="180" align="center"> 
    </td>
    <td align="left">
      <%

	Set Rs = Conn.Execute("Select * From Shop Where ShopNumberID = '"& ShopNumberID &"'")
	
			IF Not(Rs.Eof And Rs.Bof) Then
			
				CompanyName	         = Rs("CompanyName")
				CompanyAddress       = Rs("CompanyAddress")
				CompanyPC            = Rs("CompanyPC")
				CompanyTEL           = Rs("CompanyTEL")
				CompanyFax           = Rs("CompanyFax")
				CompanyURL           = Rs("CompanyURL")
				CompanyMT            = Rs("CompanyMT")
			
			End IF
	
		Rs.Close

				IF CompanyAddress <> "" Then
				
				Response.write "地址："& CompanyAddress &""
				
				End IF
				
				IF CompanyPC <> "" Then
				
				Response.write "&nbsp;&nbsp;邮编："& CompanyPC &""
				
				End IF

				IF CompanyTEL <> "" Then
				
				Response.write "<br>电话："& CompanyTEL &""
				
				End IF
				
				IF CompanyFax <> "" Then
				
				Response.write "&nbsp;&nbsp;传真："& CompanyFax &""
				
				End IF
				
				IF CompanyMT <> "" Then
				
				Response.write "&nbsp;&nbsp;移动电话："& CompanyMT &""
				
				End IF
				
				IF CompanyName <> "" Then
				
				Response.write "<br>版权所有：<a href=./ Class=none1>"& CompanyName &"</a>"
				
				Else
				
					IF ShopName <> "" Then
					Response.write "<br>版权所有：<a href=./ Class=none1>"& ShopName &"</a>"
					End IF
				
				End IF
				
				
				IF ShopUrl <> "" Then
				
				Response.write "&nbsp;&nbsp;本站网址：<a href="& ShopUrl &" target=_blank Class=none1>"& ShopUrl &"</a>"
				
				End IF
				
   CreditStr = 0
IF Credit>500 Then
   CreditStr = CreditStr + 1
End IF
IF Credit>1000 Then
   CreditStr = CreditStr + 1
End IF
IF Credit>5000 Then
   CreditStr = CreditStr + 1
End IF
IF Credit>10000 Then
   CreditStr = CreditStr + 1
End IF
IF Credit>50000 Then
   CreditStr = CreditStr + 1
End IF
	Response.Write("<br>")
	IF Authentication = 1 Then
		IF Flag ="0501" Then
		Response.Write "<a href=../../../Historical/Info.asp?ID="& ShopNumberID &" target=_blank class=none1><img src=""../../../Search/images/R1.gif"" alt="""& ShopName &"已通过个人卖家真实身份认证"" border=0 ><u>此卖家已通过个人真实身份认证</u></a>&nbsp;"
		Else
		Response.Write "<a href=../../../Historical/Info.asp?ID="& ShopNumberID &" target=_blank class=none1><img src=""../../../Search/images/R.gif"" alt="""& ShopName &"已通过企业卖家真实身份认证"" border=0><u>此卖家已通过个人真实身份认证</u></a>&nbsp;"
		End IF
	Else
	Response.Write "<a href=../../../Historical/Info.asp?ID="& ShopNumberID &" target=_blank class=none1><u>此卖家还未申请认证</u></a>&nbsp;&nbsp;"
	End IF

	Response.Write("<a href=../../../Historical/Info.asp?ID="& ShopNumberID &" target=_blank class=none1><u>此卖家为<strong>"& CreditStr &"</strong>星级卖家，共有<strong>"& Credit &"</strong>分积分</u></a>&nbsp;&nbsp;")

	Response.Write("<a href=../../../Historical/Info.asp?ID="& ShopNumberID &" target=_blank class=none1><u>点此查看卖家档案</u></a><br>")

Conn.Execute("Update Shop Set LookCount="& LookCount+1 &" where ShopNumberID='"& ShopNumberID &"'")

Conn.Close
Set Conn = Nothing
%>
    </td>
  </tr>
</table>