【 tulaoshi.com - ASP 】
使用ASP生成HTML文件 共有两个页面index.htm是首页.程序比较简单,主要是用了ASP里的文件操作对象。
<!--index.htm---------------------- <html <head <titleUntitled Document</title <meta http-equiv="Content-Type" content="text/html; charset=gb2312" </head <body <table width="770" border="0" align="center" cellpadding="0" cellspacing="0" <tr <td<form name="form1" method="post" action="send.asp" <table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#CCFFFF" <tr <td height="20"<div align="center"发送消息</div</td </tr <tr <td<div align="center" <textarea name="msg" cols="100" rows="6"</textarea </div</td </tr <tr <td<div align="center" <input type="submit" name="Submit" value="Submit" <input type="reset" name="Submit2" value="Reset" </div</td </tr </table </form</td </tr </table </body </html '//send.asp <% function chan_time(shijian)'转换日期时间函数 s_year=year(shijian) if len(s_year)=2 then s_year="20"&s_year s_month=month(shijian) if s_month<10 then s_month="0"&s_month s_day=day(shijian) if s_day<10 then s_day="0"&s_day s_hour=hour(shijian) if s_hour<10 then s_hour="0"&s_hour s_minute=minute(shijian) if s_minute<10 then s_minute="0"&s_minute chan_time=s_year & s_month & s_day & s_hour & s_minute end function function chan_data(shijian) '转换日期时间函数 s_year=year(shijian) if len(s_year)=2 then s_year="20"&s_year s_month=month(shijian) if s_month<10 then s_month="0"&s_month s_day=day(shijian) if s_day<10 then s_day="0"&s_day chan_data=s_year & s_month & s_day end function
(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/asp/) function chan_file(shijian)'转换日期时间函数 s_month=month(shijian) if s_month<10 then s_month="0"&s_month s_day=day(shijian) if s_day<10 then s_day="0"&s_day s_hour=hour(shijian) if s_hour<10 then s_hour="0"&s_hour s_minute=minute(shijian) if s_minute<10 then s_minute="0"&s_minute s_ss=second(shijian) if s_ss<10 then s_ss="0"&s_ss chan_file = s_month & s_day & s_hour & s_minute & s_ss end function top="<html<head<titlenews</title</head<body" botom="</body</html" msg=request.Form("msg") msg=replace(msg,vbcrlf,"") msg=replace(msg,chr(9),"") msg=replace(msg," "," ") msg=replace(msg,"rn","<br") msg=replace(msg,"n","<br") msg=top&msg&botom Set fs=Server.CreateObject("Scripting.FileSystemObject") all_tree2=server.mappath("news")&""&chan_data(now) if (fs.FolderExists(all_tree2)) then'判断今天的文件夹是否存在 else fs.CreateFolder(all_tree2) end if pass=chan_file(now) randomize '使用系统计时器来初始化乱数产生器 pass=rnd(pass) pass=get_pass(pass) pass=left(pass,10) file1=pass files=file1&".txt" filez=all_tree2&""&files set ts = fs.createtextfile(filez,true) '写文件 for z=1 to len(msg) write_now=mid(msg,z,1) ts.write(write_now) next ' ts.writeline(all_msg) ts.close set ts=nothing '文件生成 if err.number<0 or err then% <script language="javascript" alert("不能完成") </script <%else% <script language="javascript" alert("已完成") history.back(); </script <%end if Set MyFile = fs.GetFile(filez) all_tree2=server.mappath("news")&""&chan_data(now) if (fs.FolderExists(all_tree2)) then else fs.CreateFolder(all_tree2) end if
(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/asp/)
来源:http://www.tulaoshi.com/n/20160129/1510855.html