Question

帮我写一个含VBS脚本的HTML或asp文件，让VBS在服务器端运行，功能如下？

含有两个文本框，在一个文本框中输入HTML代码，在另一个文本框中输入一个文件名如“001.htm”，点击按钮在服务器端生成含有第一个文本框中代码的HTML文件“001.htm”。我觉得通过FTP上传HTML文件要输入帐号和密码麻烦。是虚拟服务器，支持FSO文件操作。

Answer 1

<%
on error resume next
if Trim(Request.form("ssj01"))<>"" and Trim(Request.form("ssj02"))<>"" then
set fso=server.createobject("Scripting.FileSystemObject")
set objtext=fso.opentextfile(server.mappath("../" & Trim(Request.form("ssj02")) ),8,true)
objtext.Write Trim(Request.form("ssj01"))&vbcrlf
objtext.close
set objtext=nothing
set fso=nothing
if Err then
Response.Write("失败！")
else
Response.Write ("成功！")
Response.Write " <a href=../"& Trim(Request.form("ssj02")) &"> "&Trim(Request.form("ssj02")) &"</a>"
end if
end if
%>
<form id="form1" name="form1" method="post" action="">
<label>
<textarea name="ssj01" id="ssj01"></textarea>
</label>
For C <br />
<label>
<input name="ssj02" type="text" id="ssj02" value=".html" />
</label>
For N <br />
<label>
<input type="submit" name="Submit" value="提交" />
</label>
</form>