关闭

asp下输入数据转换成htm文件显示

767人阅读 评论(0) 收藏 举报

处理程序:

<% 
  function change_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 
  change_time=s_year & s_month & s_day & s_hour & s_minute 
end function 

function change_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 
  change_data=s_year & s_month & s_day 
end function 

function change_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 
  change_file = s_month & s_day & s_hour & s_minute & s_ss 
end function 

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 

top="<html><head><title>news</title></head><body>" 
botom="</body></html>" 
msg=request.Form("msg") 
msg=replace(msg,vbcrlf,"") 
msg=replace(msg,chr(9),"") 
msg=replace(msg," "," ") 
msg=replace(msg,"/r/n","<br>") 
msg=replace(msg,"/n","<br>") 
msg=top&msg&botom 
Set fs=Server.CreateObject("Scripting.FileSystemObject") 
  all_tree2=Server.Mappath("news")&"/"&change_data(now) 
if (fs.FolderExists(all_tree2)) then '判断今天的文件夹是否存在 
  else 
    fs.CreateFolder(all_tree2)  '不存在就创建
end if   
pass=change_file(now) 
randomize  '使用系统计时器来初始化乱数产生器 
pass=rnd(pass) 
response.Write(pass)
pass=get_pass(pass) 
pass=left(pass,10)
response.Write(pass)

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.write(msg)//或者一次性写入
ts.close 
set ts=nothing    '文件生成 

if err.number<>0 or err then
%> 
  <script language="javascript"> 
    alert("不能完成") 
  </script> 
<%
  else
%> 
  <script language="javascript"> 
    alert("已完成") 
    history.back(); 
  </script> 
<%
end if 
'对文件改名存为html
Set MyFile = fs.GetFile(filez) 
all_tree2=Server.Mappath("news")&"/"&change_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 
'文件操作结束

'可以再加读写数据库

%>

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:115558次
    • 积分:1462
    • 等级:
    • 排名:千里之外
    • 原创:52篇
    • 转载:20篇
    • 译文:0篇
    • 评论:5条
    文章分类
    最新评论