intro.asp

用asp实现的通用网站管理系统。

<%
''''''''''''''''''''''''''''''''''''''''''''
'
'  TXSite / 通用网站系统
'
'  版本    ：v1.8.20
'
'  制作人  ：milp([e-mail])
'
'  版权所有：源码之家(http://www.21tx.com)
'
'  主页地址：http://www.21tx.com
'            http://www.bestnets.net
'            http://www.soucn.com
'
'  技术支持：http://www.21tx.com/bbs
'
''''''''''''''''''''''''''''''''''''''''''''
Option Explicit
%>
<!--#include file="base.asp"-->
<%
response.write filesArr(6)

dim action
action=Lcase(Trim(Request("action")))
Select Case action
  Case "about" Call about
  Case "contacts" Call contacts
  Case "privacy" Call privacy
  Case "copyright" Call copyright
  Case "navigation" Call navigation
  Case Else Call about
End Select

response.write filesArr(8)  '调用通用页面底部文件%>
<table width="754" border="0" cellspacing="0" cellpadding="0">
<TR><td align="center"><%=bottomadv%></TD></TR>
<tr><td align=center><script language=javascript src="count.asp?s=1&id=5"></script></td></tr></table></body></html>
<%Call objend()

Sub about%>
<TABLE border=0 cellPadding=1 cellSpacing=0 width=754 background=images/bg.gif>
<TBODY>
<TR>
<TD width="100%"><BR>
<P align=center><B>关 于 站 长</B>
<P>
<BLOCKQUOTE>&nbsp;&nbsp;&nbsp; 
源码之家成立于千禧龙年的11月，以提供源代码为主，为中国程序员全方位服务的专业个人网站。在各位朋友的热心支持和鼓励下，源码之家至今天已有一定的规模。目前源码之家仍由<a href=mailto:[e-mail]>陈会林(Milp)</a>一人开发维护，做个人网站是站长的爱好，她已成为站长生活中不可缺少的一部分，站长象对待女朋友（可惜20几岁的人了，还没哪个MM看上我：)）那样，细心的呵护她。
<BR><BR>&nbsp;&nbsp;&nbsp;
源码之家致力于网络技术的开发和使用，为广大正在或想建设网站的站长朋友提供最新的技术资料以及成熟的产品资料下载，为你在短时间内查询到你想要的资料贡献一份心力，为你在最短的时间建立一个功能强大的站点提供最有效的技术支持！<BR><BR>&nbsp;&nbsp;&nbsp; 
大家的支持就是本站的动力，希望大家继续支持本站，而本站也将以实际的行动来回报支持本站的朋友们！ </BLOCKQUOTE>
</TD></TR></TBODY></TABLE>
<%End Sub

Sub contacts%>
<br>
<TABLE border=0 cellPadding=5 cellSpacing=0 width=754 background=images/bg.gif>
<TBODY> 
<TR> 
  <TD height=22 width="100%"> 
    <P align=center><B>联 系 方 式</B></P>
  </TD>
</TR>
<TR> 
  <TD width="100%"> 
    <BLOCKQUOTE> 
<OL>
  <LI>
    <P style="TEXT-INDENT: 2px">站长信箱：<A 
    href="mailto:<%=sitemail%>"><%=sitemail%></A>，OICQ：2116350。</P>
  </LI>
  <LI> 
    <P style="TEXT-INDENT: 2px">联系电话：[phone]。<BR>
    </P>
  </LI>
  <LI> 
    <P style="TEXT-INDENT: 2px">通讯地址：330047 江西省南昌大学北区决策科学系98级。<BR>
    </P>
  </LI>
</OL>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;以上均为站长陈会林(Milp)的联系方式。
    </BLOCKQUOTE>
  </TD>
</TR>
</TBODY>
</TABLE>
<%End Sub

