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






