http://www.aixin100.org/admin/login.asp    能帮忙看下吗?????????什么毛病啊 加QQ84595493!!!!!!!谢谢啊

服务器设置问题,请仔细检查.
如用2003,看父路径启用了没用!

起用了啊

<%
'////////////注意：单引号"'"不能去掉，请不要使用回车////////////
'////////////建议只改字符，不要增加、删除////////////
'==========================生成目录参数=======================================
Const AdminDir = "Admin/"                                                      '管理目录,必须带/
Const ClassDir = ""                                                      '生成文件保存路径,后面不能带/
Const SysRootDir = ""                                                        '系统的虚拟目录,后面不能带/
Const UpFiles = "Files"                                                      '文件目录，带虚拟目录,后面不能带/
Const TempletDir = "Templets"                                          '模板文件目录,后面不能带/
Const BeyondPicDir = "BeyondPic/2005"                                          '远程图片保存目录,后面不能带/,不能带虚拟目录
Const SaveImagePath = "BeyondPic/2005"                                  '新闻采集远程图片保存地址，带虚拟目录,后面不能带/
Const DataBaseConnectStr = "Server=(local);User ID=用户名;Password=你的密码;Database=数据库名称"  '数据库连接路径,请不要删除,请注意虚拟目录
Const RecordDataBaseConnectStr = "/FooSun_Data/Record.mdb"  '归档数据库联接路径,请不要删除,请注意虚拟目录
Const RecordNewsListSavePath = "oldrecord"                  '归档新闻列表文件保存路径,后面不能带/
Const IPDataBaseConnStr = "/FooSun_Data/AddressIp.mdb" '流量统计IP数据库路径,如有虚拟目录,请前带虚拟目录
Const DownLoadDir = "DownLoad"                                              '下载文件存放目录
'==========================邮件控制参数=======================================
Const MailObject = "Jmail"                                                      '邮件发送组件
Const MailServer = "mail.vip.163.com"                                        '用来发送邮件的SMTP服务器
Const MailServerUserName = "78002700"                      '登录用户名
Const MailServerPassword = "chinazhp8"                                        '登录密码
Const MailDomain = "home.woool.name"                                                    '域名
'==========================版本控制参数=======================================
Const Copyright="\n\n FooSun Content Manage System V3.0"    '系统版本信息，请不要改
'////////////配置信息结束////////////
%>

<%
response.buffer=true
'────────────────────────────────
'功能说明：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("<script>alert('[系统错误]\n\n数据库连接错误！请检查系统参数设置>>站点常量设置,或者/inc/const.asp文件!');</script>") 
        Response.End
    end if
End Function
End Class
%>

Const.asp  和Cls_DB.asp的设置能帮忙看下吗?