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

📄 seaveinfo.asp

📁 程序为自主开发ASP+SQL大型购物搜索网站,系统管理、商铺、会员三种会员唯一帐号管理。目前已有数据条商品数据与数万条商铺信息
💻 ASP
字号:
<!--#include file="Conn.asp"-->
<!--#include file="public.asp"-->
<%
function HTMLEncodeNO(fString)
	if fString <> "" and Not isnull(fString) Then
    fString = Replace(fString, "<", ",")
    fString = Replace(fString, "/>", ",")
    fString = Replace(fString, ">", ",")
	End IF
		HTMLEncodeNO = fString
end function

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


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")
	ServeArr     = " &gt;&nbsp;<A HREF=# CLASS=NONE1>" & Rs("ServeName") &"</A>"
	ServeName    = Rs("ServeName")
	End IF
	Rs.Close
Set Rs = Nothing

	NavigationArr = "<a href=./ class=none1>"& ShopName &"</a> > <a href=./SeaveInfo.asp class=none1>服务中心</a>" & ServeArr
'===================================================读取
%>
<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="../../../Search/images/search.css" rel="stylesheet" type="text/css">
</head>
<body>
<!--#include File="Top.asp"-->
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td><table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td width="1%" height="24"><img src="../../../Search/images/search_5.gif" width="10" height="24"></td>
          <td width="97%" align="center" valign="bottom" background="../../../Search/images/search_7.gif">
		  
		  <table width="82%" height="23"  border="0" cellpadding="0" cellspacing="0">
              <tr align="center"> 
                <td width="18%" class="text_4"><span class="text_3"><a href="./" class="link2">商品/服务展示</a></span></td>
                <td width="12%" class="text_4"><a href="News.asp" class="link2">新闻动态</a></td>
                <td width="12%" bgcolor="#F16507" class="text_4"><a href="SeaveInfo.asp" class="link2"><span class="text_3">服务中心</span></a></td>
                <td width="12%" class="text_4"><a href="Ask.asp" class="link2">留言反馈</a></td>
                <td width="12%" class="text_4"><a href="../../../Historical/Info.asp?ID=<%=ShopNumberID%>" target="_blank" class="link2">卖家档案</a></td>
                <td width="34%">&nbsp;</td>
              </tr>
            </table></td>
          <td width="1%" align="right"><img src="../../../Search/images/search_6.gif" width="10" height="24"></td>
        </tr>
      </table>
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td height="4" bgcolor="#FF6600"></td>
        </tr>
      </table>
      
    </td>
  </tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr> 
    <td width="63%" height="40" align="left" valign="bottom"> <%=NavigationArr%> </td>
    <td width="37%" align="right" valign="bottom">&nbsp;</td>
  </tr>
</table>
<table width="100%" height="300" border="0" cellpadding="0" cellspacing="0">
  <tr> 
    <td width="180" valign="top"> 
      <table width="98%" border="0" cellpadding="1" cellspacing="1" bgcolor="#CDCDCD">
          <tr> 
            <td bgcolor="ffffff"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
                <tr> 
                  
                <td height="25" align="center" bgcolor="#FF6600"><font color="#FFFFFF" size="2"><strong>服务导航</strong></font></td>
                </tr>
              </table>
              <table width="100%" border="0" cellspacing="1" cellpadding="0">
                <tr> 
                  <td>
<%	
	Response.write NavigationName_1
%>
				  
				  </td>
                </tr>
              </table> </td>
          </tr>
      </table> 
      <br>
    </td>
    <td align="left" valign="top"> 
      <table width="100%" cellspacing="0" cellpadding="0">
        <tr> 
          <td height="1" bgcolor="#999999"></td>
        </tr>
      </table><table width="96%" 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 ServeContent <> "" Then%>
                        <hr width="100%" size="1" color="#FF6600" noshade>
					  <%End IF%>
					</td>
                    </tr>
                    <tr> 
                      
          <td valign="top"><strong><%=ServeContent%></strong></td>
                    </tr>
                    
        <tr> 
          <td height="25" align="right">&nbsp;</td>
                    </tr>
                  </table>
    </td>
  </tr>
</table>
<table width="100%" cellspacing="0" cellpadding="0">
        <tr> 
          <td height="1" bgcolor="#999999"></td>
        </tr>
      </table>      
<!--#include file="Foot.asp"-->
</body>
</html>

⌨️ 快捷键说明

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