使用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%>
文章页数：[1]
