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

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

ASP: 分享一段代码show.asp?id=26变成show/?26的形式; 多域名一网站时如果返回最原来的域名; [原创]完美解决ASP 不能更新。数据库或对象为只读。; 5天学会asp; TSYS中生成静态页时溢出: ''CInt''; 对象标记具有无效的 ''MSWC.MyInfo'' ProgID; [原创]随机增加网站点击的一个不错的方法; Microsoft JET Database Engine 错误 ''80004005'' 未指定的错误的完美解决方法; 反SPAM新思路—换Z-BLOG的验证码！; 七步倒┈→专用asp后门; asp下实现代码的“运行代码”“复制代码”“保存代码”功能源码; 使用ASP实现网站的“目录树”管理的代码; ShowPage 显示“上一页下一页”等信息的封装代码; [原创]站长感慨asp编程究竟何去何从; 响应对象错误 ''ASP 0185 : 80020003'' 缺少默认属性; [原创]asp下用实现模板加载的的几种方法总结; [原创]asp获取URL参数的几种方法分析总结; Access数据库中“所有记录中均未找到搜索关键字”的解决方法; ASP程序中输出Excel文件实例一则; ASP应用中如何限制同一表单被多次提交

No. « ‹ 86 87 88 89 › »

技术文章搜索

关键字

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

出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 106 ::

收藏到网摘: n/a

ASP判断文件地址是否有效! 一个比较实用的asp函数集合类(2)

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

 <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
 <%
 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=""
 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

ASP判断文件地址是否有效! 一个比较实用的asp函数集合类(2)

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

评论 (0) All

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