使用asp生成html文件共有两个页面index.htm是首页.程序比较简单，主要是用了asp里的文件操作对象。
<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_years_month=month(shijian)if s_month<10 then s_month="0"&s_months_day=day(shijian)if s_day<10 then s_day="0"&s_days_hour=hour(shijian)if s_hour<10 then s_hour="0"&s_hours_minute=minute(shijian)if s_minute<10 then s_minute="0"&s_minutechan_time=s_year & s_month & s_day & s_hour & s_minuteend functionfunction chan_data(shijian) '转换日期时间函数s_year=year(shijian)if len(s_year)=2 then s_year="20"&s_years_month=month(shijian)if s_month<10 then s_month="0"&s_months_day=day(shijian)if s_day<10 then s_day="0"&s_daychan_data=s_year & s_month & s_dayend function
function chan_file(shijian)'转换日期时间函数s_month=month(shijian)if s_month<10 then s_month="0"&s_months_day=day(shijian)if s_day<10 then s_day="0"&s_days_hour=hour(shijian)if s_hour<10 then s_hour="0"&s_hours_minute=minute(shijian)if s_minute<10 then s_minute="0"&s_minutes_ss=second(shijian)if s_ss<10 then s_ss="0"&s_sschan_file = s_month & s_day & s_hour & s_minute & s_ssend functiontop="<html><head><title>news</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,"\r\n","<br>")msg=replace(msg,"\n","<br>")msg=top&msg&botomset fs=server.createobject("scripting.filesystemobject")all_tree2=server.mappath("news")&"\"&chan_data(now)if (fs.folderexists(all_tree2)) then'判断今天的文件夹是否存在elsefs.createfolder(all_tree2)end if pass=chan_file(now)randomize '使用系统计时器来初始化乱数产生器pass=rnd(pass)pass=get_pass(pass)pass=left(pass,10) file1=passfiles=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.closeset ts=nothing '文件生成if err.number<>0 or err then%><script language="javascript">alert("不能完成")</script><%else%><script language="javascript">alert("已完成")history.back();</script><%end ifset myfile = fs.getfile(filez) all_tree2=server.mappath("news")&"\"&chan_data(now)if (fs.folderexists(all_tree2)) thenelsefs.createfolder(all_tree2)end if
myfile.name= left(myfile.name,len(myfile.name)-4)&".htm" set myfile=nothing set fs=nothingset fdir=nothingfunction get_pass(pass)pass=cstr(pass)pass=replace(pass," ","")pass=replace(pass," ","")pass=replace(pass,"-","")pass=replace(pass," ","")pass=replace(pass,":","")pass=replace(pass,".","")pass=replace(pass,"+","")pass=replace(pass,"_","")pass=replace(pass,"<","")pass=replace(pass,">","")pass=replace(pass,"!","")pass=replace(pass,"@","")pass=replace(pass,"#","")pass=replace(pass,"$","")pass=replace(pass,"%","")pass=replace(pass,"^","")pass=replace(pass,"&","")pass=replace(pass,"*","")pass=replace(pass,"(","")pass=replace(pass,")","")pass=replace(pass,"=","")pass=replace(pass,"\","")pass=replace(pass,"/","")pass=replace(pass,"|","")get_pass=passend function%>
把send.asp和index.htm放到你的asp目录下，然后再建一个news文件夹。打开浏览器，在地址栏里输入：http://你的机器名/你的asp虚拟目录名/index.html输入文字，然后提交，ok！看看你的asp目录里新建的news文件夹里是不是多了个新的文件夹，而且是以当前日期命名的。里面有你刚刚提交的文字，看看是不是生成了html文件。怎么样，你可以在此基础上做个简单的新闻发布系统。
