index.htm
----------------- -------------------------------------------------- ------------>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transicional//ES"
" http://www.w3.org/TR/html4/loose.dtd ">
<html>
<cabeza>
<título>Documento sin título</título>
<meta http-equiv="Tipo de contenido" content="text/html; charset=gb2312">
</cabeza>
<cuerpo>
<table width="770" border="0" align="center" cellpadding="0" cellspace="0">
<tr>
<td><nombre del formulario="form1" método="post" acción="enviar.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 align="centro">
<textarea nombre="msg" cols="100" filas="6"></textarea>
</div></td>
</tr>
<tr>
<td><div align="centro">
<tipo de entrada="enviar" nombre="Enviar" valor="Enviar">
<tipo de entrada="reiniciar" nombre="Enviar2" valor="Reiniciar">
</div></td>
</tr>
</tabla>
</form></td>
</tr>
</tabla>
</cuerpo>
</html>
'//enviar.asp
<%
función chan_time(shijian)'转换日期时间函数
s_año=año(shijian)
si len(s_year)=2 entonces s_year="20"&s_year
s_mes=mes(shijian)
si s_mes<10 entonces s_mes="0"&s_mes
s_day=día(shijian)
si s_day<10 entonces s_day="0"&s_day
s_hora=hora(shijian)
si s_hora<10 entonces s_hora="0"&s_hora
s_minuto=minuto(shijian)
si s_minuto<10 entonces s_minuto="0"&s_minuto
chan_time=s_año & s_mes & s_día & s_hora & s_minuto
función final
función chan_data(shijian) '转换日期时间函数
s_año=año(shijian)
si len(s_year)=2 entonces s_year="20"&s_year
s_mes=mes(shijian)
si s_mes<10 entonces s_mes="0"&s_mes
s_day=día(shijian)
si s_day<10 entonces s_day="0"&s_day
chan_data=s_año & s_mes & s_día
función final
función chan_file(shijian)'转换日期时间函数
s_mes=mes(shijian)
si s_mes<10 entonces s_mes="0"&s_mes
s_day=día(shijian)
si s_day<10 entonces s_day="0"&s_day
s_hora=hora(shijian)
si s_hora<10 entonces s_hora="0"&s_hora
s_minuto=minuto(shijian)
si s_minuto<10 entonces s_minuto="0"&s_minuto
s_ss=segundo(shijian)
si s_ss<10 entonces s_ss="0"&s_ss
chan_file = s_mes & s_día & s_hora & s_minuto & s_ss
función final
top="<html><head><title>noticias</title></head><body>"
fondo="</body></html>"
msg=solicitud.Form("mensaje")
msg=reemplazar(msg,vbcrlf,"")
msj=reemplazar(msj,chr(9),"")
msg=reemplazar(msg," "," ")
msj=reemplazar(msj,"rn","<br>")
mensaje=reemplazar(mensaje,"n","<br>")
msg=arriba&msg&abajo
Establecer fs=Server.CreateObject("Scripting.FileSystemObject")
all_tree2=server.mappath("noticias")&""&chan_data(ahora)
if (fs.FolderExists(all_tree2)) entonces'判断今天的文件夹是否存在
demás
fs.CrearCarpeta(all_tree2)
terminar si
pasar=chan_file(ahora)
aleatorizar '使用系统计时器来初始化乱数产生器
pasar=rnd(pasar)
pasar=get_pass(pasar)
pasar=izquierda(pasar,10)
archivo1=pasar
archivos=archivo1&".txt"
filez=all_tree2&""&files
set ts = fs.createtextfile(filez,true) '写文件
para z=1 a len(msg)
escribir_ahora=mid(msg,z,1)
ts.write(escribir_ahora)
próximo
'ts.writeline(todo_msg)
ts.cerrar
set ts=nada '文件生成
if err.number<>0 o err entonces%>
<lenguaje de escritura="javascript">
alerta("不能完成")
</script>
<% más%>
<lenguaje de escritura="javascript">
alerta("已完成")
historia.back();
</script>
<% terminar si
Establecer MiArchivo = fs.GetFile(filez)
all_tree2=server.mappath("noticias")&""&chan_data(ahora)
si (fs.FolderExists(all_tree2)) entonces
demás
fs.CrearCarpeta(all_tree2)
terminar si
MiArchivo.nombre= left(MiArchivo.nombre,len(MiArchivo.nombre)-4)&".htm"
establecer MiArchivo=nada
establecer fs = nada
establecer fdir = nada
función get_pass(pasar)
pasar=cstr(pasar)
pasar=reemplazar(pasar," ","")
pasar=reemplazar(pasar," ","")
pasar=reemplazar(pasar,"-","")
pasar=reemplazar(pasar," ","")
pasar=reemplazar(pasar,":","")
pasar=reemplazar(pasar,".","")
pasar=reemplazar(pasar,"+","")
pasar=reemplazar(pasar,"_","")
pasar=reemplazar(pasar,"<","")
pasar=reemplazar(pasar,">","")
pasar=reemplazar(pasar,"!","")
pasar=reemplazar(pasar,"@","")
pasar=reemplazar(pasar,"#","")
pasar=reemplazar(pasar,"$","")
pasar=reemplazar(pasar,"%","")
pasar=reemplazar(pasar,"^","")
pasar=reemplazar(pasar,"&","")
pasar=reemplazar(pasar,"*","")
pasar=reemplazar(pasar,"(","")
pasar=reemplazar(pasar,")","")
pasar=reemplazar(pasar,"="",")
pasar=reemplazar(pasar,"","")
pasar=reemplazar(pasar,"/","")
pasar=reemplazar(pasar,"|","")
get_pass=pasar
función final
%>
'//
把send.asp和index.htm放到你的ASP目录下，然后再建一个news文件夹。打开浏览器，在地址栏里输入：http://你的机器名/你的ASP虚拟目录名/index.html输入文字，然后提交，OK！看看你的ASP目录里新建的news文件夹里是不是多了个新的文件夹，而且是以当前日期命名的。里面有你刚刚提交的文字，看看是不是生成了HTML文件。怎么样，你可以在此基础上做个简单的新闻发布系统。