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

📄 seaveinfo.asp

📁 程序为自主开发ASP+SQL大型购物搜索网站,系统管理、商铺、会员三种会员唯一帐号管理。目前已有数据条商品数据与数万条商铺信息
💻 ASP
字号:
🔍 
<!--#include File="Conn.asp"-->
<!--#include File="Left.asp"-->
<%
'==================================新闻分类
Dim NavigationName_1

Set Rs = Conn.Execute("Select * From ServeInfo Where ShopNumberID = '"& ShopNumberID &"'")
	While Not Rs.Eof
	NavigationName_1 = NavigationName_1 & "·<a href=SeaveInfo.asp?SeaveID="& Rs("ID") &">"& Rs("NavigationName") &"</A><br>"
	Rs.MoveNext
	Wend
	Rs.Close
	Set Rs = Nothing

	NavigationArr= "<a href=./>首页</a> &gt;&nbsp;<a href=./SeaveInfo.asp>服务导航</a>"

Dim SeaveID
Dim ServeContent
Dim ServeName

	SeaveID = Request.QueryString("SeaveID")
	
	IF Not Isnull(Trim(Request.QueryString("SeaveID"))) AND Trim(Request.QueryString("SeaveID")) <> "" Then
	
	Set Rs = Conn.Execute("Select * From ServeInfo Where ID = "& SeaveID &" and ShopNumberID = '"& ShopNumberID &"'")
	
	Else
	
	Set Rs = Conn.Execute("Select * From ServeInfo Where ShopNumberID = '"& ShopNumberID &"' order by ServeOrder")
	
	End IF

	IF Not(Rs.eof and Rs.bof)Then
	ServeContent = Rs("ServeContent")
	NavigationArr= NavigationArr  & "&nbsp;&gt;&nbsp;" & Rs("ServeName")
	ServeName    = Rs("ServeName")
	End IF
	Rs.Close
Set Rs = Nothing
%>

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>服条导航-<%=HTMLEncodeNO(ShopName)%>-<%=HTMLEncodeNO(ShopTitle)%>-互联之光大卖场</title>
<meta name="keywords" content="<%=HTMLEncodeNO(ShopKey)%>">
<meta name="description" content="<%=HTMLEncodeNO(ShopContent)%>">
<link href="CSS.CSS" rel="stylesheet" type="text/css">
</head>
<body leftmargin="0" topmargin="0">
<!--#include File="Top.asp"-->
<table width="760" height="400" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="ffffff">
  <tr> 
    <td width="182" valign="top" background="images/i_41.gif"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td> <table width="100%" border="0" cellpadding="0" cellspacing="0" >
              <tr> 
                <td height="4"></td>
              </tr>
            </table>
            <%Call Login()%>
</td>
        </tr>
      </table>
      <table width="172" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td><img src="images/i_40.gif" width="186" height="27"></td>
        </tr>
        <tr> 
          <td> <table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
              <tr> 
                <td> <%=NavigationName_1%></td>
              </tr>
            </table></td>
        </tr>
      </table></td>
    <td valign="top"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td> <table width="96%" border="0" align="center" cellpadding="0" cellspacing="0">
              <tr> 
                <td height="24" background="images/i_21.gif"><%=NavigationArr%></td>
              </tr>
            </table>
            <table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td> <table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
                    <tr> 
                      <td height="30" align="center"><font size="2"><strong><%=ServeName%></strong></font></td>
                    </tr>
                    <tr> 
                      <td align="center"> 
                        <%if ServeName <> "" Then%>
                        <hr width="98%" size="1" color="#cccccc" noshade> 
                        <%enD IF%>
                      </td>
                    </tr>
                    <tr> 
                      <td height="300" valign="top"><strong><%=ServeContent%></strong></td>
                    </tr>
                  </table>
                  <table width="100%" border="0" cellspacing="0" cellpadding="0">
                    <tr> 
                      <td>&nbsp;</td>
                    </tr>
                  </table></td>
              </tr>
            </table></td>
        </tr>
      </table></td>
  </tr>
</table>
<!--#include File="End.asp"-->
</body>
</html>

⌨️ 快捷键说明

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