asp如何做一个专门显示文本文件的页面?

时间:2010-07-12 19:04:00 

如何做一个专门显示文本文件的页面?

    代码如下:
txt.asp

<html>
<head>
<title><%fn=request.querystring("fn") pointposition=instrrev(fn,".") hn=left(fn,pointposition-1) %></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
BODY{font-size: 9pt ;}
td {font-size: 9pt ;}
P  {font-size: 9pt ;}
font {font-size: 9pt ;}
A:link {color:teal; font-style: normal; text-decoration: none; cursor: hand}
A:visited {color: teal; font-style: normal; text-decoration: none}
A:active {color: rgb(155,55,0); font-style: normal; text-decoration: none}
A:hover {color: red; font-style:bold; text-decoration:underline}  
TABLE {font-family:宋体;font-size:9pt;color:#000000}
INPUT {font-family:宋体;font-size:9pt;color:#000000}
TEXTAREA {font-family:宋体;font-size:9pt;color:#000000}
-->
</style>
</head>
<body bgcolor="#EBA9DB">
<table width="100%" border="0" align="center">
  <tr>
    <td width="100%" height="105" valign="top"><dl>
    <dd align="center"><br>
    <div align="center"><center><table border="0" cellspacing="0" width="600" height="152">
    <tr>
    <td height="59"><p align="center">精彩春风之TXT文本显示 </font></td>
    <td height="14"></td>
    </tr>
    <tr>
<td width="642" height="1" bgcolor="#FFFFFF">
<table width="100%" border="0" align="center" bgcolor="#D0F7E7" height="92">
    <tr>
<td width="90%" height="88">
<%
fn="/intels/chunfeng/txt/"&fn
Set fs = Server.CreateObject("Scripting.FileSystemObject")
set thefile=fs.opentextfile(server.mappath(fn),1,false)
nr=thefile.readall
%>
<pre><%=nr%></pre>
<p>
<%
thefile.close
%> 
</td>
</tr>
</table>
</td>
</tr>
    <tr>
    <td height="14"></td>
    </tr>
    /table>
    </center></div></dd>
    <div align="center"><center><table border="0" cellpadding="0" cellspacing="3" width="689">
    <tr>
    <td width="355"></td>
    <td nowrap width="18"><span style="font-size: 10pt"><a href="javascript:history.back()">
<img  border="0" hspace="3" width="11" height="11"></a></span></td>
    <td nowrap width="65"><a href="javascript:window.history.back()"
    style="COLOR: rgb(128,128,128)"><font color="#000000"><span style="font-size: 10pt">返回上一页</span></font></a></td>
    <td nowrap valign="top" width="15"><a href="javascript:window.scroll(0,0)"><span
style="font-size: 10pt"><img border="0" hspace="3" width="11" height="11">
</span></a></td>
    <td nowrap width="99"><font color="#000000"><span style="font-size: 10pt">返回首页</span></font></td>
    </tr>
    </table>
    </center></div>
    </dl>
    </td>
    </tr>
</table>
</body>
</html>
<noscript>

标签:文本,asp
0
投稿

猜你喜欢

  • 陌生网页交互行为分析(1)——奇怪的关闭按钮

    2009-01-08 12:22:00
  • 关于Python函数对象的名称空间和作用域

    2023-08-15 02:00:42
  • Python中reduce函数详解

    2022-09-03 12:26:33
  • python+Django实现防止SQL注入的办法

    2022-05-22 13:13:13
  • 根据表名和索引获取需要的列名的存储过程

    2011-09-30 11:54:42
  • 不错的广告定位效果代码

    2009-06-05 18:51:00
  • Python 中Django验证码功能的实现代码

    2022-05-01 22:55:39
  • python实现图片九宫格分割的示例

    2021-02-08 22:19:38
  • python开发入门——set的使用

    2023-09-21 09:39:56
  • 动网论坛的asp 数据库连接代码

    2011-04-06 10:32:00
  • python仿evething的文件搜索器实例代码

    2022-05-05 09:05:15
  • git基础之各版本控制系统介绍

    2022-02-14 02:16:03
  • Numpy如何检查数组全为零的几种方法

    2023-05-16 12:00:25
  • 如何让对方在线查看我的程序代码?

    2010-05-13 16:34:00
  • sqlserver 巧妙的自关联运用

    2012-07-21 14:55:12
  • Python判断字符串是否为空和null方法实例

    2021-06-27 07:47:23
  • 关于pycharm找不到MySQLdb模块的解决方法

    2024-01-13 01:51:20
  • python3连接MySQL8.0的两种方式

    2024-01-20 20:16:14
  • 深入了解和应用Python 装饰器 @decorator

    2024-01-02 09:20:05
  • python中的实例方法、静态方法、类方法、类变量和实例变量浅析

    2021-11-06 01:52:14
  • asp之家 网络编程 m.aspxhome.com