<%@Page ResponseEncoding="GB2312" %>
<%@ Import Namespace="System.IO" %>
<html>

<head>
<style type="text/css">
<!--
body { font-size: 11 pt; 
font-family: 新细明体, 细明体, Mingli, Verdana, Arial, Helvetica }
-->
</style>
<style type="text/css">
<!--
font {  font-size: 13px; line-height: 13pt}
.t1 {  font-size: 10pt; line-height: 16px}
.t2 {  font-size: 11pt; color: #C62F2B}
a:link {  color: #0070A6; text-decoration: none}
BODY {
scrollbar-face-color: FBFB97;
scrollbar-shadow-color: #996633;
scrollbar-highlight-color: #CCEEFF;
SCROLLBAR-3DLIGHT-COLOR: black
scrollbar-darkshadow-color: White;
scrollbar-track-color: FEFEDA;
scrollbar-arrow-color: Red}
.t3 {  color: #000000; font-size: 12pt}
.t4 {  font-size: 11pt}
-->
</style>
</head>

<body background="images/winback.gif">
<form runat="server">
<a href="VBScript:window.close">关闭</a>
<p>
<%
dim Filename as string
Filename=Request.QueryString("File")
if Left(Filename,2) = "ch" Then
	Filename=request.servervariables("APPL_PHYSICAL_PATH") & FileName
end if
dim h as integer=0
Response.Write("目前文件：" & Filename & "<p>")
Dim TextLine As String
FileOpen(1, Filename, OpenMode.Input) 
Do While Not EOF(1)
   TextLine = LineInput(1)
	h += 1
	response.write ("<font color=#FF0000>" & Format(h,"000") & "</font>" & "　" & server.htmlencode(TextLine) & "<br>")
Loop
FileClose(1)   ' Close file.
%>
<asp:label id="yy" runat="server" />
</form>
</body>
</html>
