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

📄 map.asp

📁 网站代码
💻 ASP
字号:
<!--#include file="head.asp" -->
<%
'* 个人版价格:500元 商业版价格:700元
'* 演示:http://Demo.wenday.com
'* 版本:Engine_WenDay网站信息系统 Ver 2.0 演示版
'* 版权所有: 一奔网络工作室(Wenday.Com)
'* 联系QQ: 42367091
'* Email :wenday@21cn.com
'* 程序开发: Wenday
%>
<TABLE width=778 border=0 align="center" cellPadding=0 cellSpacing=0>
<TBODY>
        <TR> 
          <TD width="100%"> <TABLE cellSpacing=0 cellPadding=0 width=778 align=center border=0>
              <TBODY>
                <TR bgColor=#ffffff> 
                  <TD colSpan=3 height=2></TD>
                </TR>
                <TR> 
                  <TD width="19" height=22 align=right><img src="Img/02_1.gif" width="12" height="9"></TD>
                  
<TD width="748"><FONT color=#333333>&nbsp;您的位置:&nbsp;</FONT>网站的首页</TD>
                  <TD width="11">&nbsp;</TD>
                </TR>
              </TBODY>
            </TABLE>
            <TABLE cellSpacing=0 cellPadding=0 width=778 border=0>
        <TBODY>
        <TR>
          <TD vAlign=top colSpan=2>
            <TABLE cellSpacing=0 cellPadding=0 width="100%" align=center 
            border=0>
                      <TBODY>
                        <TR bgColor=#cccccc> 
                          <TD colSpan=2 height=1></TD>
                        </TR>
                        <TR> 
                          <TD colSpan=2 height=2></TD>
                        </TR>
                        <TR> 
                          <TD width=62 bgColor=#eeeeee height=22></TD>
                          <TD bgColor=#eeeeee> <% Call Marquee()%></TD>
                        </TR>
                        <TR> 
                          <TD bgColor=#cccccc colSpan=2 
        height=3></TD>
                        </TR>
                      </TBODY>
                    </TABLE></TD></TR>
        
<TR> 
<TD style="BORDER-RIGHT: #d8d8d8 1px solid;BORDER-left: #d8d8d8 1px solid" vAlign=top width=185 
          bgColor=#f6f6f6><TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR> 
<TD background=""> <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR> 
<TD height=34 background="Img/homedhbg.gif"><IMG 
                    src="Img/hydl.gif"></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR> 
                      <TD height=40><TABLE width=95% height="100" border=0  align=center cellPadding=0 cellSpacing=1 bgColor=#e8e8e8>
                          <TBODY>
                            <TR> 
                              <TD height="53" bgColor=#f9f9f9> 
                                <% Call UserLogin() %>
                              </TD>
                            </TR>
                        </TABLE></TD>
</TR>
<TR> 
<TD></TD>
</TR>
<TR> 
<TD></TD>
</TR>
<TR> 
<TD background=Img/homedhbg.gif> <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR> 
<TD height=34><div align="center"><strong>热 门 信 息</strong></div></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR> 
<TD vAlign=top><TABLE cellSpacing=0 cellPadding=5 width=99% align=center bgColor=#e8e8e8 border=0>
<TBODY>
<TR> 
                              <TD width="100%" bgColor=#f9f9f9> 
                                <% Call Ew_ShowInfo(1,10,13,0,0) %>
                              </TD>
</TR>
</TABLE></TD>
</TR>
<TR> 
<TD></TD>
</TR>
<TR> 
<TD background=Img/homedhbg.gif> <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR> 
<TD height=34><div align="center"><strong>网 站 调 查</strong></div></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR> 
<TD vAlign=top><TABLE style="WORD-BREAK: break-all" height="100%" cellPadding=4 width="100%" border=0>
<TBODY>
<TR> 
<TD vAlign=top height=80> <TABLE width=99% height="100%" border=0 align=center cellPadding=0 cellSpacing=1 bgColor=#e8e8e8>
<TBODY>
<TR> 
<TD width="100%" height="52" bgColor=#f9f9f9>
<% Call Ew_FlashVote() %>
</TD>
</TR>
</TABLE></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR> 
<TD></TD>
</TR>
<TR> 
<TD height="32" background=Img/homedhbg.gif>&nbsp; </TD>
</TR>
<TR> 
<TD></TD>
</TR>
<TR> 
<TD height="7"></TD>
</TR>
</TBODY>
</TABLE></TD>         
<TD vAlign=top align=left width=593 style="BORDER-RIGHT: #d8d8d8 1px solid">
<table border="0" width="100%" cellspacing="0" cellpadding="0" align="center">
<tr> 
<td width="100%" align="center"> 
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<form method=Post action="search.asp"><tr>     
<td> <TABLE cellSpacing=0 cellPadding=0 width="100%" align=center border=0>
<TBODY>
<TR> 
<TD align=middle width=55 background=Img/homedhbg.gif height=34><img src="Img/tp.gif" width="55" height="34"></TD>
<TD width="535" background=Img/homedhbg.gif> &nbsp;&nbsp; 查找关键字: 
<input name="txtitle" type="text" class=smallInput value="<%=session("search")%>" size="13"> &nbsp; <input type="submit" value="查 询" name="title" class="buttonface"> 
</TD>
</TR>
</TBODY>
</TABLE>
</td>
</tr></form>
</table> </td>
</tr>
</table>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR> 
<TD height=34><div align="center"><strong>网 站 导 航</strong></div></TD>
</TR>
</TBODY>
</TABLE>
<TABLE cellSpacing=1 cellPadding=0 width=95% align=center bgColor=#e8e8e8 border=0>
<TBODY>
<TR> 
<TD width="100%" height="52" bgColor=#f9f9f9><br>
<table width="90%" border="0" align="center" cellpadding="1" cellspacing="1">
<% 
	sqls="select * from Sort where B_id=0 order by S_order"
	Set RsSort=conn.execute (sqls)
	if RsSort.eof and RsSort.bof then
		response.write "还没有任何栏目"
	else
	do while not RsSort.eof
%>
<tr> 
<td colspan="2"><img src="Img/02_1.gif" width="12" height="9"><a href="Sort.asp?SortID=<%=trim(RsSort("ID"))%>"><%=trim(RsSort(1))%></a></td>
<tr> 
<% if  RsSort("Setting")<>5  then%>
<%
SqlClass = "Select * from Sort where B_ID="& RsSort("ID") &" order by S_Order "
Set RsClass = Conn.Execute(SqlClass)
if RsClass.eof and RsClass.bof then
Response.write("")
else
do while not RsClass.eof
%>
<tr> 
<td width="22%"><div align="right"><img src="Img/icon.gif" width="12" height="11" align="absmiddle"></div></td>
<td width="78%"><a href="Class.asp?ClassID=<%=trim(RsClass("ID"))%>"><%=trim(RsClass("Names"))%></a></td>
<tr> 
<%
RsClass.movenext
loop
end if
RsClass.close
set RsClass=nothing
%>
<%end if %>
<%  
RsSort.movenext  
loop  
end if  
RsSort.close  
%>
</table>
<br>
</TD>
</TR>
</TABLE></TD>
</TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<!--#include file="Bottom.asp" -->
</BODY></HTML>

⌨️ 快捷键说明

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