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

 
最近迷恋上作网站了，使用asp开发，发现asp有好多的漏洞，而且在一个网站中有好多的代码是重复使用的，所以就查询了一些资料发现在asp中可以使用类的思想，所以就写了这个类，写的不好，但是比较实用。

<%
Const Btn_First="9"  '定义第一页按钮显示样式
Const Btn_Prev="3"  '定义前一页按钮显示样式
Const Btn_Next="4"  '定义下一页按钮显示样式
Const Btn_Last=":"  '定义最后一页按钮显示样式
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=""