ASP网站制作之一个对照利用的asp 函数汇合类

帮助用户快速实现各种应用服务，ASP商有整合各方面资源的能力，可在短期内为用户提供所需的解决方案。例如，典型的ERP安装，如果要在客户端安装的话需要半年到二年的时间，但是美国的一些ASP商如USI和CORIO能在90—120天内提供ERP应用方案。对照|函数|汇合|函数|汇合比来沉沦上作网站了，利用asp开辟，发明asp有很多多少的毛病，并且在一个网站中有很多多少的代码是反复利用的，以是就查询了一些材料发明在asp中可使用类的头脑，以是就写了这个类，写的欠好，可是对照有用。
<metahttp-equiv="Content-Type"content="text/html;charset=gb2312">
<%
ConstBtn_First="<fontface=webdings>9</font>"界说第一页按钮显现款式
ConstBtn_Prev="<fontface=webdings>3</font>"界说前一页按钮显现款式
ConstBtn_Next="<fontface=webdings>4</font>"界说下一页按钮显现款式
ConstBtn_Last="<fontface=webdings>:</font>"界说最初一页按钮显现款式
ClassclsDSJ
Privatep_Error,p_IpAdd,p_Debug,Errs
Privatep_InvaildWords
PrivatetmpStr
PrivateobjConnDivPage,rsDivPage,p_GetSQL,p_nPage
Privatep_rsPageSize,p_intCurPage,p_strURL,p_intTotalPage,p_intTotalRecords
Privatep_dbType,p_dbFolder,p_DataBase,dbPath,p_dbUserID,p_dbPassword,p_sqlDataSource
Privateparam_DataBase,param_dbUserID,param_dbPassword,param_dbType
Property
PublicobjConn,ConnStr,SQLQueryNum
PubliclogDB,WebURL
PublicSaveLog
PublicErrCodes,ErrCode,ErrMsg
PublicScriptFolder,ScriptName

PrivateSubClass_Initialize
p_Debug=True
ClientConnected
SaveLog=True
ErrMsg=""
p_Error=0
SQLQueryNum=0
Rem数据库毗连初始化
dbType=12取1x――Access，2x――SQL;x1――OLEDB，x2――ODBC
dbFolder="Data"
DataBase="zhubizidatabase.MDB"
dbUserID=""
dbPassword=""
sqlDataSource=""
p_rsPageSize=10
p_nPage=2
Ifrequest("page")=""Then
p_intCurPage=1
ElseIfNOTIsNumeric(request("page"))Then
p_intCurPage=1
ElseIfCInt(Trim(request("page")))<1Then
p_intCurPage=1
Else
p_intCurPage=CInt(Trim(request("page")))
EndIf
WebURL="http://blog.csdn.net/alonesword/"
tmpStr=Request.ServerVariables("PATH_INFO")
tmpStr=Split(tmpStr,"/",-1)
ScriptName=Lcase(tmpStr(UBound(tmpStr)))
ScriptFolder=LCase(tmpStr(UBound(tmpStr)-1))&"/"
p_InvaildWords="select|update|delete|insert|@|--|;||#|%|xp|cmd|shell"
EndSub

PrivateSubClass_terminate()
IfIsObject(rsDivPage)ThenrsDivPage.Close:SetrsDivPage=Nothing
IfIsObject(objConn)ThenobjConn.Close:SetobjConn=Nothing
EndSub
PublicPropertyGetVersion
Version="DSJ1.1.0Beta"
EndProperty

PublicPropertyGetError
Error=p_Error
EndProperty

PublicPropertyGetDebug
Debug=p_Debug
EndProperty
PublicPropertyLetDebug(BoolDebug)
IfBoolDebugThen
p_Debug=True
Else
p_Debug=False
EndIf
EndProperty

PublicPropertyGetdbType
dbType=p_dbType
EndProperty
PublicPropertyLetdbType(lngdbType)
IfIsNumeric(lngdbType)Then
p_dbType=lngdbType
Else
p_dbType=12
EndIf
EndProperty

PublicPropertyGetdbFolder
dbFolder=p_dbFolder
EndProperty
PublicPropertyLetdbFolder(strFolder)
IfRight(strFolder,1)=""ORRight(strFolder,1)="/"Then
p_dbFolder=strFolder
Else
If(NOTIsNull(strFolder))OR(strFolder"")Then
p_dbFolder=strFolder&""
Else
p_dbFoler=""
EndIf
EndIf
EndProperty

PublicPropertyGetDatabase
Database=p_dataBase
EndProperty
PublicPropertyLetDatabase(strDataBase)
p_dataBase=strDatabase
EndProperty

PublicPropertyGetdbUserID
dbUserID=p_dbUserID
EndProperty
PublicPropertyLetdbUserID(strDataBaseUserID)
p_dbUserID=strDataBaseUserID
EndProperty

PublicPropertyGetdbPassword
dbPassword=p_dbPassword
EndProperty
PublicPropertyLetdbPassword(strDataBasePassword)
p_dbPassword=strDataBasePassword
EndProperty

PublicPropertyGetSQLDataSource
SQLDataSource=p_sqlDataSource
EndProperty
PublicPropertyLetSQLDataSource(st
asp对于服务器的要求较高，一般的服务器如果访问量一大就垮了，不得不重启。

封装性使得代码逻辑清晰，易于管理，并且应用到ASP.Net上就可以使业务逻辑和Html页面分离，这样无论页面原型如何改变，业务逻辑代码都不必做任何改动；继承性和多态性使得代码的可重用性大大提高。

如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助:

作为IE上广为流传的动态网页开发技术,ASP以它简单易学博得了广大WEB程序爱好这的青睐,而且它对运行环境和开发品台的不挑剔,以及有大量有效的参考手册,极大的推广了它的发展。

另外因为asp需要使用组件，所以了解一点组件的知识(ADODB也是组件)

在平时的学习过程中要注意现学现用，注重运用，在掌握了一定的基础知识后，我们可以尝试做一些网页，也许在开始的时候我们可能会遇到很多问题，比如说如何很好的构建基本框架。

如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助:

Response:从字面上讲是“响应”，因此这个是服务端向客户端发送东西的，例如Response.Write

从事这个行业，那么你可以学ASP语言，简单快速上手，熟练dreamweav排版，写asp代码，熟练photoshop处理图片，打好基础就行了