Sub copyright%>
<TABLE border=0 cellPadding=5 cellSpacing=0 width=754 background=images/bg.gif>
<TBODY> 
<TR> 
  <TD height=22 width="100%"> 
    <P align=center><B>版 权 声 明</B></P>
  </TD>
</TR>
<TR> 
  <TD width="100%"> 
    <BLOCKQUOTE> 
<OL>
  <LI> 
    <P style="TEXT-INDENT: 2px"><a href="http://www.21tx.com">源码之家</a>目前为个人网站，由<a href="http://www.ncu.edu.cn" target=_blank>南昌大学</a> <a
     href="mailto:<%=sitemail%>">陈会林(Milp)</a>设计维护，本站提供的所有服务均为免费！</P>
  </LI>
  <LI> 
    <P style="TEXT-INDENT: 2px">本站文字、造型、样式、图形及程序由<a href="mailto:<%=sitemail%>">陈会林(Milp)</a>版权所有，侵权必究！<BR></P>
  </LI>
  <LI> 
    <P style="TEXT-INDENT: 2px">本站大部分源码和文章都来自网上，如果您觉得我们侵犯了您的权益，请告诉我们，我们会立即去掉，谢谢支持！<BR></P>
  </LI>
</OL>
    </BLOCKQUOTE>
  </TD>
</TR>
</TBODY>
</TABLE>
<%End Sub

Sub privacy%>
<br>
<TABLE border=0 cellPadding=5 cellSpacing=0 width=754 background=images/bg.gif>
<TBODY> 
<TR> 
<TD height=22 width="100%"> 
<P align=center><B>源码之家保护隐私权之声明</B></P>
</TD>
</TR>
<TR> 
<TD width="100%"> 
<BLOCKQUOTE> 
<P style="TEXT-INDENT: 2px"><BR>
　　本条款阐述源码之家（以下称"本网站"）有关隐私的声明。本条款告知当您访问本网站时，我们可能从您那里获得的信息，以及我们可能如何使用它。请您务必仔细阅读： 
<ol><li>本网站所提供的服务会自动收集有关访问者的信息，这些信息包括访问者人数、访问时间、访问页面、来访地址等，本网站使用这些信息来对我们的服务器进行分析和对网站进行管理。<br><br>
</li><li>本网站为了给您提供更加周到的个性化服务而运用了Cookies技术，当使用者访问设有Cookies装置的本网站时，本网站之服务器会自动发送Cookies至阁下浏览器内，并储存到您的电脑硬盘内，此Cookies便负责记录日后您到访本网站的种种活动、个人资料、浏览习惯等。 本网站亦运用Cookies储存您感兴趣的信息资料，在您的允许下，本网站还将储存您的密码，以便您造访本网站时不必每次重复输入密码。<br><br>
</li><li>本网站包含有到其它网站的链接，我们对于这些网站的内容及您访问这些网站而导致的任何法律争议和后果不负任何责任。</li></ol>
　　本声明信息适用于以下网址：<a href="http://www.21tx.com">http://www.21tx.com</a>、<a href="http://www.bestnets.net">http://www.bestnets.net</a>、<a href="http://www.soucn.com">http://www.soucn.com</a>，修改及更新权均属于<a href=mailto:<%=sitemail%>>陈会林(Milp)</a>。</P>
</BLOCKQUOTE>
</TD>
</TR>
</TBODY>
</TABLE>
<%End Sub

Sub navigation%>
<TABLE border=0 cellPadding=0 cellSpacing=0 height=48 width=754>
  <TBODY>
  <TR>
    <TD height=48 width=426><A name=title><IMG height=48 
      src="images/title.gif" width=426></A></TD>
    <TD colSpan=6 height=18></TD></TR>
</TBODY></TABLE>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=754>
  <TBODY>
  <TR><TD align=center>
<%
rs.open "select content from sitefiles where name='mainmenu'",conn,1,1
response.write rs("content")
rs.close
%>
</TD></TR></TBODY></TABLE>
<%End Sub%>