lijunqi - 2008-2-20 00:51:00
http://www.aixin100.org/admin/login.asp 能帮忙看下吗?????????什么毛病啊 加QQ84595493!!!!!!!谢谢啊
zhaxia - 2008-2-20 12:28:00
服务器设置问题,请仔细检查.
如用2003,看父路径启用了没用!
lijunqi - 2008-2-20 13:32:00
起用了啊
lijunqi - 2008-2-20 13:48:00
<%
'////////////注意：单引号"'"不能去掉，请不要使用回车////////////
'////////////建议只改字符，不要增加、删除////////////
'==========================生成目录参数=======================================
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" '系统版本信息，请不要改
'////////////配置信息结束////////////
%>
lijunqi - 2008-2-20 13:48:00
<%
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
%>
lijunqi - 2008-2-20 13:49:00
Const.asp 和Cls_DB.asp的设置能帮忙看下吗?