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

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

内容导读

互联网集市收集整理的这篇技术教程文章主要介绍了一个改进的ASP生成SQL命令字符串类的代码[已测]，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含3857字，纯文字阅读大概需要6分钟。

内容图文

代码如下:
<%
class SQLString
'************************************
'变量定义
'************************************
'sTableName ---- 表名
'iSQLType ----SQL语句类型：0-增加，1-更新，2-删除,3-查询
'sWhere ---- 条件
'sOrder ---- 排序方式
'sSQL ----值
Private sTableName,iSQLType,sWhere,sOrder,sSQL
'************************************
'类初始化/结束
'************************************
Private Sub Class_Initialize()
sTableName=""
iSQLType=0
sWhere=""
sOrder=""
sSQL=""
End Sub
Private Sub Class_Terminate()
End Sub
'************************************
'属性
'************************************
'设置表名的属性
Public Property Let TableName(value)
sTableName=value
End Property
'设置条件
Public Property Let Where(value)
sWhere=value
End Property
'设置排序方式
Public Property Let Order(value)
sOrder=value
End Property
'设置查询语句的类型
Public property Let SQLType(value)
iSQLType=value
select case iSQLType
case 0
sSQL="insert into {&*#}0 ({&*#}1) values ({&*#}2)"
case 1
sSQL="update {&*#}0 set {&*#}1={&*#}2"
case 2
sSQL="delete from {&*#}0 "
case 3
sSQL="select {&*#}1 from {&*#}0 "
end select
End Property
'************************************
'函数
'************************************
'增加字段（字段名称，字段值）
Public Sub AddField(sFieldName,sValue)
select case iSQLType
case 0
sSQL=replace(sSQL,"{&*#}1",sFieldName & ",{&*#}1")
sSQL=replace(sSQL,"{&*#}2","" & sValue & ",{&*#}2")
case 1
sSQL=replace(sSQL,"{&*#}1",sFieldName)
sSQL=replace(sSQL,"{&*#}2","" & sValue & ",{&*#}1={&*#}2")
case 3
sSQL=replace(sSQL,"{&*#}1",sFieldName & ",{&*#}1")
End Select
End Sub
'修改的返回字符串值的函数
'返回SQL语句
Public Function ReturnSQL()
sSQL=replace(sSQL,"{&*#}0",sTableName)
select case iSQLType
case 0
sSQL=replace(sSQL,",{&*#}1","")
sSQL=replace(sSQL,",{&*#}2","")
case 1
sSQL=replace(sSQL,",{&*#}1={&*#}2","")
case 3
sSQL=replace(sSQL,",{&*#}1","")
end Select
if sWhere<>"" and iSQLType<>0 then
sSQL=sSQL & " where " & sWhere
end if
if sOrder<>"" and iSQLType<>0 then
sSQL=sSQL & " order by " & sOrder
end if
ReturnSQL=sSQL
End Function
'返回SQL语句
Public Function ReturnSQL1()
sSQL=replace(sSQL,"{&*#}0",sTableName)
select case iSQLType
case 0
sSQL=replace(sSQL,",{&*#}1","")
sSQL=replace(sSQL,",{&*#}2","")
case 1
sSQL=replace(sSQL,",{&*#}1={&*#}2","")
case 3
sSQL=replace(sSQL,",{&*#}1","")
end Select
if sWhere<>"" and iSQLType<>0 then
sSQL=sSQL & " where " & sWhere
end if
if sOrder<>"" and iSQLType<>0 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
%>
调用例子：
<%
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
%>
<%
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
%>

内容总结

以上是互联网集市为您收集整理的一个改进的ASP生成SQL命令字符串类的代码[已测]全部内容，希望文章能够帮你解决一个改进的ASP生成SQL命令字符串类的代码[已测]所遇到的程序开发问题。如果觉得互联网集市技术教程内容还不错，欢迎将互联网集市网站推荐给程序员好友。

内容备注

版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容，请发送邮件至 gblab@vip.qq.com 举报，一经查实，本站将立刻删除。

内容手机端

扫描二维码推送至手机访问。

本文链接：https://qyyshop.com/info/383961.html

来源：【匿名】

【上一篇】Asp限制IP访问阻止某一个IP段禁止访问本站的代码【下一篇】ASP知识讲座四

更多 ►

【一个改进的ASP生成SQL命令字符串类的代码[已测]】教程文章相关的互联网学习教程文章

学习ASP .NET MVC5官方教程总结（五）使用SQL Server LocalDB创建连接字符串【图】

学习ASP .NET MVC5官方教程总结（五）使用SQL Server LocalDB创建连接字符串在上一章中，我们创建了MovieDBContext类来连接数据库、处理Movie 对象和数据库记录的映射。但是我们没有指定使用什么数据库，也没指定使用哪个数据库。其实，在我们没有指定数据库的时候，Entity Framework 默认使用LocalDB 。在本节中我们将介绍如何在Web.config 文件中添加一个数据库连接。 LocalDB 是SQL Server Express 数据...

