在ASP中使用FSO组件生成HTML页面 - 明辉手游网

明辉手游网中心：是一个免费提供流行视频软件教程、在线学习分享的学习平台！

文章发布全站软件文章热门搜索：酷狗音乐最新 APP 评测没声音正常资讯首页腾讯视频爱奇艺暴风影音酷狗音乐酷我音乐影音大全软件下载软件教程电脑系统下载聊天工具办公软件杀毒教程系统工具图形图像电脑学习应用软件网络软件苹果应用注册码网站教程技术开发安卓教程其它教程您当前所在位置：网视手游站 -> 技术开发 -> 在ASP中使用FSO组件生成HTML页面
在ASP中使用FSO组件生成HTML页面发表时间：2023-08-19 来源：明辉站整理相关软件相关文章人气： [摘要]'共有两个页面index.htm是首页.程序比较简单，主要是用了ASP里的文件操作对象。<!--index.htm-----------------------------------... '共有两个页面index.htm是首页.程序比较简单，主要是用了ASP里的文件操作对象。 <!--index.htm-------------------------------------------------------------------------------> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"> <html> <head> <title>Untitled Document</title> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> </head> <body> <table width="770" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td><form name="form1" method="post" action="send.asp"> <table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#CCFFFF"> <tr> <td height="20"><div align="center">发送消息</div></td> </tr> <tr> <td><div align="center"> <textarea name="msg" cols="100" rows="6"></textarea> </div></td> </tr> <tr> <td><div align="center"> <input type="submit" name="Submit" value="Submit"> <input type="reset" name="Submit2" value="Reset"> </div></td> </tr> </table> </form></td> </tr> </table> </body> </html> '//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="<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")&"\"&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%> <script language="javascript"> alert("不能完成") </script> <%else%> <script language="javascript"> alert("已完成") history.back(); </script> <%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 %> '// 把send.asp和index.htm放到你的ASP目录下，然后再建一个news文件夹。打开浏览器，在地址栏里输入：http://你的机器名/你的ASP虚拟目录名/index.html输入文字，然后提交，OK！看看你的ASP目录里新建的news文件夹里是不是多了个新的文件夹，而且是以当前日期命名的。里面有你刚刚提交的文字，看看是不是生成了HTML文件。怎么样，你可以在此基础上做个简单的新闻发布系统。标签：在ASP中运用FSO组件生成HTML页面* 上一篇：怎么在指定矩形中旋转显示文字下一篇：php 发送带附件的邮件	推荐资讯总人气榜 1PS提示：因为图层已锁定，无法编辑图层的处理方法 2picacg苹果版怎么找不到\|picacg ios版是不是下架了介绍 3Adobe Illustrator CS5 序列号大全 4ACDsee注册码免费分享（含ACDsee18、ACDsee10等版本） 5Potato(土豆聊天)怎么换头像\|Potato app更改头像方法介绍 6PDF浏览器能看3D文件吗？PDF浏览器看3D文件图文详细教程 7Potato(马铃薯聊天)怎么注册不了\|Potato不能注册处理方法介绍 8最新的Adobe Illustrator CS4序列号大全 9Intel i7-9700K性能跑分曝光：同代提升约12% 10qq邮件是否已读怎么看 QQ邮箱已经发出去的邮件怎么知道对方是否已经查看 11XP系统怎么清除缓存？ 12Intel Z390主板有望10月8日公布：8核9代酷睿随后登场 1PHP 留言簿（带Oracle数据库分页的显示技巧） 2php.ini 设置详细选项 3转：Java技术版主Jeru在IBM的DevelopWorks发表的对于设模的文章 4Visual C++剪贴板设置不完全攻略 5基于ACCESS数据库的纯asp论坛制作心得 610天学会php之首天 7PHP新手上路--6. 网络资源 8Csharp+Asp.net系列图文详细教程（二） 9用PHP开发GUI（一个容易的例子） 10一个技巧完善的专栏管理的程序->这是asp.net的第二个应用(4) 113天学好ADO之首天 12让动态创建的ActiveX控件响应Windows消息最新教程本月人气 1刘徽《9章算术》中的勾股数 2JDBC 处理方案 3实时曲线的绘制与保存 4Resin服务器平台介绍 5SMS中用Unicode编码发送中文 6PHP中使用GD输出汉字案例 76种迅速修理C# Bug的方法 8编程书写规则 9在 WIN 平台上让你的 Apache 2.0.45 支持 PHP 108皇后问题的java完成 11使用ASP经常见问题回答 12MVC设计模式带来更好的软件结构与代码重用 1猎豹浏览器抢票不受12306新版验证码影响 2ios9不越狱怎么恢复短信与照片 ios9不越狱恢复短信与照片图文说明教程 310天学会php之首天 4抱抱app怎么玩抱抱app使用图文说明教程图 5360手机助手红包怎么提现 360手机助手红包提现设置流程 6160wifi远程桌面怎么连接 160wifi远程桌面连接设置方法 7微信PC版1.0.7.33官方下载公布修好bug优化软件 8手机登12306验证码总是出错处理方法介绍 9Linux内核4.2优化了哪一些地方？ 10linux系统使用命令维护RHCS的方法 113天学好ADO之首天 12小米note公布会视频完整版 2015小米note公布会视频直播
相关文章刘徽《9章算术》中的勾股数 JDBC 处理方案实时曲线的绘制与保存 Resin服务器平台介绍 SMS中用Unicode编码发送中文 PHP中使用GD输出汉字案例 6种迅速修理C# Bug的方法编程书写规则在 WIN 平台上让你的 Apache 2.0.45 支持 PHP 8皇后问题的java完成使用ASP经常见问题回答 MVC设计模式带来更好的软件结构与代码重用