个人中心
文章发布
退出
作者热门文章
- ubuntu12.04环境下使用kvm ioctl接口实现最简单的虚拟机
- Ubuntu 通过无线网络安装Ubuntu Server启动系统后连接无线网络的方法
- 在Ubuntu上搭建网桥的方法
- ubuntu 虚拟机上网方式及相关配置详解
28
4
CFSDN坚持开源创造价值，我们致力于搭建一个资源共享平台，让每一个IT人在这里找到属于你的精彩世界.
这篇CFSDN的博客文章ASP Crazy 模版操作类(最简单的模板类、仅提供交流)由作者收集整理，如果你对这篇文章有兴趣，记得点赞哟.
文件名：Awa_temp.Class.asp 。
复制代码代码如下
<% 'Crazy蛙!模板操作类 '作者Crazy~蛙! QQ:379969387 欢迎交流 '版本V1.0; Class AwaTemp Public aa Private FSO,StrTemp,FileData,GetDatas,StrHtmlName,htmlwrite,StrLabel,StrLValues '=========================================== '构造函数_初始化FSO组件 '=========================================== Private Sub Class_Initialize() Set FSO=Server.CreateObject("Scripting.FileSystemObject") End Sub '=========================================== '构析函数_销毁FSO组件 '=========================================== Private Sub Class_terminate() Set FSO=nothing End Sub '=========================================== '类属性 '=========================================== '版本信息 Public Property Get Version Version="Crazy~蛙! 模板操作类!V1.0版本;" End Property '获取模板地址以及名称 Public Property Let Temp(ByVal Values) StrTemp=Values End Property '获取生成文件的文件名 Public Property Let HtmlName(ByVal Values) StrHtmlName=Values End Property '获取标签 Public Property Let Label(ByVal Values) StrLabel=Values End Property '获取将标签替换的值 Public Property Let LValues(ByVal Values) StrLValues=Values End Property '=========================================== '类方法 '=========================================== '检查模板设置以及是否存在 Private Function Check() If StrTemp="" Then Check="<span style='color:red;'>错误：未设置模板文件存储位置！</span>" Else If FSO.FileExists(StrTemp)=false Then Check="<span style='color:red;'>错误：指定模板不存在！</span>" Else Check=true End If End If End Function '读取模板页 Public Sub ReadTemp() If Check()<>true Then Response.Write Check() Response.End() Else Set GetDatas=FSO.OpenTextFile(Server.MapPath(StrTemp)) FileData=GetDatas.ReadAll GetDatas.Close Set GetData=nothing End If End Sub '替换内容 Public Function Rep() If StrLabel="" Then Response.Write "<span style='color:red;'>错误：未设置欲替换的标签！</span>" Response.End() End If If StrLValues="" Then Response.Write "<span style='color:red;'>错误：未设置替换标签的数据！</span>" Response.End() End If FileData=Replace(FileData,StrLabel,StrLValues) End Function '输出 Public Sub Echo() Response.Write FileData End Sub '生成静态页面 Public Sub GetHtml() If StrHtmlName="" Then Response.Write "<span style='color:red;'>错误：未设置生成Html文件存储位置以及文件名称！</span>" Response.End() End If Set htmlwrite=FSO.CreateTextFile(Server.MapPath(StrHtmlName),true) '写入网页内容 htmlwrite.WriteLine FileData htmlwrite.Close set htmlwrite=Nothing End Sub End Class %> 。
用法示例： index.asp 。
复制代码代码如下
<!--#include file="Awa_temp.Class.asp"--> <% Set awa=New AwaTemp With awa .Temp="temp.tpl" .ReadTemp .Label="{tl1}" .LValues="蛋疼" .Rep .Echo '.HtmlName="aa/index.html" '.GetHtml End With Set awa=nothing %> 。
模版 temp.tpl： 。
复制代码代码如下
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312" /> <title>无标题文档</title> </head> <body> <table width="200" border="1"> <tr> <td>{tl1}</td> <td>{tl2}</td> <td>{tl3}</td> </tr> <tr> <td> </td> <td> </td> <td> </td> </tr> <tr> <td> </td> <td> </td> <td> </td> </tr> </table> </body> </html> 。
最后此篇关于ASP Crazy 模版操作类(最简单的模板类、仅提供交流)的文章就讲到这里了,如果你想了解更多关于ASP Crazy 模版操作类(最简单的模板类、仅提供交流)的内容请搜索CFSDN的文章或继续浏览相关文章，希望大家以后支持我的博客！ 。
28
4
0
我试图对 ASP.Net MVC 有一个高层次的理解，我开始意识到它看起来很像原始的 ASP 脚本。过去，我们将“模型”/业务逻辑代码组织到 VBScript 类或 VB COM 组件中。 当然，现在
我已经搜索了一段时间，但似乎找不到答案。 我想在我的旋转木马中显示一个计数器，左边是当前项目(工作)，左边是项目总数。 我的代码:
. 最佳答案 Scott Gu 称这些为代码块。这就是我的看法。 http://weblogs.asp.net/scottgu/archive/2010/04/06/new-lt-gt-syntax
我有一个使用 Visual Studio 2010/.net 4/VB 制作的网站。 我真的很喜欢我发现的 FAQ 系统的布局，因为它很简单，但它是经典的 asp。所以，显然，我不能包括我的母版页布局
好吧，对于你们许多人来说，这个问题可能有一个非常明显的答案，但它让我难住了。 我有一个 asp.net Web 表单，上面有两个控件(嗯，不止这两个，但我们将重点关注这些) - 第一个是 asp:dr
当我将 ASP.NET 复选框控件设置为 asp.net 更新面板的异步回发触发器时，EventName 属性是什么？ 最佳答案 我相信它是 CheckedChanged。 关于asp.net - a
我有一个用经典 asp 编写的(巨大的)网站。现在我必须切换到 vb.net (razor)。有没有办法将这两个结合起来直到切换完成？ 有没有办法让应用程序与经典的 asp 和 vb.net 一起工作
I am creating a products page, where the user selects an option in a radiobuttonlist for example, an
我最近将一个经典的 ASP 应用程序转换为 ASP.NET 3.5，但我觉得我的经典 ASP 版本要快一些(我不知道可能买家会后悔)。 所以你们能帮我解决这个问题吗，让我知道哪个更快，asp、asp.
从本周开始，我被要求开始学习如何使用 ASP 开发网站。我通过 XNA 对 C# 有一定的经验，所以这部分对我来说并不是什么麻烦。 我一直在关注Music Store Tutorial这需要我设置一个
关闭。这个问题需要多问focused 。目前不接受答案。 想要改进此问题吗？更新问题，使其仅关注一个问题 editing this post . 已关闭 8 年前。 Improve this ques
我想将一些表单变量发布到经典 ASP 页面中。我不想改变经典的 ASP 页面，因为需要完成大量的工作，以及消耗它们的页面数量。 经典的 ASP 页面需要将表单变量 Username 和 Userpas
已结束。此问题正在寻求书籍、工具、软件库等的推荐。它不满足Stack Overflow guidelines 。目前不接受答案。 我们不允许提出寻求书籍、工具、软件库等推荐的问题。您可以编辑问题，以便
在某种程度上，这可能是一个异端问题。我们有一个大型站点，其中许多页面仍在ASP中。通常，并没有真正动态的，而是包括(通过SSI或Server.Execute)定期重新生成的HTML块。看起来好像是一个
关闭。这个问题需要多问focused 。目前不接受答案。 想要改进此问题吗？更新问题，使其仅关注一个问题 editing this post . 已关闭 9 年前。 Improve this ques
我有一个遗留的 ASP 应用程序——在不久的某个时候——需要迁移到 ASP.Net 2.0(以与也在 2.0 中的其他应用程序兼容)。 对于这类事情是否有最佳实践，即作为第一步将当前 html、vbs
我目前在一家公司工作，该公司使用 ASP.NET Webforms 和旧 ASP 页面的组合进行 Web 开发。这对于他们当前的项目来说效果很好，但我想说服/建议他们切换到 ASP.NET MVC，因
我有一个经典的 asp 应用程序。我想将该页面的竞赛表格发布到 Asp.Net 表格。原因是我想在进入数据库之前使用我在 Asp.Net 页面中内置的大量逻辑进行验证，而我对 asp 不太了解。更不用
我知道在 ASP.NET MVC 中，您可以拥有移动 View 并执行类似 Index.mobile.cshtml 的操作。和 _Layout.mobile.cshtml并且服务器知道将这些 View
我需要从一些服务器端 c#.net 代码中调用经典 asp 页面上的 VBscript 函数 - 有谁知道一种干净的方法来做到这一点？在 .net 中重写函数不是一种选择。 我会再解释一下这个问题..
我是一名优秀的程序员,十分优秀！