使用ASP生成HTML文件 - Web开发 - 51CTO技术论坛

社区导航: 专家门诊网络技术操作系统数据库程序设计系统应用考试认证 CIO及信息化站长交流综合交流下载基地 51CTO产品服务

【设为首页 | 收藏本站】

51CTO技术论坛» Web开发 » 使用ASP生成HTML文件 [ 打印] [ 订阅] [ 收藏] [ 推荐给朋友] [ 本帖文本页]

论坛跳转:

gigi
新新人类

帖子 24
精华 0
无忧币 96
积分 64
阅读权限 20

注册日期 2007-1-15

最后登录 2007-12-15

离线

[查看资料] [发短消息] [Blog]

发表于:2007-11-21 13:32　　标题：使用ASP生成HTML文件
＜上一帖 | 下一帖＞

使用ASP生成HTML文件
来源： CSDN 作者： cctcc
共有两个页面index.htm是首页.程序比较简单，主要是用了ASP里的文件操作对象。
发送消息
'//send.asp
  news"
  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.number0 or err then%>

alert("不能完成")



  alert("已完成")
  history.back();

  ","")
  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

  %>
  '//
  把send.asp和index.htm放到你的ASP目录下，然后再建一个news文件夹。打开浏览器，在地址栏里输入：http://你的机器名/你的ASP虚拟目录名/index.html输入文字，然后提交，OK！看看你的ASP目录里新建的news文件夹里是不是多了个新的文件夹，而且是以当前日期命名的。里面有你刚刚提交的文字，看看是不是生成了HTML文件。怎么样，你可以在此基础上做个简单的新闻发布系统。