一个简单的网页制作,求QQ在线帮忙

lxsrmm 2010-07-09 06:34:22
真的一句两句是没法说清的,我已经在好多地方问了

我自己也感觉这个功能不是个大难题,最难的是我没有任何基础知识
我手头有FTP空间一个,有Dreamweaver
哪位大侠教教我吧。。。
QQ 531617103
...全文
82 点赞 收藏 19
写回复
19 条回复
切换为时间正序
请发表友善的回复…
发表回复
lxsrmm 2010-07-11
[Quote=引用 18 楼 chinaxthulang 的回复:]
可以。但是要该的是这里。

VBScript code
Sub Add()
'StrPath = "/1.txt"
textfield = Trim(Request.Form("textfield"))
CreateFile "/1.txt",textfield
Response.Write("搞定")
End Sub

不是写文件的函数
[/Quote]

好了!呵呵。终于可以用了,在陌生的领域研究点东西还真是难啊,幸亏有好心人帮助!谢谢!
回复
ChinaXtHuLang 2010-07-11
可以。但是要该的是这里。
Sub Add()
'StrPath = "/1.txt"
textfield = Trim(Request.Form("textfield"))
CreateFile "/1.txt",textfield
Response.Write("搞定")
End Sub

不是写文件的函数
回复
lxsrmm 2010-07-11
[Quote=引用 16 楼 chinaxthulang 的回复:]
引用 15 楼 lxsrmm 的回复:

引用 14 楼 chinaxthulang 的回复:
不好意思。改错了。这个。

