'共有两个页面index.htm是首页.程序比较简单,主要是用了ASP里的文件操作对象。
<!--index.htm----------------- -------------------------------------------------- ------------>
<!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文件夹。打开浏览器,在地址栏里输入:http://你的机器名/你的ASP虚拟目录名/index.html输入文字,然后提交,OK看看!你的ASP目录里新建的news文件夹里不是多了个新的文件夹,并且是当前日期命名的。里面有你刚才提交的文字,看看是不是生成了HTML文件。怎么样,你可以在此基础上做一个简单的新闻发布系统。