当前位置: 首页 > 图文教程 > 网络编程 > ASP > 一个比较实用的asp函数集合类(1)

ASP
ASP连接SQL2005数据库连接代码
ASP程序与SQL存储过程结合使用详解
asp 小偷采集程序原理与常用函数方法
防盗链接ASP函数
asp将table生成excel文件(xls)
asp实现新评论自动发短信提示的代码
asp最简单的生成验证码代码
ASP 常见对象总结(熟悉一下利用以后的开发使用)
ASP UTF-8编码生成静态网页的函数
ASP+FSO生成的网页文件默认编码格式以及转换成UTF-8编码方法
asp Access数据备份,还原,压缩类代码
asp fso操作类
ASP 自动采集实现代码
asp 一些支付接口
ASP 递归调用 已知节点查找根节点的函数
用asp实现读取文件的最后一行的代码
用asp实现的获取文件夹中文件的个数的代码
ASP与Excel结合生成数据表和Chart图的代码
iis7 ASP+Access数据库连接错误
ASP 日期的加减运算实现代码

No. « 220 221 222 223 »

技术文章搜索

关键字

ASP 中的 一个比较实用的asp函数集合类(1)

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-11-03   浏览: 82 ::
收藏到网摘: n/a

      
  最近迷恋上作网站了，使用asp开发，发现asp有好多的漏洞，而且在一个网站中有好多的代码是重复使用的，所以就查询了一些资料发现在asp中可以使用类的思想，所以就写了这个类，写的不好，但是比较实用。
  
  <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  <%
  Const Btn_First="<font face='webdings'>9</font>" '定义第一页按钮显示样式
  Const Btn_Prev="<font face='webdings'>3</font>" '定义前一页按钮显示样式
  Const Btn_Next="<font face='webdings'>4</font>" '定义下一页按钮显示样式
  Const Btn_Last="<font face='webdings'>:</font>" '定义最后一页按钮显示样式
  
  Class clsDSJ
   Private p_Error,p_IpAdd,p_Debug,Errs
   Private p_InvaildWords
   Private tmpStr
   Private objConnDivPage,rsDivPage,p_GetSQL,p_nPage
   Private p_rsPageSize,p_intCurPage,p_strURL,p_intTotalPage,p_intTotalRecords
   Private p_dbType,p_dbFolder,p_DataBase,dbPath,p_dbUserID,p_dbPassword,p_sqlDataSource
   Private param_DataBase,param_dbUserID,param_dbPassword,param_dbType
   'Property
   Public objConn,ConnStr,SQLQueryNum
   Public logDB,WebURL
   Public SaveLog
   Public ErrCodes,ErrCode,ErrMsg
   Public ScriptFolder,ScriptName
  
   Private Sub Class_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
   If request("page")="" Then
   p_intCurPage=1
   ElseIf NOT IsNumeric(request("page")) Then
   p_intCurPage=1
   ElseIf CInt(Trim(request("page")))<1 Then
   p_intCurPage=1
   Else
   p_intCurPage=CInt(Trim(request("page")))
   End If
   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="selectupdatedeleteinsert@--;'#%xpcmdshell"
   End Sub
  
   Private Sub Class_terminate()
   If IsObject(rsDivPage) Then rsDivPage.Close:Set rsDivPage=Nothing
   If IsObject(objConn) Then objConn.Close:Set objConn=Nothing
   End Sub
  
   Public Property Get Version
   Version="DSJ 1.1.0 Beta"
   End Property
  
   Public Property Get Error
   Error=p_Error
   End Property
  
   Public Property Get Debug
   Debug=p_Debug
   End Property
   Public Property Let Debug(BoolDebug)
   If BoolDebug Then
   p_Debug=True
   Else
   p_Debug=False
   End If
   End Property
  
   Public Property Get dbType
   dbType=p_dbType
   End Property
   Public Property Let dbType(lngdbType)
   If IsNumeric(lngdbType) Then
   p_dbType=lngdbType
   Else
   p_dbType=12
   End If
   End Property
  
 &nb