28,407
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
qiao198 2004-01-12
- 打赏
- 举报
第一个页
<form method="POST" action="SoftCreat.asp">
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="545" id="table1">
<tr>
<td width="545">
<p align="center"><b><font color="#0000FF" size="3">自动生成软件首页</font></b></td>
</tr>
<tr>
<td width="545"><textarea rows="17" name="content" cols="75"><!--#include file="SoftIndex.asp"--></textarea></td>
</tr>
</table>
</div>
<p align="center">
<input type="submit" value=" 自动生成首页" name="B1"></p>
</p>
</form>
第二个页 SoftCreat.asp
<html>
<%
conter=request("content")
set fs=server.CreateObject("Scripting.FileSystemObject")
FilePath=server.MapPath("Index.htm")
set htm=fs.opentextfile(filepath,2,true)
htm.write conter
%>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>建立首页</title>
<link rel="stylesheet" type="text/css" href="sytle/Forum.css">
</head>
<body bgcolor="#DDEEFF">
<p></p>
<p></p>
<div align="center">
<table cellspacing="0" width="534" align="center" bgcolor="#6595D6" border="0" style="border-left: 0px none; border-top: 0px none; border-bottom: 1px none" id="table1" height="62">
<tr>
<td height="62" width="532" style="color: #000000; font-size: 9pt; text-decoration: none; border-right: 0px none; border-top: 0px none">
<p align="center"><font color="#FFFFFF">现已成功生成 </font> <a target="_blank" href="Index.htm">
<font color="#FFFFFF">Index.htm</font></a><font color="#FFFFFF"> 请在首页用调用该网页!
</font>
</td>
</tr>
</table></div>
</body>
</html>
这样就OK了
<form method="POST" action="SoftCreat.asp">
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="545" id="table1">
<tr>
<td width="545">
<p align="center"><b><font color="#0000FF" size="3">自动生成软件首页</font></b></td>
</tr>
<tr>
<td width="545"><textarea rows="17" name="content" cols="75"><!--#include file="SoftIndex.asp"--></textarea></td>
</tr>
</table>
</div>
<p align="center">
<input type="submit" value=" 自动生成首页" name="B1"></p>
</p>
</form>
第二个页 SoftCreat.asp
<html>
<%
conter=request("content")
set fs=server.CreateObject("Scripting.FileSystemObject")
FilePath=server.MapPath("Index.htm")
set htm=fs.opentextfile(filepath,2,true)
htm.write conter
%>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>建立首页</title>
<link rel="stylesheet" type="text/css" href="sytle/Forum.css">
</head>
<body bgcolor="#DDEEFF">
<p></p>
<p></p>
<div align="center">
<table cellspacing="0" width="534" align="center" bgcolor="#6595D6" border="0" style="border-left: 0px none; border-top: 0px none; border-bottom: 1px none" id="table1" height="62">
<tr>
<td height="62" width="532" style="color: #000000; font-size: 9pt; text-decoration: none; border-right: 0px none; border-top: 0px none">
<p align="center"><font color="#FFFFFF">现已成功生成 </font> <a target="_blank" href="Index.htm">
<font color="#FFFFFF">Index.htm</font></a><font color="#FFFFFF"> 请在首页用调用该网页!
</font>
</td>
</tr>
</table></div>
</body>
</html>
这样就OK了
liaojiqiang 2004-01-12
- 打赏
- 举报
具体怎么实现呢？需要什么?
liaojiqiang 2004-01-12
- 打赏
- 举报
回复人： cathylee(在线程序) ( ) 信誉：91 2004-01-12 15:06:00 得分:0
用FSO功能的读和写功能就可以了
你可以将文本文件写成.HTM文件保存就行了
但新文件可要有HTML请法呀，这样才可以按你想象中的浏览呀
HTML请法是 什么意思？
用FSO功能的读和写功能就可以了
你可以将文本文件写成.HTM文件保存就行了
但新文件可要有HTML请法呀，这样才可以按你想象中的浏览呀
HTML请法是 什么意思？
liaojiqiang 2004-01-12
- 打赏
- 举报
新文件可要有HTML请法呀，这样才可以按你想象中的浏览呀？？？？？？？？？？？？
不明白，还请明解
不明白，还请明解
cathylee 2004-01-12
- 打赏
- 举报
用FSO功能的读和写功能就可以了
你可以将文本文件写成.HTM文件保存就行了
但新文件可要有HTML请法呀，这样才可以按你想象中的浏览呀
你可以将文本文件写成.HTM文件保存就行了
但新文件可要有HTML请法呀，这样才可以按你想象中的浏览呀
say1no2 2004-01-12
- 打赏
- 举报
用fso
FileSystemObject
FileSystemObject
rickylyu 2004-01-12
- 打赏
- 举报
用fso生成
