📄 index.asp

📁 深度学习整站系统 v1.10 1、将整个目录上传到虚拟空间
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Connections/connDB.asp" -->
<%
Dim RsSiteConfig
Dim RsSiteConfig_numRows

Set RsSiteConfig = Server.CreateObject("ADODB.Recordset")
RsSiteConfig.ActiveConnection = MM_connDB_STRING
RsSiteConfig.Source = "SELECT * FROM tSiteConfig"
RsSiteConfig.CursorType = 0
RsSiteConfig.CursorLocation = 2
RsSiteConfig.LockType = 1
RsSiteConfig.Open()

RsSiteConfig_numRows = 0
%>
<%
Dim RsNotice
Dim RsNotice_numRows

Set RsNotice = Server.CreateObject("ADODB.Recordset")
RsNotice.ActiveConnection = MM_connDB_STRING
RsNotice.Source = "SELECT * FROM tNotice"
RsNotice.CursorType = 0
RsNotice.CursorLocation = 2
RsNotice.LockType = 1
RsNotice.Open()

RsNotice_numRows = 0
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<HTML>
<HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=(RsSiteConfig.Fields.Item("fSiteTitle").Value)%></title>
<meta name="robots" content="all">
<meta name="Author" content="www.deepteach.com | 深度空间">
<meta name="keywords" content="deepteach,deepteach.com,深度空间,dreamweaver8,dreamweaver mx,dreamweaver mx 2004,dreamweaver入门教程,dreamweaver技巧神通,dreamweaver应用案例,dreamweaver插件下载,dreamweaver常见问题,关注网页标准,asp,编程,ppt,电子课件">
<meta name="description" content="deepteach.com | 深度空间，DreamWeaver首选学习咨讯站！DreamWeaver8，dreamweaver入门教程，dreamweaver技巧神通，dreamweaver应用案例，dreamweaver插件下载，dreamweaver常见问题，关注网页标准，酷站欣赏等一系列网站相关技术。">
<link href="style_index.css" rel="stylesheet" type="text/css">
</HEAD>
<BODY bgColor=#ffffff leftMargin=0 topMargin=2>
<!--#include file="index_top.asp"-->
<TABLE cellSpacing=0 cellPadding=0 width=765 align=center border=0>
  <tr>
    <TD vAlign=top width=195 background=images/index_4.gif><TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
        <TR>
          <TD><IMG height=41  src="images/index1_1.gif" width=16></TD>
          <TD background=images/index1_2.gif><IMG height=41 src="images/index1_2.gif" width=10></TD>
          <TD width=89 background=images/index1_2.gif 
                  height=41><% If Not RsNotice.EOF Or Not RsNotice.BOF Then %>
              <%=(RsNotice.Fields.Item("fNoticeTitle").Value)%>
              <% End If ' end Not RsNotice.EOF Or NOT RsNotice.BOF %></TD>
          <TD background=images/index1_5.gif><IMG height=41  
                  src="images/index1_4.gif" width=30></TD>
          <TD width=140 background=images/index1_5.gif></TD>
          <TD><IMG height=41  src="images/index1_7.gif" width=14></TD>
        </TR>
        <TR>
          <TD><IMG height=119  src="images/index1_8.gif" 
                  width=16></TD>
          <TD vAlign=top background=images/index1_9.gif colSpan=4><MARQUEE align="left" direction="up" width=100% height="110" scrollAmount=1 scrollDelay=4 onMouseOver="this.stop()" onMouseOut="this.start()">
            <% If Not RsNotice.EOF Or Not RsNotice.BOF Then %>
              <%=(RsNotice.Fields.Item("fNoticeContent").Value)%>
              <% End If ' end Not RsNotice.EOF Or NOT RsNotice.BOF %>
            <% If RsNotice.EOF And RsNotice.BOF Then %>
              <div align="center"><br>
                没有信息！！！</div>
              <% End If ' end RsNotice.EOF And RsNotice.BOF %>
            </MARQUEE>
          </TD>
          <TD><IMG height=119  src="images/index1_10.gif" width=14></TD>
        </TR>
        <TR>
          <TD><IMG height=18  src="images/index1_11.gif" width=16></TD>
          <TD width=250 background=images/index1_12.gif 
                colSpan=4></TD>
          <TD><IMG height=18  src="images/index1_13.gif" width=14></TD>
        </TR>
      </TABLE>
      <!--#include file="index_NewArticle.asp" -->
      <!--#include file="index_Count.asp" -->
      <!-- SiteSearch Google -->
      <form method=get action="http://www.google.com/search" target="_blank">
        <div align="center">
          <input type=text name=q size=16 maxlength=255 value="">
          <input type=hidden name=ie value=GB2312>
          <input type=hidden name=oe value=GB2312>
          <input type=hidden name=hl value=zh-CN>
          <input type=submit name=btnG value="搜索">
          <input type=hidden name=domains value="<%=(RsSiteConfig.Fields.Item("fSiteUrl").Value)%>">
          <br>
          <input type=radio name=sitesearch value="">
          搜索WWW
          <input type=radio name=sitesearch value="<%=(RsSiteConfig.Fields.Item("fSiteUrl").Value)%>" checked>
          搜索本站 </div>
      </form>
      <!-- SiteSearch Google -->
    </TD>
    <TD width=8 background=images/index_5.gif height=35>&nbsp;</TD>
    <TD vAlign=top align=middle width=562 bgColor=#f9f9f9><!--#include file="index_Article_index.asp" -->
    </TD>
  </TR>
  <TR>
    <TD background=images/dx3.gif height=20>&nbsp;</TD>
    <TD background=images/index_5.gif height=20></TD>
    <TD background=images/dx3.gif height=20>&nbsp;</TD>
  </TR>
</TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=765 align=center border=0>
  <TR>
    <TD background=images/dx3.gif colSpan=3 height=20><table width="100%" border="0" align="center">
        <tr>
          <td><div align="center">
              <iframe src="http://union.3721.com/v2/box.htm?p=1006&a=2001&b=1003&m=90263&bw=370&tr=1&st=0&u=1001" width=370 height=64 marginwidth=0 marginheight=0 FRAMEBORDER=0 SCROLLING=NO ></iframe>
            </div></td>
          <td><div align="center">
              <iframe border=0 align=center vspace=0 hspace=0 name=searchbar marginwidth=0 marginheight=0 framespacing=0 frameborder=0 scrolling=no width=370 height=64 src="http://template.union.163.com/search/tpl1.jsp?ID=advert&NO=4633&sessionID=1110ve12813899fffdv09CACD&codeDate=2005n8y26h&logo=0&select=1&SearchHeight=64&SearchWidth=370&boxColor=3CACDC&txtColor=ffffff&borderColor=ffffff&Key=%u52A8%u6001%u7F51%u9875:%u7F51%u7AD9%u5EFA%u8BBE:%u514D%u8D39%u7A7A%u95F4:%u514D%u8D39%u4EE3%u7801&qword="></iframe>
            </div></td>
        </tr>
      </table></TD>
  </TR>
</TABLE>
<!--#include file="index_SClass.asp" -->
<!-- #include file="advert_bottom.asp"-->
<!-- #include file="FrendSite_bottom.asp"-->
<!-- #include file="index_bottom.asp"-->
<%
RsSiteConfig.Close()
Set RsSiteConfig = Nothing
%>
<%
RsNotice.Close()
Set RsNotice = Nothing
%>
</BODY>
</HTML>
💿 文件大小 630 K
👤 上传用户 haoding306
📂 所属分类教育系统应用
🏷️ 相关标签

#1.10 #目录 #虚拟空间
⌨️ 快捷键说明

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