end Select

              if sWhere<>"" then

                     sSQL=sSQL & " where " & sWhere

              end if

              if sOrder<>"" then

                     sSQL=sSQL & " order by "  & sOrder

              end if

              ReturnSQL=sSQL

       End Function

       ''''清空语句

       Public Sub Clear()

              sTableName=""

              iSQLType=0

              sWhere=""

              sOrder=""

              sSQL=""

       End Sub

end class

%>

使用方法：

例句：insert into message (incept,sender,title,content,sendtime,flag,issend) values (''''"&incept(i)&"'''',''''"&membername&"'''',''''"&title&"'''',''''"&message&"'''',Now(),0,1)

set a =new SQLString  ‘创建类对象

a.TableName=" message "  ‘设置表名为message

a.SQLType=0     ‘设置查询类型为增加记录

a.AddField " incept", incept(i)

a.AddField " sender ", membername

a.AddField " title ", membername

a.AddField " sender ", title

a.AddField " content ", message

a.AddField " sendtime ", sendtime()

a.AddField " flag", 0

a.AddField " issend ", 1

Response.Write a.ReturnSQl

set a=nothing

上一页  [1] [2] [3] [4]