ASP生成HTML 实现方法
<!--index.htm----------------------><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN""http://www.w3.org/TR/html4/loose.dtd"><html><head><title>Untitled 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_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 functionfunction 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 ifpass=chan_file(now)randomize '使用系统计时器来初始化乱数产生器pass=rnd(pass)pass=get_pass(pass)pass=left(pass,10)file1=passfiles=file1&".txt"filez=all_tree2&""&filesset 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 ifMyFile.name= left(MyFile.name,len(MyFile.name)-4)&".htm"set MyFile=nothingset 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%>