<% '========================以下参数由系统自动生成，不用在此直接修改====================================== If lmkg11=1 Then dim connwd,connstrwd,DbFilewd,IsSqlDataBase,SqlDatabaseNamewdask,SqlPasswordwdask,SqlUsernamewdask,SqlLocalNamewd,settingwd,regFormwd IsSqlDataBase = {$ask@IsSqlDataBase} If IsSqlDataBase = 1 Then SqlDatabaseNamewdask = "{$ask@SqlDatabaseNameask}" SqlPasswordwdask = "{$ask@SqlUsernameask}" SqlUsernamewdask = "{$ask@SqlPasswordask}" SqlLocalNamewd = "{$ask@SqlLocalName}" ConnStrwd = "Provider = Sqloledb; User ID = " & SqlUsernamewdask & "; Password = " & SqlPasswordwdask & "; Initial Catalog = " & SqlDatabaseNamewdask & "; Data Source = " & SqlLocalNamewd & ";" Else DbFilewd = "{$ask@setupurl}{$ask@askDBFile}" ConnStrwd = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(DbFilewd) End If On Error Resume Next Set connwd = Server.CreateObject("ADODB.Connection") connwd.Open ConnStrwd If Err Then Err.Clear Set connwd = Nothing Response.Write "数据库连接出错，请检查连接字串。" Response.End End If On Error GoTo 0 Const WebSite="{$ask@WebSite}" '网站名称 Const setupurl="{$ask@setupurl}" '系统安装路径 Const fUserRegScore={$ask@fUserRegScore} '用户注册时获得的积分 Const fUserLoginScore={$ask@fUserLoginScore} '用户登录时获得的积分 End If %>