readme.asp

来自「一个不错的ASP论坛源码」· ASP 代码 · 共 70 行

ASP
70 行
字号 
<!--#INCLUDE FILE="../config.asp" -->
<!--#INCLUDE FILE="../inc_functions.asp" -->
<html>

<head>
<title>ReadMe Viewer - by - AnimeDJ.com</title>
<meta name="copyright" content="This code is Copyright (C) 2000  Michael Anderson">
<script language="JavaScript">
<!-- hide from JavaScript-challenged browsers
function openWindow(url) {
  popupWin = window.open(url,'new_page','width=400,height=400')
}
function openWindow2(url) {
  popupWin = window.open(url,'new_page','width=400,height=450')
}
function openWindow3(url) {
  popupWin = window.open(url,'new_page','width=400,height=450,scrollbars=yes')
}
function openWindow4(url) {
  popupWin = window.open(url,'new_page','width=400,height=525')
}
// done hiding -->
</script>
<style type=text/css><!--
a:link    {color:<% =strLinkColor %>;text-decoration:<% =strLinkTextDecoration %>}
a:visited {color:<% =strVisitedLinkColor %>;text-decoration:<% =strVisitedTextDecoration %>}
a:hover   {color:<% =strHoverFontColor %>;text-decoration:<% =strHoverTextDecoration %>}
input.radio {background: <% = strPopUpTableColor %>; color:#000000}
--></style>
</HEAD>

<body bgColor="<% =strPageBGColor %>" text="<% =strDefaultFontColor %>" link="<% =strLinkColor %>" aLink="<% =strActiveLinkColor %>" vLink="<% =strActiveLinkColor %>">



<%
    Dim rfile1, rfile2, thisline, rfile
    
    rfile = request.querystring("readme") & ".txt"
%>

<body bgcolor="#FFFFFF">
<table width="90%" border="0" cellspacing="1" cellpadding="4" bgcolor="#000000" 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>
</body>
</html>

readme.asp - 源码说明

本页面展示了「一个不错的ASP论坛源码」中的 readme.asp 源码文件，采用 ASP 编程语言编写，共 70 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与ASP相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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