'共有两个页면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">
</head>
<본문>
<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 align="center">
<textarea name="msg" cols="100"rows="6"></textarea>
</div></td>
</tr>
<tr>
<td><div align="center">
<input type="submit" name="제출" value="제출">
<input type="reset" name="Submit2" value="Reset">
</div></td>
</tr>
</table>
</form></td>
</tr>
</table>
</body>
</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=day(스젠)
s_day<10이면 s_day="0"&s_day
s_hour=시(시지안)
s_hour<10이면 s_hour="0"&s_hour
s_분=분(스젠)
s_분<10이면 s_분="0"&s_분
chan_time=s_년 & s_월 & s_일 & s_시간 & s_분
종료 함수
function 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=day(스젠)
s_day<10이면 s_day="0"&s_day
chan_data=s_year & s_month & s_day
함수 종료
function chan_file(shijian)'转换日期时间函数
s_month=월(시지안)
s_month<10이면 s_month="0"&s_month
s_day=day(스젠)
s_day<10이면 s_day="0"&s_day
s_hour=시(시지안)
s_hour<10이면 s_hour="0"&s_hour
s_분=분(스젠)
s_분<10이면 s_분="0"&s_분
s_ss=초(스지안)
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=요청.양식("msg")
msg=교체(msg,vbcrlf,"")
msg=교체(msg,chr(9),"")
msg=교체(msg," "," ")
msg=교체(msg,"rn","<br>")
msg=교체(msg,"n","<br>")
msg=상단&msg&하단
fs=Server.CreateObject("Scripting.FileSystemObject")를 설정합니다.
all_tree2=server.mappath("news")&""&chan_data(현재)
if (fs.FolderExists(all_tree2)) then''判断今天文件夹是否存재
또 다른
fs.CreateFolder(all_tree2)
종료하면
pass=chan_file(현재)
'使用系统计时器来初始化乱数产生器'을 무작위로 지정합니다.
통과=rnd(통과)
pass=get_pass(통과)
패스=왼쪽(패스,10)
file1=패스
파일=파일1&".txt"
filez=all_tree2&""&files
set ts = fs.createtextfile(filez,true) '写文件
z=1에서 len(msg)까지
write_now=mid(msg,z,1)
ts.write(write_now)
다음
' ts.writeline(all_msg)
ts.닫기
ts=nothing '文件生成
if err.number<>0 또는 err then%>
설정
<스크립트 언어="자바스크립트">
Alert("불합격")
</script>
<%다른%>
<스크립트 언어="자바스크립트">
Alert("작업 완료")
역사.뒤로();
</script>
<%end if
MyFile = fs.GetFile(filez) 설정
all_tree2=server.mappath("news")&""&chan_data(현재)
if (fs.FolderExists(all_tree2)) 그러면
또 다른
fs.CreateFolder(all_tree2)
종료하면
MyFile.name= left(MyFile.name,len(MyFile.name)-4)&".htm"
MyFile=아무것도 설정하지 않음
fs=아무것도 설정하지 않음
fdir=아무것도 설정하지 않음
함수 get_pass(pass)
pass=cstr(pass)
pass=교체(pass," ","")
pass=교체(pass," ","")
패스=교체(패스,"-","")
pass=교체(pass," ","")
패스=교체(패스,":","")
패스=교체(패스,".","")
패스=교체(패스,"+","")
패스=교체(패스,"_","")
패스=교체(패스,"<","")
패스=교체(패스,">","")
패스=교체(패스,"!","")
패스=교체(패스,"@","")
pass=교체(pass,"#","")
pass=교체(pass,"$","")
패스=교체(패스,"%","")
패스=교체(패스,"^","")
패스=교체(패스,"&","")
패스=교체(패스,"*","")
패스=교체(패스,"(","")
패스=교체(패스,")","")
패스=교체(패스,"=","")
패스=교체(패스,"","")
패스=교체(패스,"/","")
패스=교체(패스,"|","")
get_pass=통과
종료 함수
%>
'//
把send.asp와index.htm放到你的ASP目录下,然后再建一个news文件夹.目录name/index.html输入文字，然后提交，OK!刚刚提交的문서, 看看是不是生成了HTML文件.