readme.asp

此程序是一个个人主页创造程序,该程序无插件,无任何恶意程序.

<%
'#############################################################
'#      中国在线--极酷论坛 ver.2001 3.0
'#
'#  版权所有: 中国在线 (ChinaXP.Net)
'#
'#  制作人  : 周周 (SeeYa!)
'#
'#
'#  主页地址: http://www.ChinaXP.net/    中国在线
'#	       http://bbs.ChinaXP.Net    中国在线--极酷论坛
'#
'#############################################################
%>
<!--#INCLUDE FILE="config.asp" -->
<!--#INCLUDE FILE="inc_functions.asp" -->
<!--#INCLUDE FILE="inc_top.asp" -->

<title><% =strForumTitle %></title>
<meta name="copyright" content="ReadMe Viewer - by - ChinaXP.Net - This code is Copyright (C) 2000  Michael Anderson">
<%
    Dim rfile1, rfile2, thisline, rfile

    rfile = request.querystring("readme") & ".txt"
%>
	<TD width="70%" align="left" valign="top">
<TABLE border="0" width="85%" align=center>
  <TR>
    <TD width="33%" align="left" nowrap><font face="<% Response.Write strDefaultFontFace %>" size="<% Response.Write strDefaultFontSize %>"><a href="default.asp"><img src="<% =strImageURL %>icon_folder_open.gif" alt="返回论坛首页" border="0">&nbsp;<% =strForumTitle %></a>
	<BR><img src="<%=strImageURL %>icon_bar.gif" border="0"><img src="<% =strImageURL %>icon_folder_open.gif" border="0">&nbsp;<A href="admin_home.asp">论坛管理中心</A>
	<BR><img src="<%=strImageURL %>icon_blank.gif" border="0"><img src="<%=strImageURL %>icon_bar.gif" border="0"><img src="<% =strImageURL %>icon_folder_open_topic.gif" border="0">&nbsp;查看本论坛的更新说明
</FONT></TD>
  </TR>
</TABLE>
</TD>
</TR>
</TABLE>
<BR>
<table width="<% Response.Write strTableWidth %>" border="0" cellspacing="1" cellpadding="4" bgcolor="<% =strTableBorderColor %>" align="center">
  <tr bgcolor="<% =strCategoryCellColor %>" align="center">
    <td> <font face="宋体, Arial, Helvetica, sans-serif" size="3"><b><a href="admin_home.asp">Go Back</a></b></font></td>
  </tr>
  <tr bgcolor="<% =strForumCellColor %>">
    <td>
      <font face="宋体, Arial, Helvetica, sans-serif" size="2">
<%
    Set rfile1 = CreateObject("Scripting.FileSystemObject")
    Set rfile2 = rfile1.OpenTextFile(server.mappath(rfile), 1, False)

    do while not rfile2.AtEndOfStream
        response.write HTMLEncode(rfile2.readline) & "<br>"
    loop

    rfile2.Close
    set rfile2=nothing
    set rfile1=nothing
%>

      </FONT>
    </td>
  </tr>
</table>
<!--#INCLUDE FILE="inc_adv.asp" -->
<!--#INCLUDE FILE="inc_footer.asp" -->