字號: 小 中 大 | 推薦給好友 上一篇 | 下一篇
發布: 2007-7-14 19:37 | 作者: 佚名 | 來源: 網絡轉載 | 查看: 20次 | 進入軟件測試論壇討論
使用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文件。怎么樣，你可以在此基礎上做個簡單的新聞發布系統。
文章來源于領測軟件測試網 http://www.kjueaiud.com/
