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

ASP
ASP里面令人震撼地Debug类（VBScript）
提供个 全免杀海洋2006asp木马 下载
VBS加密免杀器 下载
asp页面下的乱码问题终于解决了
一款不错的asp木马 黑色界面
七步倒┈→专用asp后门
ASP对网页进行保护的简单代码 ip
asp遍历站点所有文件夹的代码
用js实现QQ在线查询功能
非常不错的ASP+Access数据库的终极安全大法18则
万能Asp防注入代码 拒绝攻击
用asp实现把文件打包成Xml文件包，带解包的ASP工具附下载
asp下实现代码的“运行代码”“复制代码”“保存代码”功能源码
asp字符串加密解密函数
asp adodb.stream对象的方法/属性
asp rs.open sql,conn,3,1中3，1代表什么？
推荐ASP中VBScript常用函数
ASP的Global.asa使用说明
ASP七大对象说明分析
ASP网站生成静态html页面技术小结

No. « 61 62 63 64 »

技术文章搜索

关键字

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

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-11-03   浏览: 161 ::
收藏到网摘: 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