執行個體示範:使用ASP產生HTML檔案

來源:互聯網
上載者:User
產生html

共有兩個頁面index.htm是首頁.程式比較簡單,主要是用了ASP裡的檔案操作對象。

 <!--index.htm---------------------->

 <!DOCTYPEHTMLPUBLIC"-//W3C//DTDHTML4.01Transitional//EN"
 "">
 <html>
 <head>
 <title>UntitledDocument</title>
 <metahttp-equiv="Content-Type"content="text/html;charset=gb2312">
 </head>

 <body>
 <tablewidth="770"border="0"align="center"cellpadding="0"cellspacing="0">
 <tr>
   <td><formname="form1"method="post"action="send.asp">
     <tablewidth="100%" border="0"cellpadding="0"cellspacing="0"bgcolor="#CCFFFF">
       <tr>
         <tdheight="20"><divalign="center">發送訊息</div></td>
         </tr>
       <tr>
         <td><divalign="center">
           <textareaname="msg"cols="100"rows="6"></textarea>
         </div></td>
         </tr>
       <tr>
         <td><divalign="center">
             <inputtype="submit"name="Submit"value="Submit">
             <inputtype="reset"name="Submit2"value="Reset">
         </div></td>
         </tr>
     </table>
   </form></td>
 </tr>
 </table>
 </body>
 </html>

'//send.asp

 <%
 functionchan_time(shijian)'轉換日期時間函數
 s_year=year(shijian)
 iflen(s_year)=2thens_year="20"&s_year
 s_month=month(shijian)
 ifs_month<10thens_month="0"&s_month
 s_day=day(shijian)
 ifs_day<10thens_day="0"&s_day
 s_hour=hour(shijian)
 ifs_hour<10thens_hour="0"&s_hour
 s_minute=minute(shijian)
 ifs_minute<10thens_minute="0"&s_minute
 chan_time=s_year&s_month&s_day&s_hour&s_minute
 endfunction

 functionchan_data(shijian) '轉換日期時間函數
 s_year=year(shijian)
 iflen(s_year)=2thens_year="20"&s_year
 s_month=month(shijian)
 ifs_month<10thens_month="0"&s_month
 s_day=day(shijian)
 ifs_day<10thens_day="0"&s_day
 chan_data=s_year&s_month&s_day
 endfunction

 functionchan_file(shijian)'轉換日期時間函數
 s_month=month(shijian)
 ifs_month<10thens_month="0"&s_month
 s_day=day(shijian)
 ifs_day<10thens_day="0"&s_day
 s_hour=hour(shijian)
 ifs_hour<10thens_hour="0"&s_hour
 s_minute=minute(shijian)
 ifs_minute<10thens_minute="0"&s_minute
 s_ss=second(shijian)
 ifs_ss<10thens_ss="0"&s_ss
 chan_file=s_month&s_day&s_hour&s_minute&s_ss
 endfunction
 top="<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&botom
 Setfs=Server.CreateObject("Scripting.FileSystemObject")
 all_tree2=server.mappath("news")&"\"&chan_data(now)
 if(fs.FolderExists(all_tree2))then'判斷今天的檔案夾是否存在
 else
 fs.CreateFolder(all_tree2)
 endif  
 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

 setts=fs.createtextfile(filez,true)'寫檔案
 forz=1tolen(msg)
  write_now=mid(msg,z,1)
  ts.write(write_now)
 next
 'ts.writeline(all_msg)
 ts.close
 setts=nothing   '檔案產生

 iferr.number<>0orerrthen%>
  <scriptlanguage="javascript">
  alert("不能完成")
  </script>

相關文章

Beyond APAC's No.1 Cloud

19.6% IaaS Market Share in Asia Pacific - Gartner IT Service report, 2018

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。