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

原创 2006年06月03日 16:50:00

处理程序:

<% 
  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 
'文件操作结束

'可以再加读写数据库

%>

链接另存为怎么总是HTM格式的文件呢?解决办法!

其实都是浏览器设置问题(插件问题): 对于Chrome: 1、在URL栏输入:chrome://plugins/,进入插件管理界面, 停用 PDF Viewer是最重要的...
  • scliu12345
  • scliu12345
  • 2013年03月21日 20:58
  • 1715

菜刀ASP 上传文件反应

http://blog.csdn.net/webxscan     神龙 webxscan=Eval   ("Execute(""On+Error+Resume+Next:Functio...
  • webxscan
  • webxscan
  • 2016年05月08日 07:20
  • 766

Asp 解析 XML并分页显示

Asp 解析 XML并分页显示
  • yimiyuangguang
  • yimiyuangguang
  • 2014年05月14日 01:10
  • 1496

静态网页和动态网页—HTML(htm)文件和aspx(asp)文件

l  定义     ²  静态网页     静态网页:对于动态网页而言,是指没有后台数据库、不含程序和不可交互的网页。你编的是什么它显示的就是什么、不会有任何改变。静态网页相对更新起来比较麻烦,适用于...
  • u010955843
  • u010955843
  • 2014年12月08日 20:21
  • 1724

.aspx(或.asp)文件与.html(.htm)文件的区别与联系

由于都是用于描述网页文档的文件,自学asp.net起就对两者之间的关系很好奇 主要的区别在于,当用户请求页面时,它们在服务器的端的处理不同 下图解释客户端请求页面时,服务器端的处理流程:   .ht...
  • wang379275614
  • wang379275614
  • 2013年08月05日 20:12
  • 14948

【ASP】数据库查询的内容分页显示

对于大数据的查询,你不可以一次性地把所有数据中显示出来, 比如一张学生表上面有一百多号人, 那么在页面中就应该一次显示10人左右, 提供翻页功能给用户进行翻阅,不要一次性显示100多号人。 翻页系统是...
  • yongh701
  • yongh701
  • 2014年11月12日 10:23
  • 3959

【ASP】文件上传

由于VBScript这门古老的编程语言并没有像ASP.NET,Servlet、Struts2,PHP等封装好文件上传的方法,绝对不可能一个request.form["file"]就能够拿到文件,因此处...
  • yongh701
  • yongh701
  • 2016年01月20日 17:09
  • 4390

asp生成xml文件

  • maskice
  • maskice
  • 2015年11月24日 11:56
  • 663

如何把html转化为图象

一,背景 a,需求 b,已经有的调研结果 二,整个经历 三,结论
  • jaken09
  • jaken09
  • 2014年06月29日 20:42
  • 869

ASP文件操作(FSO)详解

ASP文件操作(FSO)详解 实例一:写入文件  语法  object.CreateTextFile([要建立的文件],[如存在,是否替代])  Set fs  ...
  • wkj001
  • wkj001
  • 2016年11月26日 11:08
  • 320
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:asp下输入数据转换成htm文件显示
举报原因:
原因补充:

(最多只允许输入30个字)