<% response.buffer=true session.codepage=936 response.charset="gb2312" Dim Conn1,db,MyDbPath,actcool,actField,NowString,ConnStr,aspexe Const isSqlDataBase = 0 Const MsxmlVersion=".3.0" '系统采用XML版本设置 Const AcTCMSN="rebeng"'系统缓存名称.在一个URL下安装多个ACTCMS请设置不同名称 Const DataBaseType="mssql" '' 数据库类型: 值分别为 access mssql Dim DataServer,DataUser,DataBaseName,DataBasePsw '如果是SQL数据库，请认真修改好以下数据库选项 DataServer = "121.41.228.133" '数据库服务器IP 'DataBaseName = "hpwater.cn" '数据库名称 DataBaseName = "hvacr" '数据库名称 DataUser = "hvacr" '访问数据库用户名 DataBasePsw = "hvacr2012" '访问数据库密码 NowString = "getdate()" '=============================================================== 以下代码请不要自行修改======================================== Sub ConnectionDatabase() 'On Error Resume Next ConnStr="Provider = Sqloledb; User ID = " & datauser & "; Password = " & databasepsw & "; Initial Catalog = " & databasename & "; Data Source = " & dataserver & ";" Set conn1 = Server.CreateObject("ADODB.Connection") conn1.open ConnStr If Err Then response.Write err.Description: Err.Clear:Set conn1 = Nothing:Response.Write " 数据库连接出错，请检查Conn.asp文件中的数据库参数设置。":Response.End End Sub Sub CloseConn() On Error Resume Next If IsObject(Conn1) Then Conn1.Close:Set Conn1 = Nothing End If End Sub Call ConnectionDatabase conn1.execute("Update Article_ACT set Hits=Hits+1 where ID=14410") Call CloseConn %>