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

ASP
ASP语法高亮类代码
ASP实现长文章分页
上一篇,下一篇过程代码
插件下载┊垃圾引用防御补丁（每小时自动换KEY，支持静态页面）
完美解决PJ的Cookies保存时限问题!可选择记录登陆时长!
ASP,PHP与.NET伪造HTTP-REFERER方法及防止伪造REFERER方法探讨
用VB生成DLL封装ASP连接数据库的代码
利用ActiveX控件InetCtls.Inet在ASP中实现新闻小偷
验证码识别技术
另类扩展名同样执行ASP
用JAVASCRIPT帮我写个计数器
用ASP读取XML文件的具体方法与示例
很有用的学习ASP常用到的代码
VBScript中变量作用域
可以查询百度排名的asp源码放送了
可以查询google排名的asp源码
用asp实现文件浏览、上传、下载的程序
Ajax+ASP和Flash+ASP数据读取取方法有些相似的实现方法
ASP与数据库，有用的代码（转贴，摘贴）
将首页转成静态html页的asp文件

No. « 52 53 54 55 »

技术文章搜索

关键字

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

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