我使用的是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

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

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
%>

5555555555555 没人帮我啊

<%
'////////////注意：单引号"'"不能去掉，请不要使用回车////////////
'////////////建议只改字符，不要增加、删除////////////
'==========================生成目录参数=======================================
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"    '系统版本信息，请不要改
'////////////配置信息结束////////////
%>

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

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

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

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

还是不行

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

关于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即可。