| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 366 人关注过本帖
标题:谁能发现错误的????
取消只看楼主 加入收藏
woncai
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2010-9-9
结帖率:50%
收藏
已结贴  问题点数:20 回复次数:1 
谁能发现错误的????
<textarea name="tomobile" id="tomobile" cols='100' rows='12'  class="lefttextarea" onkeydown="countMobSum();" onkeyup="countMobSum();" onmousedown="countMobSum();" onmouseup="countMobSum();" onfocus="countMobSum();" onblur="countMobSum();" style="width:610px; "></textarea>


<form name="upload" method="post" action="smssend.asp?action=upload"  style="margin:0px;padding:0px;">电话上传:<input size="31" type ="file" name ="file1" id="file1" /> <input type ="submit" value="上传"/>
</form>



<%
if request("action")="upload" then
call upload()
end if
sub upload()
dim map,myarry
map=Trim(request.Form("file1"))
set fso=server.CreateObject("scripting.FileSystemObject")
set txtfile=fso.opentextfile(map,1,create,-2)
while not txtfile.atendofstream
myarry=txtfile.readline
response.Write "<script language=""javascript"">document.getElementById(""tomobile"").value=document.getElementById(""tomobile"").value+"""&myarry&""";</script>"
wend
txtfile.close
end sub
%>


这段代码能实现功能,但是IE左下角老是显示出错误,说语法错误,在火狐添加TXT的时候就说文件不存在,用不了 ??急
2010-09-09 14:07
woncai
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2010-9-9
收藏
得分:0 
回复 3楼 gupiao175
这论坛就是百度出来的啊,会的就给点东西出来看下啦
2010-09-09 15:37
快速回复:谁能发现错误的????
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.041937 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved