求一个最简单的相对路径的单页ASP生成HTML源码
求一个最简单的相对路径的单页ASP生成HTML源码例如文件在目录123下1.asp生成1.html即可...
求一个最简单的相对路径的单页ASP生成HTML源码 例如文件在目录123下 1.asp生成1.html即可
展开
1个回答
展开全部
把下面的代码存为html.asp，代码中相关按自己要求修改，1.htm和1.asp<%
filename="1.htm"
if request("body")<>"" then
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(server.mappath(""&filename&""))
fout.Write request("body")
fout.close
set fout=nothing
set fso=nothing
mskrindex="ok"
end if
%>
<script language="Javascript">
<!-- hide
function insertsmilie(smilieface){ document.frmAnnounce.body.value+=smilieface;}
// -->
</script>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>生成html</title>
</head>
<body>
<%if mskrindex="ok" then%>
<p> </p>
<table border="0" cellspacing="0" width="80%" cellpadding="5">
<tr>
<td align="center">
<font color="red">√</font> <%=Now()%>生成成功，点击浏览<a target="_blank" href="<%=filename%>"><%=filename%></a>
</td>
</tr>
</table>
<%else%>
<table width="95%" border="0" cellspacing="0" cellpadding="2">
<tr>
<form name="frmAnnounce" method="post" action="html.asp">
<td>
<font color="red"><b>生成</b> (生成文件为：<%=filename%>)</font>
</td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="0" height="90%">
<tr>
<td>
<textarea style="width:98%; height:90%;" name="body"><!--#include file="1.asp"--></textarea>
<input type="submit" name="Submit" value="生成">
</td>
</form>
</tr>
</table>
<%
end if
%>
</body>
</html>
filename="1.htm"
if request("body")<>"" then
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(server.mappath(""&filename&""))
fout.Write request("body")
fout.close
set fout=nothing
set fso=nothing
mskrindex="ok"
end if
%>
<script language="Javascript">
<!-- hide
function insertsmilie(smilieface){ document.frmAnnounce.body.value+=smilieface;}
// -->
</script>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>生成html</title>
</head>
<body>
<%if mskrindex="ok" then%>
<p> </p>
<table border="0" cellspacing="0" width="80%" cellpadding="5">
<tr>
<td align="center">
<font color="red">√</font> <%=Now()%>生成成功，点击浏览<a target="_blank" href="<%=filename%>"><%=filename%></a>
</td>
</tr>
</table>
<%else%>
<table width="95%" border="0" cellspacing="0" cellpadding="2">
<tr>
<form name="frmAnnounce" method="post" action="html.asp">
<td>
<font color="red"><b>生成</b> (生成文件为：<%=filename%>)</font>
</td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="0" height="90%">
<tr>
<td>
<textarea style="width:98%; height:90%;" name="body"><!--#include file="1.asp"--></textarea>
<input type="submit" name="Submit" value="生成">
</td>
</form>
</tr>
</table>
<%
end if
%>
</body>
</html>
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
