生成随即文件名的html文件

      ASP 2006-3-15 15:30
index.html 
 
 
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> 
 
<html xmlns="http://www.w3.org/1999/xhtml"> 
 
<head> 
 
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" /> 
 
<title>无标题文档</title> 
 
</head> 
 
 
 
<body> 
 
<form action="creatpage.asp" method="post"> 
 
文章标题<input size="10" name="ttid"><br> 
 
文章内容<input size="10" name="txt"><br> 
 
文章出处<input size="10" name="Page2"><br> 
 
 
 
<input type="submit" value=" 添 加 " name="creat"> 
 
 
 
</body> 
 
</html>



creatpage.asp 
 
 
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> 
 
<% 
 
function makefilename()  
 
fname = now()  
 
fname = replace(fname,"-","")  
 
fname = replace(fname," ","")  
 
fname = replace(fname,":","")  
 
fname = replace(fname,"PM","")  
 
fname = replace(fname,"AM","")  
 
fname = replace(fname,"上午","")  
 
fname = replace(fname,"下午","")  
 
randomize  
 
ranNum=int(90000*rnd)+10000 '生成随机数  
 
fname = fname&fanNum  
 
makefilename=fname & ".shtml" 
 
end function  
 
%> 
 
<% 
 
dim sj 
 
Set fso = Server.CreateObject("Scripting.FileSystemObject") 
 
ttid=request.form("ttid") 
 
Page2=request.form("Page2") 
 
txt=request.form("txt") 
 
cx="<title>html生成系统</title>" 
 
 
 
bar="<br>html生成系统" 
 
 
 
html=bar&cx&txt 
 
 
 
sj=cstr(now()) 
 
pencat=replace(html,"","") 
 
Set fout = fso.CreateTextFile(server.mappath(makefilename)) 
 
response.Write(makefilename) '显示生成的html文件名称 
 
response.End()               '结束response 
 
fout.Write pencat 
 
fout.close%>
标签集:TAGS:
回复Comments() 点击Count()

回复Comments

{commenttime}{commentauthor}

{CommentUrl}
{commentcontent}