一个改进的ASP生成SQL命令字符串类的代码[已测]

ield " content ", " 6 "
a.AddField " sendtime ", "7"
a.AddField " flag", 8
a.AddField " issend ", 9
Response.Write a.ReturnSQl
set a=nothing
%>
<%
set a =new SQLString ''创建类对象
a.TableName=" message " ''设置表名为message
''a.where=" issend =9"
''a.order=" issend desc"
a.SQLType=0 ''设置查询类型为增加记录
a.AddField " incept", "''2''"
a.AddField " sender ", "''%3%'' "
a.AddField " title ", "#"&now&"#"
a.AddField " sender ", "5 "
a.AddField " content ", " 6 "
a.AddField " sendtime ", "7"
a.AddField " flag", 8
a.AddField " issend ", 9
Response.Write a.ReturnSQl
set a=nothing
%>
<%
set a =new SQLString ''创建类对象
a.TableName=" message " ''设置表名为message
''a.where=" issend =9"
''a.order=" issend desc"
a.SQLType=0 ''设置查询类型为增加记录
a.AddField " incept", "''2''"
a.AddField " sender ", "''%3%'' "
a.AddField " title ", "#"&now&"#"
a.AddField " sender ", "5 "
a.AddField " content ", " 6 "
a.AddField " sendtime ", "7"
a.AddField " flag", 8
a.AddField " issend ", 9
Response.Write a.ReturnSQl
set a=nothing
%>