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

lxsrmm 2010-07-09 06:34:22

真的一句两句是没法说清的，我已经在好多地方问了

我自己也感觉这个功能不是个大难题，最难的是我没有任何基础知识
我手头有FTP空间一个，有Dreamweaver
哪位大侠教教我吧。。。
QQ 531617103

...全文

105 19 打赏收藏转发到动态举报

写回复

用AI写文章

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