|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
大家可以自己去看一看.可以说看得想呕吐.以前有次下了个动网来看.里面连基本内置函数的保护措施(函数没防御性)都没有.难怪经常补这个补那个了.可能现在.NET版会好点吧对象|数据|数据库 <%
’────────────────────────────────
’功效申明:db类是完成数据库毗连的类,外面留无数据库毗连字符串接口
’包含模块:无,普通都是被其他模块包含
’挪用办法:1、假如利用原无数据库毗连,则不必更改数据库毗连字符串ConnStr
’ 详细操作为:Set DBC=New DataBaseClass
’ DBC.ConnStr="其他毗连字符串"
’ 2、办法利用:Set Conn=DBC.OpenConnection()失掉一个毗连对象
’────────────────────────────────
Class dbclass
’────────────────────────────────
’界说变量
Private IConnStr
’────────────────────────────────
’ ConnStr属性
Public Property Let ConnStr(Val)
IConnStr = Val
End Property
’────────────────────────────────
’ ConnStr属性
Public Property Get ConnStr()
ConnStr = IConnStr
End Property
’────────────────────────────────
’ 类初始化
Private Sub Class_initialize()
End Sub
’────────────────────────────────
’ 类刊出
Private Sub Class_Terminate()
ConnStr = Null
End Sub
’────────────────────────────────
’ 创立一个毗连
Public Function OpenConnection()
Dim TempConn
’On Error Resume Next
Set TempConn = Server.CreateObject("ADODB.Connection")
TempConn.Open ConnStr
Set OpenConnection = TempConn
Set TempConn = Nothing
if Err.Number <> 0 then
Response.Write("<script>alert(’[体系毛病]\n\n数据库毗连毛病!请反省体系参数设置>>站点常量设置,或/inc/const.asp文件!’);</script>")
Response.End
end if
End Function
End Class
%> </p> ASP在国内异常流行,因为国内大多使用的是盗版的Windows和盗版的SQLServer,而ASP+COM+SQLServer实际上也是一种不错的搭配,其性能也不输于PHP+MYSQL,特别是Windows系统和SQLServer都有图形界面,比APACHE和MYSQL易于维护,因此对于不重视知识产权的国家来说也是一种不错的选择。 |
|