一个ASP（VBScript）简单SQL语句构建“类”_Sql Server_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

一个ASP（VBScript）简单SQL语句构建“类”

作者：闵涛文章来源：闵涛的学习笔记点击数：3268 更新时间：2007/11/14 12:58:05

= True
End Function

'''' /----生成更新语句----/

 Public Function getUpdate()
 Dim strSQLTemplate : strSQLTemplate = "UPDATA {table} SET {updatecontent} {conditions}"
 If VarType(strTableName) = 1 Then Exit Function
 strSQLTemplate = Replace(strSQLTemplate, "{table}", strTableName)
 If Process(objFields, "UPDATE") <> False Then
 strSQLTemplate = Replace(strSQLTemplate, "{updatecontent}", Process(objFields, "UPDATE"))
 Else
 strSQLTemplate = Replace(strSQLTemplate, "{updatecontent}", "")
 End If
 If VarType(strCondition) <> 1 And strCondition <> "" Then
 strSQLTemplate = Replace(strSQLTemplate, "{conditions}", " WHERE " & strCondition)
 Else
 strSQLTemplate = Replace(strSQLTemplate, "{conditions}", "")
 End If
 getUpdate = strSQLTemplate
 blnState = True
 End Function

'''' /----生成删除语句----/

Public Function getDelete()
 Dim strSQLTemplate : strSQLTemplate = "DELETE FROM {table} {conditions}"
 If VarType(strTableName) = 1 Then Exit Function
 strSQLTemplate = Replace(strSQLTemplate, "{table}", strTableName)
 If VarType(strCondition) <> 1 And strCondition <> "" Then
 strSQLTemplate = Replace(strSQLTemplate, "{conditions}", " WHERE " & strCondition)
 Else
 strSQLTemplate = Replace(strSQLTemplate, "{conditions}", "")
 End If
 getDelete = strSQLTemplate
 blnState = True
 End Function

'''' /----生成取记录数语句----/

Public Function getCount()
 Dim strSQLTemplate : strSQLTemplate = "SELECT COUNT(*) FROM {table} {conditions}"
 If VarType(strTableName) = 1 Then Exit Function
 strSQLTemplate = Replace(strSQLTemplate, "{table}", strTableName)
 If VarType(strCondition) <> 1 And strCondition <> "" Then
 strSQLTemplate = Replace(strSQLTemplate, "{conditions}", " WHERE " & strCondition)
 Else
 strSQLTemplate = Replace(strSQLTemplate, "{conditions}", "")
 End If
 getCount = strSQLTemplate
 blnState = True
 End Function

'''' /----添加处理字段及相应值----/

Public Sub AddField(ByVal sField, ByVal sValue)
 If VarType(sField) = 8 And Len(sField) > 0 And (VarType(sValue) = 8 Or VarType(sValue) <> 1) Then
 objFields.Add ProcessField(sField), ProcessValue(sValue)
 End If
 End Sub

 '''' /----添加条件字段及相应值----/

Public Sub AddCField(ByVal sField, ByVal sValue)
 If VarType(sField) = 8 And Len(sField) > 0 And VarType(sValue) = 8 And Len(sValue) > 0 Then
 Dim strCDTemplate : strCDTemplate = "{Field}{Operator}{value}"
 strCDTemplate = Replace(strCDTemplate,"{Field}", ProcessField(sField))
 strCDTemplate = Replace(strCDTemplate,"{Operator}"," " & strOperator & " ")
 If UCase(strOperator) = "LIKE" Then
 strCDTemplate = Replace(strCDTemplate,"{value}","''''%" & Safe(sValue) & "%''''")
 Else
 strCDTemplate = Replace(strCDTemplate,"{value}",ProcessValue(sValue))
 End If
 If VarType(strCondition) = 1 Then
 ReDim aContition(0)
 aContition(0) = strCDTemplate
 strCondition = Join(aContition, strLogic)
 Else
 strCondition = aContition(0)
 ReDim aContition(1)
 aContition(0) = strCondition
 aContition(1) = strCDTemplate
 strCondition = Join(aContition, strLogic)
 aContition(0) = strCondition
 End If
 ''''Response.Write strCondition & " "
 End If
 End Sub

'''' /----指定表名或视图名----/

  Public Property Let Table(ByVal s)
   If VarType(s) = 8 And Len(s) > 0 Then strTableName = "[" & s & "]"
  End Property

'''' /----设定主键----/

  Public Property Let PrimaryKey(ByVal s)
   If VarType(s) = 8 And Len(s) > 0 Then strPKey = "[" & s & "]"
  End Property

'''' /----主键排序----/

  Public Property Let Sort(ByVal s)
   If VarType(s) = 8 And Len(s) > 0 Then strPKeySort = UCase(s)
  End Property

'''' /----更改条件子句操作符----/

  Public Property Let Operator(ByVal s)
   If VarType(s) = 8 And Len(s) > 0 Then strOperator = UCase(s)
  End Property

'''' /----更改条件子句逻辑----/

  Public Property Let Logic(ByVal s)
   If VarType(s) = 8 And Len(s) > 0 Then strLogic = " " & UCase(s) & " "
  End Property

'''' /----返回返执行状态----/

  Public Property Get ActionState
   ActionState = blnState
  End Property

End Class

'''' /----演视开始----/

Dim sql, T1, T2

T1 = Timer()

Set sql = New QuestStringBuilder

sql.AddField "FRemark", "这是一个备注"
sql.AddField "FName", "思源"
sql.AddField "FCode", 120245
sql.Operator = "<"
sql.AddCField "FID", 1000
sql.Logic = "or"
sql.Operator = "like"
sql.AddCField "FFriend", "思源"
sql.Table = "FriendShip"
sql.PrimaryKey = "FID"
sql.Sort = "desc"

Response.Write "<pre>"
Response.Write "基于ASP(VBS版)的简单SQL语句生成“类”："
Response.Write " " & vbCrLf
Response.Write "查询语句：" & Sql.getSelect() & ""
Response.Write " " & vbCrLf
Response.Write "插入语句：" & Sql.getInsert() & ""
Response.Write " " & vbCrLf
Response.Write "更新语句：" & Sql.getUpdate() & ""
Response.Write " " & vbCrLf
Response.Write "删除语句：" & Sql.getDelete() & ""
Response.Write " " & vbCrLf
Response.Write "取记录数：" & Sql.getCount() & ""

''''sql.Clear()

Response.Write " " & vbCrLf

Response.Write "生成SQL语句是否成功：" & sql.ActionState & ""

Set sql = Nothing

T2 = Timer()

Response.Write " " & vbCrLf

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