asp.net字符串的数学表达式计算结果【代码】

using System; using System.Collections.Generic; using System.Web; using System.CodeDom.Compiler; using System.Reflection;namespace WebApplication1 {///<summary>/// 动态求值///</summary>publicclass FormulaCalculator{///<summary>/// 计算结果,如果表达式出错则抛出异常///</summary>///<param name="statement">表达式,如"1+2+3+4"</param>///<returns>结果</returns>publicstaticobject Eval(string statement){re...

ASP.NET web.config中数据库连接字符串connectionStrings节的配置方法

在ASP.NET开发的网站根目录，有一个名为web.config的文件，顾名思义，这是为整个网站进行配置的文件，其格式为XML格式。这里主要谈谈文件中的<connectionStrings>节。 <connectionStrings>节是对连接到数据库的字符串进行配置，由于MS SQL Server与ASP.NET同属于微软的产品，因此是使用ASP.NET开发时首选的数据库是MS SQL Server，本文只讨论对MS SQL Server的连接字符串情况。第一种情况，本地开发时，使用本地数据库，如下面的...

在ASP.NET中过滤HTML字符串总结【图】

先记下来，以作备用！ C#代码 /// <summary>去除HTML标记 /// /// </summary> /// <param name="Htmlstring">包括HTML的源码</param> /// <returns>已经去除后的文字</returns> public static string GetNoHTMLString(string Htmlstring) { //删除脚本 Htmlstring = Regex.Replace(Htmlstring, @"<script[^...

在ASP.NET MVC应用程序中随机获取一个字符串【图】

在开发ASP.NET MVC应用程序时，有可能需要一个随机字符串，作为密码或是验证码等。如果你需要的是SQL版本，可以参考《密码需要带特殊字符(二)》http://www.cnblogs.com/insus/archive/2012/02/16/2354453.html 此篇实现方法多少是参照这个实现C#版本。在应用程序下，创建一个CharacterUtility.cs: 这个类别中，分别有几个静态方法：一，为随机的小写字母：二，是随机产生大写字母：三，是随机产生数字：四，是产生特殊字符，字符...

ASP中Split分割字符串函数的实例用法

ASP中Split函数的用法分割截取字符串看几个例子就能理解了代码如下:mystr="1,2,3,4,5" mystr=split(mystr,",") for i=0 to ubound(mystr) response.write mystr(i) next 返回值为123456 mystr="xlei.net/http/student/x/index.asp" mystr=split(mystr,"/http/student") for i=0 to ubound(mystr) response.write mystr(i) next 返回值为xlei.net/x/index.asp mystr="1批在2批在3批在4批是在5批在" mystr=split(mystr,"批在") fo...

高分跪求ASP/PHP字符串加密解密可能字符串base64

高分跪求ASP/PHP字符串加密解密或者字符串base64例如：原始URL字符串：http://wwww.adfasf.com/upload/20120304/4532524.jpg我需要将这个字符串加密成：一个很短的字符串，大小写字母+数字或者单独数字或者字母都地。例：“http://wwww.adfasf.com/upload/20120304/4532524.jpg”=加密后的"afadasfwetqetqwetfasdf"同时需要解密程序：当我获取到“afadasfwetqetqwetfasdf”时，我通过解密程序得到原始的字符串。例："afadasfwetqet...

asp 正则过滤重复字符串的代码

比如 1223445677777778aabbcccccccccc 经过过滤之后就是12345678abc 代码如下:<% 过滤重复 Function norepeat(Str) Dim RegEx If IsNull(Str) Or Str="" Then Exit Function Set RegEx=New RegExp RegEx.Global = True RegEx.IgnoreCase=True RegEx.MultiLine = True RegEx.pattern="(.)\1+" str=regEx.replace(str,"$1") Set RegEx=Nothing Norepeat=str End Function 示例 s="1223445677777778aabbcccccccccc" response.write N...

asp+正则获得字符串中最后一个字母非字母不算

代码如下:Function getLastWord(str) Set regEx = New RegExp regEx.Pattern = "(.*)([a-zA-Z])[^a-zA-Z]*" regEx.IgnoreCase = false regEx.Global = True str = regEx.Replace(str,"$2") getLastWord = str Set reg=nothing End Function str="1B2A3fdsafdsf32432432" Response.Write(getLastWord(str)):Response.End()

asp正则过滤重复字符串的代码

比如 1223445677777778aabbcccccccccc 经过过滤之后就是12345678abc 代码如下:<% '过滤重复 Function norepeat(Str) Dim RegEx If IsNull(Str) Or Str="" Then Exit Function Set RegEx=New RegExp RegEx.Global = True RegEx.IgnoreCase=True RegEx.MultiLine = True RegEx.pattern="(.)\1+" str=regEx.replace(str,"$1") Set RegEx=Nothing Norepeat=str ...

asp常用的正则表达式实现字符串的替换

去除html标签正则<\/*[^<>]*>Function LoseHtml(ContentStr) Dim ClsTempLoseStr,RegEx ClsTempLoseStr = Cstr(ContentStr) Set RegEx = New RegExp RegEx.Pattern = "<\/*[^<>]*>" RegEx.IgnoreCase = True RegEx.Global = True ClsTempLoseStr = RegEx.Replace(ClsTempLoseStr,"") Set RegEx = Nothing LoseHtml = ClsTempLoseStr End function 去除网页中的classFunction ...

asp实现截取字符串函数

如果标题过长，因为页面布局的限制，只能列表10个字符，这个函数会帮你实现的代码如下: 截取字符串 strvalue(标题,字数) function strvalue(str,lennum) dim p_num dim i if strlen(str)<=lennum then strvalue=str else p_num=0 x=0 do while not p_num > lennum-2 x=x+1 if asc(mid(str,x,1))<0 then p_num=int(p_num) + 2 ...

Excel连接字符串中的HDR、IMEX参数详解

参数HDR的值： HDR=Yes，这代表第一行是标题，不做为数据使用，如果用HDR=NO，则表示第一行不是标题，做为数据来使用。系统默认的是YES 参数Excel 8.0 对于Excel 97以上版本都用Excel 8.0 IMEX ( IMport EXport mode )设置 IMEX 有三种模式：代码如下:0 is Export mode1 is Import mode2 is Linked mode (full update capabilities)我这里特别要说明的就是 IMEX 参数了，因为不同的模式代表著不同的读写行为：代码如下:当 IMEX=0...

asp 标记字符串中指定字符变色不区分大小写

普通的替换函数代码如下:public function HighLight(S,F) dim tL,tM,tR,k tL="" tM="" tR=S k=instr(1,tR,F,1) do while k>0 tL=tL & left(tR,k-1) tM=mid(tR,k,len(F)) tL=tL & "<span style=color:red>" & tM & "</span>" tR=right(tR,Len(tR)-len(F)-k+1) k=instr(1,tR,F,1) loop HighLight=tL & tR end function tS="abcaBcabCaBCabcaBCa" tF="bc" response.Write(tS) response.Write("<br/>") response.Write(HighLight(tS,t...

ASP 空字符串、IsNull、IsEmpty区别分析

说明:set aa=server.createobject("ddd") isnull 说明指针为空，指针指到一个无效的位置，即对象不存在， isempty 说明指针指向一个有效位置，但是值为空 1、空字符串例: 代码如下:a）Dim strTmp response.write(strTmp="") 返回true b）response.write(str="") 返回 true c）Dim strTmp strTmp="" response.write(strTmp="") 返回 true 这几行代码说明ASP中无论是没做过声明的变量还是做个声明但没有赋值的变量ASP都认为是空...

ASP - 技术教程分类

ASP 教程 ASP 简介 ASP 安装 ASP 语法 ASP 变量 ASP 程序 ASP 表单 ASP Cookies ASP Session ASP Application ASP #include ASP Global.asa ASP 发送电子邮件 ASP Response ASP Request ASP Application ASP Session ASP Server ASP Error ASP FileSystem ASP Drive ASP File ASP Folder ASP Dictionary ASP ADO ASP Content Rotator AJAX 简介 AJAX ASP AJAX 数据库 ASP 快速参考 ASP 总结 ASP 实例 asp 全部

ASP - 最热教程

查看ASP详细错误提示信息的图文设置方法 asp实现本周的一周时间列表的代码 asp取得数组中的最大值的方法 ASP实现URL编码 asp中把数据导出为excel的2种方法 ASP模拟POST请求异步提交数据的方法 asp 获取access系统表，查询等操作代码 asp实现二进制字符串转换为Unicode字符...asp php jsp的区别有哪些 ASP常用源代码的总结（下）

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

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

内容导读

内容图文

内容总结

内容备注

内容手机端

【一个改进的ASP生成SQL命令字符串类的代码[已测]】教程文章相关的互联网学习教程文章

学习ASP .NET MVC5官方教程总结（五）使用SQL Server LocalDB创建连接字符串【图】

asp.net字符串的数学表达式计算结果【代码】

ASP.NET web.config中数据库连接字符串connectionStrings节的配置方法

在ASP.NET中过滤HTML字符串总结【图】

在ASP.NET MVC应用程序中随机获取一个字符串【图】

ASP中Split分割字符串函数的实例用法

高分跪求ASP/PHP字符串加密解密可能字符串base64

asp 正则过滤重复字符串的代码

asp+正则获得字符串中最后一个字母非字母不算

asp正则过滤重复字符串的代码

asp常用的正则表达式实现字符串的替换

asp实现截取字符串函数

Excel连接字符串中的HDR、IMEX参数详解

asp 标记字符串中指定字符变色不区分大小写

ASP 空字符串、IsNull、IsEmpty区别分析

ASP - 相关标签

SQL - 相关标签

字符串 - 相关标签

ASP - 技术教程分类

ASP - 最新教程

ASP - 最热教程