end.asp

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

<%
Set Rs = Conn.Execute("Select Top "& Int(Mould_Setup(17)) &" * From ServeInfo Where ShopNumberID = '"& ShopNumberID &"' Order By ServeOrder")
	While Not Rs.Eof
	NavigationName = NavigationName & "<a href=SeaveInfo.asp?SeaveID="& Rs("ID") &">"& Rs("NavigationName") &"</A>&nbsp;&nbsp;"
	Rs.MoveNext
	Wend
	Rs.Close
	Set Rs = Nothing
%>


<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td background="images/i_63.gif"><img src="images/i_63.gif" width="5" height="5"></td>
  </tr>
</table>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="ffffff">
  <tr> 
    <td height="79" align="center" valign="bottom" background="images/i_65.gif"> 
<%IF Int(Mould_Setup(16)) = 0 Then%>
      <table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr> 
          <td height="25"> <table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
              <tr> 
                <td width="2%"><img src="images/i_68.gif" width="21" height="32"></td>
                <td width="96%" background="images/i_69.gif"><%=NavigationName%></td>
                <td width="2%"><img src="images/i_71.gif" width="9" height="32"></td>
              </tr>
            </table></td>
        </tr>
      </table>
<%End IF%>
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td height="80" align="center"> 
            <%


	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 "&nbsp;&nbsp;电话："& 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=./>"& CompanyName &"</a>"
				
				Else
				
					IF ShopName <> "" Then
					Response.write "<br>版权所有：<a href=./>"& ShopName &"</a>"
					End IF
				
				End IF
				
				
				IF ShopUrl <> "" Then
				
				Response.write "&nbsp;&nbsp;本站网址：<a href="& ShopUrl &" target=_blank>"& ShopUrl &"</a>"
				
				End IF
				
				Response.Write("<br>")

   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
	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;&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;&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>
    </td>
  </tr>
</table>