查人人中国名人网美国康明斯发电机880kw:我的留言板错了!!!!!! WHY?
来源：百度文库 编辑：查人人中国名人网 时间：2024/05/06 11:30:00
留言板主页:http://cool.86hy.com/0618y/boya.asp
以下是留言板代码boya.asp:
<%
if not request.form("message")=""then
Set FS=Server.CreateObject("Scripting.FileSystemObject")
Set Ts= Fs.OpenTextFile(""&server.mappath("boya.txt")&"",8)
Ts.WriteLine(request.form("message"))
end if
%>
<html><head><title>泊涯时空留言板</title></head>
<body>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="300">
<tr>
<td width="100%" height="30">
<p align="center">泊涯时空留言板</td>
</tr>
<tr>
<td width="100%">
<form method="POST" action="">
<p align="center">
<textarea rows="4" name="message" cols="40"></textarea></p>
<p align="center"><input type="submit" value="提交"></p>
</form>
</td>
</tr>
<tr>
<td width="100%">留言：
</td>
</tr>
<tr>
<td width="100%">
<%
Set FS=Server.CreateObject("Scripting.FileSystemObject")
Set Ts= Fs.OpenTextFile(""&server.mappath("boya.txt")&"")
Do While Not Ts.AtEndOfStream
Response.Write Ts.ReadLine & "<br>" ' 逐行读取，直到文件结尾
Loop
%>
</td></tr></table>
</center></div>
</body></html>
啊…………读取文件啊……我想服务器不给你这样的功能吧。
要不你读他的C盘文件他怎么办，他不哭啊。
为什么不使用小偷呢，
<%
Function GetURL(url)
Set Retrieval = CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "get", url, False
.Send
GetURL = .responsebody
End With
Set Retrieval = Nothing
End Function
Function Bytes2bStr2(vin)
Dim BytesStream,StringReturn
Set BytesStream = Server.CreateObject("ADODB.Stream")
With BytesStream
.Type = adTypeText
.Open
.WriteText vin
.Position = 0
.Charset = "GB2312"
.Position = 2
StringReturn = .ReadText
.close
End With
Set BytesStream = Nothing
Bytes2bStr2 = StringReturn
End Function
url = "http://zhidao.baidu.com"
update=GetURL(url)
response.write bytes2bstr2(Update)
%>
url 不知道能不能用 文件地址。但是HTTP地址是可以的。
然后用其他的函数把数据切开成数组吧
zzz=Split(ForReading,"-") //把函数ForReading用"-"分开 保存在ZZZ数组里。
还有个方法，就是服务器不处理那txt了，让客户去处理吧。
在网页里写JS。
免费空间吧,FSO组件和xmlhttp组件一般不开放,兄弟另想办法吧