一个比较实用的asp 函数集合类

最近迷恋上作网站了，使用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()

[1] [2] [3] [4] [5] [6] [7] [8] [9] [10] [11] 下一页

复制本页网址和标题，发送给你QQ/Msn的好友一起分享

上一篇:asp 分页代码

下一篇:ASP 和数据库连接