ASP 将一个txt文件里的内容导入到文本框的代码
如图，点击浏览，选择一个txt文件，然后点击导入，将txt文档的内容显示在下面的文本框里请问这个代码如何实现呢？？请给详细的代码，非常感谢！...
如图，
点击浏览，选择一个txt文件，然后点击导入，将txt文档的内容显示在下面的文本框里
请问这个代码如何实现呢？？
请给详细的代码，非常感谢！ 展开
点击浏览，选择一个txt文件，然后点击导入，将txt文档的内容显示在下面的文本框里
请问这个代码如何实现呢？？
请给详细的代码，非常感谢！ 展开
展开全部
你好，根据你的截图所示，我写出对应的代码，你复制过去后测试一下，具体代码如下：
<%
If Trim(Request("Action"))="Write" Then
Dim objFSO
Dim objText
Dim ObjFile
Dim strTextContent
Dim objDrive
'创建一个文件操作对象实例
Set objFSO = CreateObject("Scripting.FileSystemObject")
'要打开的文件
ObjFile=trim(request("FileName")) '从 文件浏览 控件中获取
IF objFSO.FileExists(ObjFile) then
Set objText = objFSO.OpenTextFile(ObjFile,1)
'循环读取数据
k=0
While not objText.AtEndOfStream '到文件的末尾
strTextContent = strTextContent & objText.ReadLine() & vbcrlf
k=k+1
wend
objText.Close
else
strTextContent= "文件不存在"
response.end()
end if
End If
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
<SCRIPT language=javascript>
function check()
{
var strFileName=document.form1.FileName.value;
if (strFileName=="")
{
alert("请选择要导入的文件");
document.form1.FileName.focus();
return false;
}
}
</SCRIPT>
</head>
<body>
<form id="form1" name="form1" action="index.asp?Action=Write" method="post" onSubmit="return check()">
<input name="FileName" type="file" size="30" value="">
<input type="submit" name="Submit" value="导入"> <br><br>
<textarea id="textarea1" name="textarea1" cols="50" rows="20"><%=strTextContent%></textarea> <br><br>
已输入：<font color="#FF0000"><span id="num"><%=k%></span></font> 条记录
</form>
</body>
</html>
相信以上代码正是你想要的，希望你能满意，呵呵！
<%
If Trim(Request("Action"))="Write" Then
Dim objFSO
Dim objText
Dim ObjFile
Dim strTextContent
Dim objDrive
'创建一个文件操作对象实例
Set objFSO = CreateObject("Scripting.FileSystemObject")
'要打开的文件
ObjFile=trim(request("FileName")) '从 文件浏览 控件中获取
IF objFSO.FileExists(ObjFile) then
Set objText = objFSO.OpenTextFile(ObjFile,1)
'循环读取数据
k=0
While not objText.AtEndOfStream '到文件的末尾
strTextContent = strTextContent & objText.ReadLine() & vbcrlf
k=k+1
wend
objText.Close
else
strTextContent= "文件不存在"
response.end()
end if
End If
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
<SCRIPT language=javascript>
function check()
{
var strFileName=document.form1.FileName.value;
if (strFileName=="")
{
alert("请选择要导入的文件");
document.form1.FileName.focus();
return false;
}
}
</SCRIPT>
</head>
<body>
<form id="form1" name="form1" action="index.asp?Action=Write" method="post" onSubmit="return check()">
<input name="FileName" type="file" size="30" value="">
<input type="submit" name="Submit" value="导入"> <br><br>
<textarea id="textarea1" name="textarea1" cols="50" rows="20"><%=strTextContent%></textarea> <br><br>
已输入：<font color="#FF0000"><span id="num"><%=k%></span></font> 条记录
</form>
</body>
</html>
相信以上代码正是你想要的，希望你能满意，呵呵！
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
|
广告 您可能关注的内容 |
