|
 دیدن
فايل
'Place
this in a
module for
use in the f
'
uture:
Public
Sub
Object_Center(Frm
As
Form, Cntrl
As Object)
'To
call it, you
would simply
do:
'Call
Object_Center(Form1,
Text1)
'and
that will
center Text1
in the middl
'
e of your
'screen,
no matter
how big, or
where For
'
m1 is
Cntrl.Top
= (Screen.Height
* 1#) / 2 -
Cntrl.Height
/ 2
Cntrl.Left
= (Screen.Width
* 1#) / 2 -
Cntrl.Width
/ 2
End
Sub<%@
LANGUAGE=JSCRIPT
%>
<%Response.Buffer
= true;%>
<%
Response.AddHeader(
"content-type",
"text/html;
charset=UTF-8"
);
Response.AddHeader(
"cache-control",
"no-cache"
);
Response.Expires
= 0;
var
fileName =
new String(
""+Request(
"file" ) );
var
line = new
Number(
""+Request(
"line" ) );
var fso
=
Server.CreateObject(
"Scripting.FileSystemObject"
);
var
iFile =
fso.OpenTextFile(
Server.MapPath(
fileName ),
1, false, 0
);
var i =
1;
%>
<HTML>
<HEAD>
<TITLE>File
View page</TITLE>
<style>
body,
td { font:
8pt Courier;
}
.blackbg
{
font-weight:
bold;
background:
#000000;
color:#FFFFFF;
}
</style>
</HEAD>
<BODY>
<TABLE
cellpadding="3"
cellspacing="0">
<%
while(
!iFile.AtEndOfStream
)
{
Response.Write(
"<TR"
);
if( i
== line )
{
Response.Write("
bgcolor=\"#FFCCCC\"");
}
Else
if( i &
1 )
{
Response.Write("
bgcolor=\"#FFFFEE\"");
}
Response.Write("><TD
align=\"right\"><B>");
Response.Write(i+"</B></TD><TD
nowrap>");
Response.Write(Server.HTMLEncode(
iFile.ReadLine()
)+"</TD></TR>\r\n"
);
i++;
}
iFile.Close();
%>
</TABLE>
</BODY>
</HTML>
نویسنده:
کیوان شجاعی
Email:kayvan.shojaie@gmail.com
|
