展辰达化工-经典漆-品牌专卖店

中文

English

首页

产品查找

经典漆

品牌专卖店

经典漆全部产品

<% '──────────────────────────────── '功能说明：DataBaseClass类是实现数据库连接的类，里面留有数据库连接字符串接口 '包括模块：无，一般都是被其他模块包括 '调用方法：1、如果使用原有数据库连接，则不用更改数据库连接字符串ConnStr ' 具体操作为：Set DBC=New DataBaseClass ' DBC.ConnStr="其他连接字符串" ' 2、方法使用：Set Conn=DBC.OpenConnection()得到一个连接对象 '──────────────────────────────── Class DataBaseClass '──────────────────────────────── '定义变量 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() ConnStr = "Provider=SQLOLEDB.1;Persist Security Info=False;"&DataBaseConnectStr &";" 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("") Response.End end if End Function End Class %> <% '////////////注意：单引号"'"不能去掉，请不要使用回车//////////// '////////////建议只改字符，不要增加、删除//////////// '==========================生成目录参数======================================= Const AdminDir = "Admin/" '管理目录,必须带/ Const ClassDir = "Html" '生成文件保存路径,后面不能带/ Const SysRootDir = "" '系统的虚拟目录,后面不能带/ Const UpFiles = "Files" '文件目录，带虚拟目录,后面不能带/ Const TempletDir = "Templets" '模板文件目录,后面不能带/ Const ETempletDir = "Templets/English" '模板文件目录,后面不能带/ Const BeyondPicDir = "BeyondPic" '远程图片保存目录,后面不能带/,不能带虚拟目录 Const DataBaseConnectStr = "Server=121.198.158.225;User ID=cn73048;Password=r4l4p1a3;Database=cn73048_db" '数据库连接路径,请不要删除,请注意虚拟目录 Const IPDataBaseConnStr = "/Count/AddressIp.mdb" '流量统计IP数据库路径,如有虚拟目录,请前带虚拟目录 '==========================版本控制参数======================================= Const Copyright="\n\n erponline Manage System" '系统版本信息，请不要改 '////////////配置信息结束//////////// %> <% Set DBC = New DataBaseClass Set Conn = DBC.OpenConnection() Set DBC = Nothing %> {FS_页面标题}

关于经典漆

品牌专卖店

产品检索