ASP编程：一个改善的ASP天生SQL 命令字符串的类
减少客户内IT专业人才缺乏带来的影响。ASP的客户员工利用浏览器进入相关的应用软件，简单易用，无需专业技术支持。字符串〈%classSQLString
************************************
变量界说
************************************
sTableName----表名
iSQLType----SQL语句范例：0-增添，1-更新，2-删除,3-查询
sWhere----前提
sOrder----排序体例
sSQL----值
PrivatesTableName,iSQLType,sWhere,sOrder,sSQL
************************************
类初始化/停止
************************************
PrivateSubClass_Initialize()
sTableName=""
iSQLType=0
sWhere=""
sOrder=""
sSQL=""
EndSub
PrivateSubClass_Terminate()
EndSub
************************************
属性
************************************
设置表名的属性
PublicPropertyLetTableName(value)
sTableName=value
EndProperty
设置前提
PublicPropertyLetWhere(value)
sWhere=value
EndProperty
设置排序体例
PublicPropertyLetOrder(value)
sOrder=value
EndProperty
设置查询语句的范例
PublicpropertyLetSQLType(value)
iSQLType=value
selectcaseiSQLType
case0
sSQL="insertinto{&*#}0({&*#}1)values({&*#}2)"
case1
sSQL="update{&*#}0set{&*#}1={&*#}2"
case2
sSQL="deletefrom{&*#}0"
case3
sSQL="select{&*#}1from{&*#}0"
endselect
EndProperty
************************************
函数
************************************
增添字段（字段称号，字段值）
PublicSubAddField(sFieldName,sValue)
selectcaseiSQLType
case0
sSQL=replace(sSQL,"{&*#}1",sFieldName&",{&*#}1")
sSQL=replace(sSQL,"{&*#}2",""&sValue&",{&*#}2")
case1
sSQL=replace(sSQL,"{&*#}1",sFieldName)
sSQL=replace(sSQL,"{&*#}2",""&sValue&",{&*#}1={&*#}2")
case3
sSQL=replace(sSQL,"{&*#}1",sFieldName&",{&*#}1")
EndSelect
EndSub
修正的前往字符串值的函数
前往SQL语句
PublicFunctionReturnSQL()
sSQL=replace(sSQL,"{&*#}0",sTableName)
selectcaseiSQLType
case0
sSQL=replace(sSQL,",{&*#}1","")
sSQL=replace(sSQL,",{&*#}2","")
case1
sSQL=replace(sSQL,",{&*#}1={&*#}2","")
case3
sSQL=replace(sSQL,",{&*#}1","")
endSelect
ifsWhere""andiSQLType0then
sSQL=sSQL&"where"&sWhere
endif
ifsOrder""andiSQLType0then
sSQL=sSQL&"orderby"&sOrder
endif
ReturnSQL=sSQL
EndFunction
前往SQL语句
PublicFunctionReturnSQL1()
sSQL=replace(sSQL,"{&*#}0",sTableName)
selectcaseiSQLType
case0
sSQL=replace(sSQL,",{&*#}1","")
sSQL=replace(sSQL,",{&*#}2","")
case1
sSQL=replace(sSQL,",{&*#}1={&*#}2","")
case3
sSQL=replace(sSQL,",{&*#}1","")
endSelect
ifsWhere""andiSQLType0then
sSQL=sSQL&"where"&sWhere
endif
ifsOrder""andiSQLType0then
sSQL=sSQL&"orderby"&sOrder
endif
ReturnSQL=sSQL
EndFunction
清空语句
PublicSubClear()
sTableName=""
iSQLType=0
sWhere=""
sOrder=""
sSQL=""
EndSub
Endclass
%〉
</p>只要你想学,就没什么优缺点,上面那位大哥已经把网上的评论说了,但我认为想学哪个都一样,不然它就不可能在当今时代数字艺术方面存活到今天 尽管MS自己讲C#内核中更多的象VC，但实际上我还是认为它和Java更象一些吧。首先它是面向对象的编程语言，而不是一种脚本，所以它具有面向对象编程语言的一切特性，比如封装性、继承性、多态性等等，这就解决了刚才谈到的ASP的那些弱点。 封装性使得代码逻辑清晰，易于管理，并且应用到ASP.Net上就可以使业务逻辑和Html页面分离，这样无论页面原型如何改变，业务逻辑代码都不必做任何改动；继承性和多态性使得代码的可重用性大大提高。 下面简单介绍一下我学习ASP的方法,希望对想学习ASP的朋友有所帮助... 掌握asp的特性而且一定要知道为什么。 接下来就不能纸上谈兵了，最好的方法其实是实践。实践，只能算是让你掌握语言特性用的。而提倡做实际的Project也不是太好，因为你还没有熟练的能力去综合各种技术，这样只能使你自己越来越迷糊。 ASP.Net摆脱了以前ASP使用脚本语言来编程的缺点，理论上可以使用任何编程语言包括C++,VB,JS等等，当然，最合适的编程语言还是MS为.NetFrmaework专门推出的C(读csharp)，它可以看作是VC和Java的混合体吧。 不是很难但是英文要有一点基础网上的教程很少有系统的详细的去买书吧,另不用专门学习vb关于vbscript脚本在asp教材都有介绍 还有如何才能在最短的时间内学完?我每天可以有效学习2小时，双休日4小时。 Application:这个存储服务端的数据，如果不清除，会直到web应用程序结束才清除(例如重启站点) 多看多学多思。多看一些关于ASP的书籍，一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人，向同学老师多多学习，不论知识的大小;多思则是要将学到的知识灵活运用。 ASP主要是用好六个对象，其实最主要的是用好其中两个：response和request，就可以随心所欲地控制网页变换和响应用户动作了。 Request:从字面上讲就是“请求”，因此这个是处理客户端提交的东东的,例如Resuest.Form，Request.QueryString,或者干脆Request("变量名") 运用ASP可将VBscript、javascript等脚本语言嵌入到HTML中，便可快速完成网站的应用程序，无需编译，可在服务器端直接执行。容易编写，使用普通的文本编辑器编写，如记事本就可以完成。由脚本在服务器上而不是客户端运行，ASP所使用的脚本语言都在服务端上运行。 我认为比较好的方法是找一些比较经典的例子，每个例子比较集中一种编程思想而设计的。 如何更好的使自己的东西看上去很不错等等。其实这些都不是问题的实质，我们可以在实践中不断提升自己，不断充实自己。 它可通过内置的组件实现更强大的功能，如使用A-DO可以轻松地访问数据库。 不是很难但是英文要有一点基础网上的教程很少有系统的详细的去买书吧,另不用专门学习vb关于vbscript脚本在asp教材都有介绍 下载一个源代码，然后再下载一个VBScript帮助，在源代码中遇到不认识的函数或是其他什么程序，都可以查帮助进行解决，这样学习效率很高。 没有坚实的理论做基础，那么我们连踏入社会第一步的资本都没有，特别对于计算机专业的学生学好专业知识是置关重要的。在这里我侧重讲一下如何学习ASP，从平时的学习过程中。
页:
[1]
2