一个改进的ASP生成的sql命令字符串类代码
复制代码代码如下所示：<
类sqlstring
************************************
变量的定义
************************************
stablename --表的名称
isqltype ---- SQL语句的类型：0增加，1的更新，2缺失，3查询
哪里条件
疾病-分类方法
ssql -价值
私人stablename，isqltype，其中，这样，ssql
************************************
类初始化/结束
************************************
私有子class_initialize（）
stablename =
isqltype = 0
其中=
这样=
ssql =
端子
私有子class_terminate（）
端子
************************************
属性
************************************
设置表名的属性
Public Property Let TableName (value)
stablename =价值
最后的财产
设置条件
公共财产放在哪里（价值）
其中=价值
最后的财产
'设置排序
公共财产让秩序（价值）
这样=价值
最后的财产
设置查询语句的类型
公共财产让SQLType（值）
isqltype =价值
选择案例isqltype
案例0
ssql =插入# } { * 0（{ * # } 1）值（{ * # } 2）
案例1
ssql =更新{ * # } 0集{ } = { * 1 * # # } 2
案例2
ssql =删除# } {×0
案例3
ssql =选择{ } { * 1 * # # } 0
最后选择
最后的财产
************************************
功能
************************************
添加字段（字段名，字段值）
市民Sub AddField（sfieldname，价值）
选择案例isqltype
案例0
ssql =取代（ssql，{ * # } 1
ssql =取代（ssql，{ * # } 2
案例1
ssql =取代（ssql，{ * # } 1
ssql =取代（ssql，{ * # } 2
案例3
ssql =取代（ssql，{ * # } 1
最后选择
端子
返回字符串值的修改函数
返回SQL语句
公共函数ReturnSQL（）
ssql =取代（ssql，{ * # } 0
选择案例isqltype
案例0
ssql =取代（ssql，
ssql =取代（ssql，
案例1
ssql =取代（ssql，
案例3
ssql =取代（ssql，
最后选择
如果其中<> 和isqltype <> 0
ssql = ssql ，哪里
最后如果
如果订购<> 和isqltype <> 0
ssql = ssql 订单订购
最后如果
returnsql = ssql
端功能
返回SQL语句
公共功能returnsql1（）
ssql =取代（ssql，{ * # } 0
选择案例isqltype
案例0
ssql =取代（ssql，
ssql =取代（ssql，
案例1
ssql =取代（ssql，
案例3
ssql =取代（ssql，
最后选择
如果其中<> 和isqltype <> 0
ssql = ssql ，哪里
最后如果
如果订购<> 和isqltype <> 0
ssql = ssql 订单订购
最后如果
returnsql = ssql
端功能
排空语句
公共分组清除（）
stablename =
isqltype = 0
其中=
这样=
ssql =
端子
类的结束
%>
调用的例子：
<
设置=新sqlstring创建类的对象
a.tablename =消息集表命名的消息
'=被发送= 9
'a.order= issend desc
a.sqltype = 0设置查询类型增加记录
a.addfield接收
a.addfield 的人
a.addfield题名
a.addfield 的人
a.addfield内容
a.addfield发送的时间
a.addfield旗
a.addfield被发送
写a.returnsql响应。
设置一无
%>
<
设置=新sqlstring创建类的对象
a.tablename =消息集表命名的消息
'=被发送= 9
a.order =被发送desc
a.sqltype = 0设置查询类型增加记录
a.addfield接收
a.addfield 的人
a.addfield题名
a.addfield 的人
a.addfield内容
a.addfield发送的时间
a.addfield旗
a.addfield被发送
写a.returnsql响应。
设置一无
%>
<
设置=新sqlstring创建类的对象
a.tablename =消息集表命名的消息
'=被发送= 9
a.order =被发送desc
a.sqltype = 0设置查询类型增加记录
a.addfield接收
a.addfield 的人
a.addfield题名
a.addfield 的人
a.addfield内容
a.addfield发送的时间
a.addfield旗
a.addfield被发送
写a.returnsql响应。
设置一无
%>