- 中国开源CMS第一品牌进入风讯CMS2.X后台出错，实在解决不了，泣求帮助。

aspgirl - 2005-4-19 18:48:00

我使用的是WINDOWS2000高级服务器版，风讯CMS放在D盘的FS目录下面。在IIS里设置虚拟目录后，用http://localhost/fs/admin/login.asp进后台出现如下错误。

Microsoft VBScript 编译器错误错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242 错误 '80004005'

未指定的错误

/fs/Inc/Session.asp，行3

在线等解决办法，再次谢谢。

aspgirl - 2005-4-19 18:50:00

Session.asp代码如下：

<%
Dim LoginUrl,confimsn
set confimsn=conn.execute("select domain,Sitelock,IndexExtName,NumberContPoint,NumberLoginPoint from config")
if Request.ServerVariables("SERVER_PORT")<>"80" then
LoginUrl = "http://"&Request.ServerVariables("LOCAL_ADDR")& ":" & Request.ServerVariables("SERVER_PORT")& Request.ServerVariables("URL")&"?"&request.QueryString
else
LoginUrl = "http://"&Request.ServerVariables("LOCAL_ADDR")& Request.ServerVariables("URL")&"?"&request.QueryString
end if

'Dim GetDoMains,TempPaths
'if Request.ServerVariables("SERVER_PORT")<>"80" then
'GetDoMains = Request.ServerVariables("LOCAL_ADDR")& ":" & Request.ServerVariables("SERVER_PORT")
'else
'GetDoMains = Request.ServerVariables("LOCAL_ADDR")
'end if
Dim UserName,UserPass,UserID,RsSessionObj,GoRefresh
UserName = Session("Name")
UserPass = Session("PassWord")
UserID = Session("AdminID")
GoRefresh=Session("UnRefreshs")
set RsSessionObj = Server.CreateObject ("ADODB.RecordSet")
RsSessionObj.Source="select * from admin where Name='"& UserName &"' and Password='"&UserPass&"'"
RsSessionObj.Open RsSessionObj.Source,Conn,1,1
if not RsSessionObj.EOF then
if cint(RsSessionObj("Lock"))=1 then
Response.Write("<script>alert(""错误：\n您已经被锁定,请与管理员联系!"&Copyright&""");location.href="""&GetDoMains&"/"&AdminDir&"Login.asp"";</script>")
Response.End
end if
RsSessionObj.Close
set RsSessionObj=nothing
else
RsSessionObj.Close
set RsSessionObj = nothing
Response.redirect""&confimsn("domain")&"/"&AdminDir&"Login.asp?UrlAddress=" & LoginUrl
Response.end
end if
if confimsn("Sitelock")="" then
Response.Write("<script>alert(""错误:\n产品信息没有找到，系统即将关闭窗口!"&Copyright&""");window.close();</script>")
Response.End
end if
%>

aspgirl - 2005-4-19 21:49:00

5555555555555 没人帮我啊

hotla - 2005-4-19 22:02:00

不管如何，看看Const.asp再说。呵呵，请贴上来。

aspgirl - 2005-4-20 12:01:00

<%
'////////////注意：单引号"'"不能去掉，请不要使用回车////////////
'////////////建议只改字符，不要增加、删除////////////
'==========================生成目录参数=======================================
Const AdminDir = "Admin/" '管理目录,必须带/
Const ClassDir = "fs/Get" '生成文件保存路径,后面不能带/
Const SysRootDir = "fs" '系统的虚拟目录,后面不能带/
Const UpFiles = "/fs/Files" '文件目录，带虚拟目录,后面不能带/
Const TempletDir = "/fs/Templets" '模板文件目录,后面不能带/
Const BeyondPicDir = "BeyondPic" '远程图片保存目录,后面不能带/,不能带虚拟目录
Const SaveImagePath = "/Files/BeyondPic" '新闻采集远程图片保存地址，带虚拟目录,后面不能带/
Const DataBaseConnectStr = "/fs/FooSun_Data/FooSun_Data.mdb" '数据库连接路径,请不要删除,请注意虚拟目录
Const IPDataBaseConnStr = "/fs/FooSun_Data/AddressIp.mdb" '流量统计IP数据库路径,如有虚拟目录,请前带虚拟目录
Const DownLoadDir = "DownLoad" '下载文件存放目录
'==========================邮件控制参数=======================================
Const MailObject = "Jmail" '邮件发送组件
Const MailServer = "mail.cooin.com" '用来发送邮件的SMTP服务器
Const MailServerUserName = "skeen@cooin.com" '登录用户名
Const MailServerPassword = "22222" '登录密码
Const代码如下

Const MailDomain = "cooin" '域名
'==========================版本控制参数=======================================
Const Copyright="\n\n FooSun Content Manage System V2.0" '系统版本信息，请不要改
'////////////配置信息结束////////////
%>

aspgirl - 2005-4-20 12:25:00

开始是数据库没权限于是我就在数据库里右键单击属性，给两个数据库设置了属性。

aspgirl - 2005-4-20 14:07:00

死心了居然这么大一个论坛连这么一个问题都解决不了。

sx-ljm - 2005-4-20 15:28:00

你下面的这个有错，后面不能带/，前面也一样不能带/，你去掉看看

Const UpFiles = "/fs/Files" '文件目录，带虚拟目录,后面不能带/
Const TempletDir = "/fs/Templets" '模板文件目录,后面不能带/

[此贴子已经被作者于2005-4-20 15:30:05编辑过]

aspgirl - 2005-4-20 17:14:00

还是不行

vdian - 2005-4-20 22:47:00

检查的d:/fs目录的属性

xueyuwuyin - 2005-4-21 05:41:00

呵呵能告诉我你硬盘的分区格式么...FAT32还是NTFS?如果是后者...你需要将一些权限打开的...我就是懒得看权限...把文件放在C:(FAT32)下...解析正常....

hotla - 2005-4-21 08:51:00

如果你的Const.asp设置都正确了的话。那需要看看你的系统权限和组件了。

nbzhq - 2005-8-5 11:54:00

关于const.asp说明：

'////////////注意：单引号"'"不能去掉，请不要使用回车////////////
'////////////建议只改字符，不要增加、删除////////////
============生成目录参数============

Const AdminDir = "Admin/" '管理目录,必须带/
Const ClassDir = "aaa/Get" '生成文件保存路径,后面不能带/
Const SysRootDir = "aaa" '系统的虚拟目录,后面不能带/
Const UpFiles = "aaa/Files"
'文件目录，带虚拟目录,后面不能带/
Const TempletDir = "aaa/Templets"
'模板文件目录,后面不能带/
Const BeyondPicDir = "BeyondPic"
'远程图片保存目录,后面不能带/,不能带虚拟目录
Const DataBaseConnectStr = "/aaa/FooSun_Data/FooSun_Data.mdb"
'数据库连接路径,请不要删除,请注意虚拟目录
Const IPDataBaseConnStr = "/aaa/FooSun_Data/AddressIp.mdb"
'流量统计IP数据库路径,如有虚拟目录,请前带虚拟目录
Const DownLoadDir = "DownLoad" '下载文件存放目录

这是SP3中的“安装必读.txt”的原内容，你设置时参照这个，只要把aaa换成你的安装目录fs即可。

[em01][em01][em01][em07]

liu - 2008-2-21 12:29:00

右键点击风讯所在目录，将“属性”中的“安全”选项页中Users的权限改为完全控制就可以了。

风讯官方论坛