Products
GG网络技术分享 2025-03-18 16:12 7
把下面的代码存为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>
这是一款基于jQuery+CSS3实现的个人介绍动画页面效果，兼容目前最新的各类主流浏览器，是一款非常优秀的特效源码。个人简介特效页面源码
Demand feedback
