'共有两个页面index.htm是首页.程序比较简单,主要是用了ASP里的文件操作对象。
<!--index.htm----------------- -------------------------------------------------- ------------>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
" http://www.w3.org/TR/html4/loose.dtd ">
<html>
<cabeça>
<title>Documento sem título</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<corpo>
<table width="770" border="0" align="center" cellpadding="0" cellpacing="0">
<tr>
<td><form name="form1" method="post" action="send.asp">
<table width="100%" border="0" cellpadding="0" cellpacing="0" bgcolor="#CCFFFF">
<tr>
<td height="20"><div align="center">发送消息</div></td>
</tr>
<tr>
<td><div alinhamento="center">
<textarea name="msg" cols="100" rows="6"></textarea>
</div></td>
</tr>
<tr>
<td><div alinhamento="center">
<input type="submit" name="Enviar" value="Enviar">
<input type="reset" name="Submit2" value="Reset">
</div></td>
</tr>
</tabela>
</form></td>
</tr>
</tabela>
</body>
</html>
'//enviar.asp
<%
função chan_time(shijian)'转换日期时间函数
s_ano=ano(shijian)
se len(s_ano)=2 então s_ano="20"&s_ano
mês_mês=mês(shijian)
se s_mês<10 então s_mês="0"&s_mês
s_day=dia(shijian)
se s_day<10 then s_day="0"&s_day
s_hora=hora(shijian)
se s_hora<10 então s_hora="0"&s_hora
s_minuto=minuto(shijian)
se s_minuto<10 então s_minuto="0"&s_minuto
chan_time=s_ano & s_mês & s_dia & s_hora & s_minuto
função final
função chan_data(shijian) '转换日期时间函数
s_ano=ano(shijian)
se len(s_ano)=2 então s_ano="20"&s_ano
mês_mês=mês(shijian)
se s_mês<10 então s_mês="0"&s_mês
s_day=dia(shijian)
se s_day<10 then s_day="0"&s_day
chan_data=s_ano & s_mês & s_dia
função final
função chan_file(shijian)'转换日期时间函数
mês_mês=mês(shijian)
se s_mês<10 então s_mês="0"&s_mês
s_day=dia(shijian)
se s_day<10 then s_day="0"&s_day
s_hora=hora(shijian)
se s_hora<10 então s_hora="0"&s_hora
s_minuto=minuto(shijian)
se s_minuto<10 então s_minuto="0"&s_minuto
s_ss=segundo(shijian)
se s_ss<10 então s_ss="0"&s_ss
chan_file = s_mês & s_dia & s_hora & s_minuto & s_ss
função final
top="<html><head><title>notícias</title></head><body>"
botom="</body></html>"
msg=solicitação.Form("msg")
mensagem=substituir(msg,vbcrlf,"")
mensagem=substituir(msg,chr(9),"")
msg=substituir(msg," "," ")
mensagem=substituir(mensagem,"rn","<br>")
mensagem=substituir(mensagem,"n","<br>")
msg=superior&msg&inferior
Definir fs=Server.CreateObject("Scripting.FileSystemObject")
all_tree2=server.mappath("notícias")&""&chan_data(agora)
if (fs.FolderExists(all_tree2)) then'判断今天的文件夹是否存在
outro
fs.CreateFolder(all_tree2)
terminar se
pass=chan_file(agora)
randomize '使用系统计时器来初始化乱数产生器
passar=rnd(passar)
pass=get_pass(pass)
passar=esquerda(passar,10)
arquivo1=passar
arquivos=arquivo1&".txt"
filez=all_tree2&""&files
set ts = fs.createtextfile(filez,true) '写文件
para z=1 para len(msg)
write_now=meio(msg,z,1)
ts.write(escreva_agora)
próximo
'ts.writeline(all_msg)
ts.fechar
set ts=nothing '文件生成
if err.number<>0 ou err then%>
<linguagem script="javascript">
alerta("不能完成")
</script>
<%else%>
<linguagem script="javascript">
alert("已完成")
história.back();
</script>
<%fim se
Definir MeuArquivo = fs.GetFile(filez)
all_tree2=server.mappath("notícias")&""&chan_data(agora)
se (fs.FolderExists(all_tree2)) então
outro
fs.CreateFolder(all_tree2)
terminar se
MeuArquivo.nome= left(MeuArquivo.nome,len(MeuArquivo.nome)-4)&".htm"
definir MeuArquivo = nada
definir fs = nada
definir fdir = nada
função get_pass(pass)
pass=cstr(pass)
passar=substituir(passar," ","")
passar=substituir(passar," ","")
passar=substituir(passar,"-","")
passar=substituir(passar," ","")
passar=substituir(passar,":","")
passar=substituir(passar,".","")
passar=substituir(passar,"+","")
pass=substituir(pass,"_","")
pass=substituir(pass,"<","")
passar=substituir(passar,">","")
passar=substituir(passar,"!","")
pass=substituir(pass,"@","")
pass=substituir(pass,"#","")
pass=substituir(pass,"$","")
passar=substituir(passar,"%","")
passar=substituir(passar,"^","")
passar=substituir(passar,"&","")
passar=substituir(passar,"*","")
passar=substituir(passar,"(","")
passar=substituir(passar,")","")
pass=substituir(pass,"=","")
passar=substituir(passar,"","")
passar=substituir(passar,"/","")
passar=substituir(passar,"|","")
get_pass=passa
função final
%>
'//
把send.asp和index.htm放到你的ASP目录下，然后再建一个news文件夹。打开浏览器，在地址栏里输入：http://你的机器名/你的ASP虚拟目录名/index.html输入文字，然后提交，OK！看看你的ASP目录里新建的notícias文件夹里是不是多了个新的文件夹，而且是以当前日期命名的。里面有你刚刚提交的文字，看看是不是生成了HTML文件。怎么样，你可以在此基础上做个简单的新闻发布系统。