<%@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">
<style type=text/css>#divBottom {
	FONT-FAMILY: arial,helvetica; FONT-SIZE: 12pt; FONT-WEIGHT: bold; HEIGHT: 10px; POSITION: absolute; VISIBILITY: hidden; WIDTH: 10px
}
</style>
<script language=JavaScript type=text/javascript>
function checkBrowser(){
	this.ver=navigator.appVersion
	this.dom=document.getElementById?1:0
	this.ie5=(this.ver.indexOf("MSIE 5")>-1 && this.dom)?1:0;
         if( this.ie5 == 0 )
	   this.ie5=(this.ver.indexOf("MSIE 6")>-1 && this.dom)?1:0;
	this.ie4=(document.all && !this.dom)?1:0;
	this.ns5=(this.dom && parseInt(this.ver) >= 5) ?1:0;
	this.ns4=(document.layers && !this.dom)?1:0;
	this.bw=(this.ie5 || this.ie4 || this.ns4 || this.ns5)
	return this
}
bw=new checkBrowser()
var gright=80
var gbottom=290

function makeObj(obj,nest){
	nest=(!nest) ? '':'document.'+nest+'.'										
   	this.css=bw.dom? document.getElementById(obj).style:bw.ie4?document.all[obj].style:bw.ns4?eval(nest+"document.layers." +obj):0;			
	this.moveIt=b_moveIt;
}
function b_moveIt(x,y){this.x=x; this.y=y; this.css.left=this.x; this.css.top=this.y}


function geoInit(){
	oGeo=new makeObj('divBottom')
	pageWidth=(bw.ie4 || bw.ie5)?document.body.offsetWidth:innerWidth;
	pageHeight=(bw.ie4 || bw.ie5)?document.body.offsetHeight:innerHeight;
	checkIt()
	//sets the resize handler.
	onresize=resized
	if(bw.ie4 || bw.ie5) window.onscroll=checkIt;
	//shows the div
	oGeo.css.visibility='visible'
}

function checkIt(){
	if(bw.ie4 || bw.ie5) oGeo.moveIt(document.body.scrollLeft +pageWidth-gright,document.body.scrollTop+pageHeight-gbottom)
	else if(bw.ns4){
		oGeo.moveIt(window.pageXOffset+pageWidth-gright, window.pageYOffset+pageHeight)
		setTimeout('checkIt()',30)
	}
}

function resized(){
	pageWidth=(bw.ie4 || bw.ie5)?document.body.offsetWidth:innerWidth;
	pageHeight=(bw.ie4 || bw.ie5)?document.body.offsetHeight:innerHeight;
	if(bw.ie4 || bw.ie5) checkIt()
}



if(bw.bw && !bw.ns5) onload=geoInit;
if(bw.bw && !bw.ns5) document.write('<div id="divBottom"><a href=VBScript:window.close><img src="images/close.jpg" border=0></a></div>')
</script>
<p>
<%
dim Filename as string
dim cate as string = Request.QueryString("cate")
Filename=Request.QueryString("File")
dim k as string=""
if Left(Filename,2) = "ch" Then
	Filename=request.servervariables("APPL_PHYSICAL_PATH") & FileName
end if
if cate="v" then
	Filename=Replace(Filename,"cs\","vb\")
end if
if cate="e" then
	k=Request.PhysicalPath
	Filename=Replace(k,"shows.aspx",FileName)
end if
dim h as integer=0
dim y as string
Response.Write("目前文件：" & Filename & "<p>")
Dim TextLine As String
FileOpen(1, Filename, OpenMode.Input) 
Do While Not EOF(1)
   TextLine = LineInput(1)'
	y=y & "　'"
	y=Replace(TextLine,"	",chr(22) & chr(22))
	h += 1
	response.write ("<font color=#FF0000>" & Format(h,"000") & "</font>" & "　" & server.htmlencode(y) & "<br>")
Loop
FileClose(1)   ' Close file.
%>
<asp:label id="yy" runat="server" />
</form>
</body>
</html>
