簡單
,主要是用了ASP裡的文件操作物件。
-------------------------------------------------- ------------>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 轉場//EN"
「 http://www.w3.org/TR/html4/loose.dtd 」 >
<html>
<頭>
<title>無標題文件</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</頭>
<內文>
<表格寬度=“770”邊框=“0”對齊=“中心”cellpadding=“0”cellspacing=“0”>
<tr>
<td><form name="form1" method="post" action="send.asp">
<表格寬度=“100%”邊框=“0”cellpadding=“0”cellspacing=“0”bgcolor=“#CCFFFF”>
<tr>
<td height="20"><divalign="center">發送訊息</div></td>
</tr>
<tr>
<td><div 對齊=“中心”>
<textarea name="msg" cols="100" rows="6"></textarea>
</div></td>
</tr>
<tr>
<td><div 對齊=“中心”>
<input type="提交" name="提交" value="提交">
<輸入類型=“重置”名稱=“提交2”值=“重置”>
</div></td>
</tr>
</表>
</形式></td>
</tr>
</表>
</正文>
</html>
'//發送.asp
<%
function chan_time(shijian)'轉換日期時間函數
s_year=年份(shijian)
如果 len(s_year)=2 則 s_year="20"&s_year
s_month=月份(shijian)
如果 s_month<10 則 s_month="0"&s_month
s_day=日(shijian)
如果 s_day<10 則 s_day="0"&s_day
s_hour=小時(時健)
如果 s_hour<10 則 s_hour="0"&s_hour
s_minute=分鐘(shijian)
如果 s_ 分鐘<10 則 s_分鐘 =“0”&s_分鐘
chan_time=s_年 & s_月 & s_日 & s_小時 & s_分鐘
end function
function chan_data(shijian) '轉換日期時間函數
s_year=年份(shijian)
如果 len(s_year)=2 則 s_year="20"&s_year
s_month=月份(shijian)
如果 s_month<10 則 s_month="0"&s_month
s_day=日(shijian)
如果 s_day<10 則 s_day="0"&s_day
chan_data=s_年 & s_月 & s_日
end function
function chan_file(shijian)'轉換日期時間函數
s_month=月份(shijian)
如果 s_month<10 則 s_month="0"&s_month
s_day=日(shijian)
如果 s_day<10 則 s_day="0"&s_day
s_hour=小時(時健)
如果 s_hour<10 則 s_hour="0"&s_hour
s_minute=分鐘(shijian)
如果 s_ 分鐘<10 則 s_分鐘 =“0”&s_分鐘
s_ss=第二(shijian)
如果 s_ss<10 則 s_ss="0"&s_ss
chan_file = s_月 & s_日 & s_小時 & s_分鐘 & s_ss
結束函數
top="<html><head><title>新聞</title></head><body>"
底部=“</body></html>”
msg=請求.Form("msg")
味精=替換(味精,vbcrlf,「」)
味精=替換(味精,chr(9),「」)
msg=替換(msg," "," ")
msg=替換(msg,"rn","<br>")
味精=替換(味精,“n”,“<br>”)
味精=頂部&味精&底部
設定 fs=Server.CreateObject("Scripting.FileSystemObject")
all_tree2=server.mappath("新聞")&""&chan_data(現在)
if (fs.FolderExists(all_tree2)) then'判斷今天的資料夾是否存在
別的
fs.CreateFolder(all_tree2)
結束如果
透過=chan_file(現在)
randomize '使用系統計時器初始化亂數產生器
通過=rnd(通過)
通行證=取得通行證(通行證)
通過=左(通過,10)
文件1=通過
文件=文件1&“.txt”
filez=all_tree2&""&files
set ts = fs.createtextfile(filez,true) '寫文件
對於 z=1 到 len(msg)
write_now=mid(訊息,z,1)
ts.write(write_now)
下一個
' ts.writeline(all_msg)
ts.close
set ts=nothing '檔案產生
if err.number<>0 or err then%>
<腳本語言=“javascript”>
Alert("無法完成")
</腳本>
<%其他%>
<腳本語言=“javascript”>
Alert("已完成")
歷史記錄.back();
</腳本>
<%結束如果
設定 MyFile = fs.GetFile(filez)
all_tree2=server.mappath("新聞")&""&chan_data(現在)
if (fs.FolderExists(all_tree2)) 那麼
別的
fs.CreateFolder(all_tree2)
結束如果
MyFile.name= left(MyFile.name,len(MyFile.name)-4)&".htm"
設定我的文件=無
設定 fs=無
設定 fdir=無
函數 get_pass(pass)
pass=cstr(pass)
通過=替換(通過,“”,“”)
通過=替換(通過,“”,“”)
通過=替換(通過,“-”,“”)
通過=替換(通過,“”,“”)
通過=替換(通過,“:”,“”)
通過=替換(通過,“。”,“”)
通過=替換(通過,“+”,“”)
通過=替換(通過,“_”,“”)
通過=替換(通過,“<”,“”)
通過=替換(通過,“>”,“”)
通過=替換(通過,“!”,“”)
通過=替換(通過,“@”,“”)
通過=替換(通過,“#”,“”)
通過=替換(通過,“$”,“”)
通過=替換(通過,“%”,“”)
通過=替換(通過,“^”,“”)
通過=替換(通過,“&”,“”)
通過=替換(通過,“*”,“”)
通過=替換(通過,“(”,“”)
通過=替換(通過,“)”,“”)
通過=替換(通過,“=”,“”)
通過=替換(通過,“”,“”)
通過=替換(通過,“/”,“”)
通過=替換(通過,“|”,“”)
get_pass=傳遞
結束函數
%>
'//
把send.asp和index.htm放到你的ASP目錄下,然後再建一個news資料夾。名/index.html輸入文字,然後提交,OK看看!看看是不是產生了HTML檔。