ASP生成HTML

阅读更多

关键词:ASP生成HTML
 
 
"http://www.w3.org/TR/html4/loose.dtd"> 
 
 
 
 
 

 

 
 
 
 

发送消息

 
 
 

'//send.asp 
<% 
function chan_time(shijian)'转换日期时间函数 
s_year=year(shijian) 
if len(s_year)=2 then s_year="20"&s_year 
s_month=month(shijian) 
if s_month<10 then s_month="0"&s_month 
s_day=day(shijian) 
if s_day<10 then s_day="0"&s_day 
s_hour=hour(shijian) 
if s_hour<10 then s_hour="0"&s_hour 
s_minute=minute(shijian) 
if s_minute<10 then s_minute="0"&s_minute 
chan_time=s_year & s_month & s_day & s_hour & s_minute 
end function 

function chan_data(shijian) '转换日期时间函数 
s_year=year(shijian) 
if len(s_year)=2 then s_year="20"&s_year 
s_month=month(shijian) 
if s_month<10 then s_month="0"&s_month 
s_day=day(shijian) 
if s_day<10 then s_day="0"&s_day 
chan_data=s_year & s_month & s_day 
end function 
function chan_file(shijian)'转换日期时间函数 
s_month=month(shijian) 
if s_month<10 then s_month="0"&s_month 
s_day=day(shijian) 
if s_day<10 then s_day="0"&s_day 
s_hour=hour(shijian) 
if s_hour<10 then s_hour="0"&s_hour 
s_minute=minute(shijian) 
if s_minute<10 then s_minute="0"&s_minute 
s_ss=second(shijian) 
if s_ss<10 then s_ss="0"&s_ss 
chan_file = s_month & s_day & s_hour & s_minute & s_ss 
end function 
top="" 
botom="" 
msg=request.Form("msg") 
msg=replace(msg,vbcrlf,"") 
msg=replace(msg,chr(9),"") 
msg=replace(msg," "," ") 
msg=replace(msg,"\r\n","
") 
msg=replace(msg,"\n","
") 
msg=top&msg&botom 
Set fs=Server.CreateObject("Scripting.FileSystemObject") 
all_tree2=server.mappath("news")&"\"&chan_data(now) 
if (fs.FolderExists(all_tree2)) then'判断今天的文件夹是否存在 
else 
fs.CreateFolder(all_tree2) 
end if 
pass=chan_file(now) 
randomize '使用系统计时器来初始化乱数产生器 
pass=rnd(pass) 
pass=get_pass(pass) 
pass=left(pass,10) 
file1=pass 
files=file1&".txt" 
filez=all_tree2&"\"&files 

set ts = fs.createtextfile(filez,true) '写文件 
for z=1 to len(msg) 
write_now=mid(msg,z,1) 
ts.write(write_now) 
next 
' ts.writeline(all_msg) 
ts.close 
set ts=nothing '文件生成 

if err.number<>0 or err then%> 
 
<%else%> 
 
<%end if 
Set MyFile = fs.GetFile(filez) 
all_tree2=server.mappath("news")&"\"&chan_data(now) 
if (fs.FolderExists(all_tree2)) then 
else 
fs.CreateFolder(all_tree2) 
end if 
MyFile.name= left(MyFile.name,len(MyFile.name)-4)&".htm" 
set MyFile=nothing 
set fs=nothing 
set fdir=nothing 
function get_pass(pass) 

pass=cstr(pass) 
pass=replace(pass," ","") 
pass=replace(pass," ","") 
pass=replace(pass,"-","") 
pass=replace(pass," ","") 
pass=replace(pass,":","") 
pass=replace(pass,".","") 
pass=replace(pass,"+","") 
pass=replace(pass,"_","") 
pass=replace(pass,"<","") 
pass=replace(pass,">","") 
pass=replace(pass,"!","") 
pass=replace(pass,"@","") 
pass=replace(pass,"#","") 
pass=replace(pass,"$","") 
pass=replace(pass,"%","") 
pass=replace(pass,"^","") 
pass=replace(pass,"&","") 
pass=replace(pass,"*","") 
pass=replace(pass,"(","") 
pass=replace(pass,")","") 
pass=replace(pass,"=","") 
pass=replace(pass,"\","") 
pass=replace(pass,"/","") 
pass=replace(pass,"|","") 
get_pass=pass 

end function 
%>