回 帖 发 新 帖 刷新版面

主题:各位大大进来帮忙看看一段ASP留言板代码...谢谢

这段代码是在网上找的,本人对ASP不是太熟悉!
  问题是:
只要访问这个页面,不管你有没有点按钮"分享名字"!
都会自己添加一个回车键到"分享名字.h"这个文件里面.
刷新一次,自动添加一次.
   请各位大哥,帮忙修改一下.
点"分享名字"才会把文本框里面的内容添加进去.
打开页面,和刷新不要自动添加空格....
谢谢了,问题不分大小.解决了,小弟晚上请喝酒...[em8]


代码如下:

___________________________________________________________________

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>取名易-分享区</title>
<style>
body{
    font-size:10pt
    }
</style>
</head>
<body>
<div style="border-style:dotted; border-width:0px; POSITION:absolute; TOP:7px; width:243px; left:4px; height: 168px;">
  分享内容:
  <hr color="#CDF583"><%=MyData("分享名字.h")%>
<p>
<form method=POST action="">
<input name=nam1><input type=submit value="分享名字" >
</form>
<%
Function MyData(MyFile)
Dim objFSO,objTS
Application.Lock
Set objFSO=Server.CreateObject("Scripting.FileSystemObject")
Set objTS=objFSO.OpenTextFile(Server.MapPath(MyFile),8,True)
MyData=Request("nam1")
objTS.WriteLine(MyData) 

objTS.Close
Application.Unlock
End Function
%></div>
</body>

</html>

___________________________________________________________________

回复列表 (共2个回复)

沙发

在写文件的地方加个判断就可以了
if MyData<>"" Then
    objTS.WriteLine(MyData) 
end if    

板凳

法蕾雅竹纤维竹元诚

寻找一直寻找机会的人!
一个趋势中的趋势的项目!
一个直销和传销终结者的项目!
一个帮助普通创业者成功的项目!
   我们在互联网上正在拓展一个生意项目,现在正在寻求合作伙伴。我们认为成功的关键是你是什么人?还有你和谁在一起。我们在乎的是--您是否是有激情、有梦想的人。有意者请跟我们联系,我们和您谈谈,给您讲解一些生意概念,或许我们可以合作。一个集即21世纪品质生活、健康生活,生态家纺,网络品牌代理商城,互联网平台项目招商进行中……详情QQ空间资料 http://294355161.qzone.qq.com
网商咨询 法蕾雅竹元诚QQ 294355161 
科技之光传访法蕾雅http://player.youku.com/player.php/sid/XMTc2MzY4MjQ0/v.swf
法蕾雅竹纤维的神奇六大功效新浪博客
http://blog.sina.com.cn/s/blog_6ca0216a0100n7hq.html 
 

我来回复

您尚未登录,请登录后再回复。点此登录或注册