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()
&nb
相关文档：
asp.net中打开新窗口的多种方法(转载)
1.Response.Redirect("XXX.aspx",true)——直接转向新的页面，原窗口被代替;
2. Response.Write("
")——打开新的页面，原窗口被代替;
4.Server.Transfer("XXX.aspx")——打开新的页面;
5.Response.Write("
......
升华提供终身免费ASP+access PHP+mysql虚拟主机
一：升华网络科技有限公司,与升华同在站长终身免费空间扶持计划.
1、尊敬的用户您好,也许您还在为每年一交的空间费用发愁,也许您想获得一个更优质的空间却不想投入太多,从现在起 这些问题将迎刃而解→升华网络←与升华同在站长扶持计划全面启动。
2、没有注册公司 ......
在 ASP 中，有两个很常用的集合，一个是 Request.QueryString，另一个是 Request.Form。这两个集合可以获取 HTML 表单(HTML Forms) 提交的信息。
有关 HTML 表单，请参见 HTML 教程中的 HTML表单 一章。
Request.QueryString
HTML 表单中的 method 有两种，一种是 get，另外一种是 post。当 HTML 表单的 metho ......
<%
'true=是邮件;false=不是;
Function validate(ByVal str)
Dim temp,reg
Set reg = new regexp
reg.ignorecase=true
reg.global=true
reg.pattern = "^\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*$"
validate = reg.test(Trim(str))
Set reg = Nothing
End Function
'************************ ......
ASP调用存储过程的方法：
---- 调用存储过程的方法需要使用ADO的Command对象。Command对象是对一个数据源运行特定命令的定义（例如，一个SQL查询或一个SQL存储过程）。下面以MS SQL SERVER6.5为后台数据库，介绍ASP调用存储过程的方法。
---- � ......
