【asp源码栏目提醒】:网学会员--在 asp源码编辑为广大网友搜集整理了:asp文件生成html静态代码第一种 - 技术总结绩等信息,祝愿广大网友取得需要的信息,参考学习。
asp文件生成html静态代码第一种
asp文件生成html静态代码第一种2010-06-27 0015以下代码是一段非常简单的
ASP生成HTML静态页的实例简单、直接、明了的说名了HTML静态页的生成。
事先声明服务器必须支持FSO才能用以下方法生成HTML静态页。
输入一个标题和部分内容然后点生成HTML页就可以在同目录下生成一个叫test.html的静态页。
根据这个原理可以生成很多其他格式的文件如.txt文本文件等。
泡泡
ASP相关代码If Request.FormContentThen Rem可以自定义文件名filenametest.htmlRem创建FSO对象Set fsoServer.CreateObjectScripting.FileSystemObjectRem将相对路径转换成绝对路径然后生成html文件Set foutfso.CreateTextFileServer.MapPathfilenameRem将文本内容写入文件fout.Write标题titleRequest.FormTitlebrfout.Write内容ContentRequest.FormContentfout.Close Rem释放对象Set foutNothing Set fsoNothing End Ifform nameform1methodpostactioninput nameTitleidTitlesize30 br br textarea nameContentcols50rows8/textarea br br input typesubmitnameSubmitvalue生成HTML页/form 根据以上代码可以添加或灵活修改成自己想要的方式。
比如一个简单的新闻系统你只需要多加几个文本况连上数据库如果不会连接数据库请在本站搜索
ASP连接数据库添加几个必要的字段如编辑添加时间来源等。
一般静态页还有个批量生成的概念这里这个方法当然不适合批量生成。
无论是否存在批量生成的概念生成静态页避免重名都是要做的下边说下尽量避免重名的方法 泡泡
ASP相关代码Rem生成文件名的函数Function MakeFileNamefnamefnamefname fnameReplacefname-fnameReplacefnamefnameReplacefnamefnameReplacefnamePMfnameReplacefnameAMfnameReplacefname上午fnameReplacefname下午MakeFileNamefname End Function 此函数在使用时将系统的Now函数值传递过去作为参数将时间精确到秒因为时间是一直不断变化所以重复的几率很低。
当然计算机的处理速度用秒来衡量似乎有点太大所以有时只是精确到秒还是会出现重名的几率此时就要在这个以时间命名的文件名的基础上再配合一个随机数。
这样几乎就防止了文件名的重名问题。
一般较常见的是随机生成五位数 泡泡
ASP相关代码Randomize RndNumInt89999Rnd10000 这样就可以了注意Randomize必须有否则不能生成不重复的五位数。
经过以上两个方法获得的文件名的格式系统当前时间5位随机数.html 例如200842.html其中2008421184430是系统当前时间而56831则是生成的随机数后边的.html就是设置的文件的扩展名。
要是换成.txt就变成了一个文本文件。
将开始的简单生成静态页文件的代码做如下修改就变成了新的生成HTML静态页的方法。
与之前不同的是文件名不在需要人为的去写而是随机生成的不重复的文件名。
泡泡
ASP相关代码Rem生成文件名的函数Function MakeFileNamefnamefnamefname fnameReplacefname-fnameReplacefnamefnameReplacefnamefnameReplacefnamePMfnameReplacefnameAMfnameReplacefname上午fnameReplacefname下午MakeFileNamefname End Function Randomize RndNumInt89999Rnd10000 If Request.FormContentThen Rem可以自定义文件名filenameMakeFileNameNowRndNum.htmlRem创建FSO对象Set fsoServer.CreateObjectScripting.FileSystemObjectRem将相对路径转换成绝对路径然后生成html文件Set foutfso.CreateTextFileServer.MapPathfilenameRem将文本内容写入文件fout.Write标题titleRequest.FormTitlebrfout.Write内容ContentRequest.FormContentfout.Close Rem释放对象Set foutNothing Set fsoNothing End Ifform nameform1methodpostactioninput nameTitleidTitlesize30 br br textarea nameContentcols50rows8/textarea br br input typesubm itnameSubmitvalue生成HTML页/form
上一篇:
ASP NET动态添加文本框代码
下一篇:
组织管理类英语论文