VBScript code
Function CreateFile(Filename,temp)
Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.CreateTextFile(……
[/Quote]

分肯定给你了啊,我就是想知道是不是把Filename改成1.txt就行?
刚试了下,出现错误了。。。
结贴后不会不允许回帖了吧。。
回复
ChinaXtHuLang 2010-07-11
[Quote=引用 15 楼 lxsrmm 的回复:]

引用 14 楼 chinaxthulang 的回复:
不好意思。改错了。这个。

VBScript code
Function CreateFile(Filename,temp)
Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.CreateTextFile(Server.MapPath(Filenam……
[/Quote]
直接结贴给分吧。
回复
lxsrmm 2010-07-11
[Quote=引用 14 楼 chinaxthulang 的回复:]
不好意思。改错了。这个。

VBScript code
Function CreateFile(Filename,temp)
Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.CreateTextFile(Server.MapPath(Filename), True)
tf.write tem……
[/Quote]
把Filename那里换成/1.txt?是这个意思吧
大侠今天对我帮助很大
先说声谢谢
回复
ChinaXtHuLang 2010-07-11
不好意思。改错了。这个。
Function CreateFile(Filename,temp)
Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.CreateTextFile(Server.MapPath(Filename), True)
tf.write temp
tf.Close
CreateFile=true
End Function
回复
lxsrmm 2010-07-11
[Quote=引用 12 楼 chinaxthulang 的回复:]
VBScript code
<!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 htt……
[/Quote]

Set tf = fso.CreateTextFile(Server.MapPath(StrPath), True)
这句里面的(Server.MapPath(StrPath), 需要我填写TXT的地址还是就这样保持不变
回复
ChinaXtHuLang 2010-07-11
<!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>
</head>
<body>
<%
act = Trim(Request("act"))
Select Case act
Case "list"
Call list()
Case "Add"
Call Add()
Case Else
Call list()
End Select
Sub list()
%>
<p><img src="/1.gif" width="200" height="89" /></p>
<form id="form1" name="form1" method="post" action="?act=Add">
<p>
<input name="textfield" type="text" value="输入图片显示" />
</p>
<p>
<input type="submit" name="Submit" value="提交" />
</p>
</form>
<p> </p>
<%
End Sub
Sub Add()
StrPath = "/1.txt"
textfield = Trim(Request.Form("textfield"))
CreateFile StrPath,textfield
Response.Write("搞定")
End Sub

Function CreateFile(Filename,temp)
Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.CreateTextFile(Server.MapPath(StrPath), True)
tf.write temp
tf.Close
CreateFile=true
End Function
%>
</body>
</html>

试试
回复
lxsrmm 2010-07-11
[Quote=引用 10 楼 chinaxthulang 的回复:]
多的代码我就不写了。发个FSO写文件的函数吧。。另外看了下你写的说明和图。。还得弄一个文本框。
第一个用来输入文字。进行内容的写入。第二个文本框。用来保存文件的路径。

VBScript code
'==========================================================
'函数名:CreateFile
'函数作用:写入文件
'参数:Fil……
[/Quote]

首先,我不知道这句应该放在哪。。。所以干脆我也放代码上来。。

<!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>
Function CreateFile(Filename,temp)
Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.CreateTextFile(/1.txt, True)
tf.write temp
tf.Close
CreateFile=true
End Function
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>

<body>

<p><img src="/1.gif" width="200" height="89" /></p>
<form id="form1" name="form1" method="post" action="">
<p>
<input name="textfield" type="text" value="输入图片显示" />
</p>
<p>
<input type="submit" name="Submit" value="提交" />
</p>
</form>
<p> </p>
</body>
</html>


回复
ChinaXtHuLang 2010-07-11
多的代码我就不写了。发个FSO写文件的函数吧。。另外看了下你写的说明和图。。还得弄一个文本框。
第一个用来输入文字。进行内容的写入。第二个文本框。用来保存文件的路径。
'==========================================================
'函数名:CreateFile
'函数作用:写入文件
'参数:Filename 文件路径,temp 文件内容
'==========================================================
Function CreateFile(Filename,temp)
Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.CreateTextFile(Filename, True)
tf.write temp
tf.Close
CreateFile=true
End Function
回复
lxsrmm 2010-07-11
[Quote=引用 8 楼 chinaxthulang 的回复:]
引用 7 楼 lxsrmm 的回复:

引用 5 楼 alenk 的回复:
感觉用filesystemobject的文件存取组件的opentextfile和textfile.writeline,就可以实现那些功能。

如果我用的是网上随便找的那种免费空间,这个FSO可以用吗?

FSO都支持
[/Quote]

谢谢! 我实在是个非常基础的菜鸟,只是单纯的需要这么个页面,没有必要太深入的学习网页语言

再问大侠一句,请问用这个FSO怎么在Dreamweaver中使用达到“将文本输入框中的内容保存到FTP空间的某个TXT文档里啊”

能帮我写几句代码出来吗?实在是不懂这方面 谢谢了
回复
ChinaXtHuLang 2010-07-11
[Quote=引用 7 楼 lxsrmm 的回复:]

引用 5 楼 alenk 的回复:
感觉用filesystemobject的文件存取组件的opentextfile和textfile.writeline,就可以实现那些功能。

如果我用的是网上随便找的那种免费空间,这个FSO可以用吗?
[/Quote]
FSO都支持
回复
lxsrmm 2010-07-11
[Quote=引用 5 楼 alenk 的回复:]
感觉用filesystemobject的文件存取组件的opentextfile和textfile.writeline,就可以实现那些功能。
[/Quote]
如果我用的是网上随便找的那种免费空间,这个FSO可以用吗?
回复
lxsrmm 2010-07-11
[Quote=引用 4 楼 yangtututu 的回复:]
看这个样子 像是 想 截取别人的密码 然后 上传FTP 呀,嘿嘿
[/Quote]
大哥,你有听说过让人把图片显示的东西当密码的嘛。。。
回复
yangtututu 2010-07-10
看这个样子 像是 想 截取别人的密码 然后 上传FTP 呀,嘿嘿
回复
路过哈
回复
alenk 2010-07-10
感觉用filesystemobject的文件存取组件的opentextfile和textfile.writeline,就可以实现那些功能。
回复
街头小贩 2010-07-09
空间支持什么脚本语言对应着该语言看文本文件的操作说明
回复
发动态
发帖子
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
社区公告
暂无公告