一个比较实用的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
 rivate p_Error,p_IpAdd,p_Debug,Errs
 rivate p_InvaildWords
 rivate tmpStr
 rivate objConnDivPage,rsDivPage,p_GetSQL,p_nPage
 rivate p_rsPageSize,p_intCurPage,p_strURL,p_intTotalPage,p_intTotalRecords
 rivate p_dbType,p_dbFolder,p_DataBase,dbPath,p_dbUserID,p_dbPassword,p_sqlDataSource
 rivate param_DataBase,param_dbUserID,param_dbPassword,param_dbType
 'Property
 ublic objConn,ConnStr,SQLQueryNum
 ublic logDB,WebURL
 ublic SaveLog
 ublic ErrCodes,ErrCode,ErrMsg
 ublic ScriptFolder,ScriptName
 
 rivate Sub Class_Initialize
  p_Debug=True
  ClientConnected
  SaveLog=True
  ErrMsg=""
  p_Error=0
  SQLQueryNum=0
  Rem  数据库连接初始化
  dbType=12  '取1x