'共有两个页เลดี้index.htm是首页.程序比较简单，主要是用了ASP里的文件操作对象。
<!--index.htm----------------- -------------------------------------------------- -------------------------------------------------- ------------>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
" http://www.w3.org/TR/html4/loose.dtd ">
<html>
<หัว>
<title>เอกสารที่ไม่มีชื่อ</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</หัว>
<ร่างกาย>
<table width="770" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><form name="form1" method="post" action="send.asp">
<table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#CCFFFF">
<tr>
<td height="20"><div align="center">发送消息</div></td>
</tr>
<tr>
<td><div align="center">
<textarea name="msg" cols="100" rows="6"></textarea>
</div></td>
</tr>
<tr>
<td><div align="center">
<input type="submit" name="Submit" value="Submit">
<input type="reset" name="Submit2" value="Reset">
</div></td>
</tr>
</ตาราง>
</รูปแบบ></td>
</tr>
</ตาราง>
</ร่างกาย>
</html>
'//send.asp
<%
ฟังก์ชั่น chan_time (shijian) '转换日期时间函数
s_year=ปี(สือเจียน)
ถ้า len(s_year)=2 แล้ว s_year="20"&s_year
s_month=เดือน(สือเจียน)
ถ้า s_month<10 แล้ว s_month="0"&s_month
s_day=วัน(สือเจียน)
ถ้า s_day<10 แล้ว s_day="0"&s_day
s_hour=ชั่วโมง(สือเจียน)
ถ้า s_hour<10 ดังนั้น s_hour="0"&s_hour
s_นาที=นาที(สือเจียน)
ถ้า s_minute<10 แล้ว s_minute="0"&s_minute
chan_time=s_ปี & s_เดือน & s_วัน & s_ชั่วโมง & s_นาที
ฟังก์ชั่นสิ้นสุด
ฟังก์ชั่น chan_data(shijian) '转换日期时间函数
s_year=ปี(สือเจียน)
ถ้า len(s_year)=2 แล้ว s_year="20"&s_year
s_month=เดือน(สือเจียน)
ถ้า s_month<10 แล้ว s_month="0"&s_month
s_day=วัน(สือเจียน)
ถ้า s_day<10 แล้ว s_day="0"&s_day
chan_data=s_year & s_เดือน & s_day
ฟังก์ชั่นสิ้นสุด
ฟังก์ชั่น chan_file(shijian)'转换日期时间函数
s_month=เดือน(สือเจียน)
ถ้า s_month<10 แล้ว s_month="0"&s_month
s_day=วัน(สือเจียน)
ถ้า s_day<10 แล้ว s_day="0"&s_day
s_hour=ชั่วโมง(สือเจียน)
ถ้า s_hour<10 ดังนั้น s_hour="0"&s_hour
s_นาที=นาที(สือเจียน)
ถ้า s_minute<10 แล้ว s_minute="0"&s_minute
s_ss=วินาที(สือเจียน)
ถ้า s_ss<10 ดังนั้น s_ss="0"&s_ss
chan_file = s_เดือน & s_วัน & s_ชั่วโมง & s_นาที & s_ss
ฟังก์ชั่นสิ้นสุด
ด้านบน="<html><head><title>ข่าว</title></head><body>"
ด้านล่าง = "</body></html>"
msg=request.Form("msg")
msg=แทนที่(msg,vbcrlf,"")
msg=แทนที่(msg,chr(9),"")
msg=replace(msg," "," ")
msg=แทนที่(msg,"rn","<br>")
msg=แทนที่(msg,"n","<br>")
msg=top&msg&botom
ตั้งค่า fs=Server.CreateObject("Scripting.FileSystemObject")
all_tree2=server.mappath("ข่าว")&""&chan_data(ตอนนี้)
ถ้า (fs.FolderExists(all_tree2)) แล้วก็'判断今天的文件夹是否存在
อื่น
fs.CreateFolder(all_tree2)
สิ้นสุดถ้า
ผ่าน=chan_file(ตอนนี้)
สุ่ม '使用系统计时器来初始化乱数产生器
ผ่าน=rnd(ผ่าน)
ผ่าน=get_pass(ผ่าน)
ผ่าน=ซ้าย(ผ่าน,10)
file1=ผ่าน
ไฟล์=file1&".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.ปิด
set ts=nothing '文件生成
if err.number<>0 หรือ err then%>
<ภาษาสคริปต์ = "จาวาสคริปต์">
alert("不能完成")
</สคริปต์>
<%อื่น%>
<ภาษาสคริปต์ = "จาวาสคริปต์">
alert("已完成")
ประวัติ.หลัง();
</สคริปต์>
<%สิ้นสุดถ้า
ตั้งค่า MyFile = fs.GetFile(filez)
all_tree2=server.mappath("ข่าว")&""&chan_data(ตอนนี้)
ถ้า (fs.FolderExists(all_tree2)) แล้ว
อื่น
fs.CreateFolder(all_tree2)
สิ้นสุดถ้า
MyFile.name= ซ้าย(MyFile.name,len(MyFile.name)-4)&".htm"
ตั้งค่า MyFile=nothing
ตั้งค่า fs=ไม่มีอะไร
ตั้งค่า fdir=nothing
ฟังก์ชั่น get_pass (ผ่าน)
pass = cstr (ผ่าน)
ผ่าน=แทนที่(ผ่าน," , "")
ผ่าน=แทนที่(ผ่าน," , "")
ผ่าน=แทนที่(ผ่าน"-"")
ผ่าน=แทนที่(ผ่าน," , "")
ผ่าน=แทนที่(ผ่าน,::,"")
ผ่าน=แทนที่(ผ่าน".","")
ผ่าน=แทนที่(ผ่าน,"+", "")
ผ่าน=แทนที่(ผ่าน"_"")
ผ่าน=แทนที่(ผ่าน"<"")
ผ่าน=แทนที่(ผ่าน,">,"")
ผ่าน=แทนที่(ผ่าน"!"")
ผ่าน=แทนที่(ผ่าน"@"")
ผ่าน=แทนที่(ผ่าน,"#", "")
ผ่าน=แทนที่(ผ่าน,"$", "")
ผ่าน=แทนที่(ผ่าน,"%", "")
ผ่าน=แทนที่(ผ่าน"^"")
ผ่าน=แทนที่(ผ่าน"&","")
ผ่าน=แทนที่(ผ่าน"*"")
ผ่าน=แทนที่(ผ่าน"("")
ผ่าน=แทนที่(ผ่าน,"),"")
ผ่าน=แทนที่(ผ่าน"=","")
ผ่าน=แทนที่(ผ่าน""")
ผ่าน=แทนที่(ผ่าน"/"")
ผ่าน=แทนที่(ผ่าน"|"")
get_pass=
ฟังก์ชันสิ้นสุด
การส่งผ่าน
-
'
//send.asp和index.htm放到你的ASP目录下，然后再建一个news文件夹。打的浏览器，在地址栏里输入：http://我的机器名/你的ASP虚拟目录名/index.html输入文字，然后提交，OK!看看你的ASP目录里新建的news文件夹里是不是多了个的文件夹，而且是以当前日期命名的。里เลดี้มีคุณ刚刚提交的文字，看看是不是生成了HTML文件。怎么样，你可以在此基础上做个简单的新闻发布系统。