我的网站是动易V5.7版本的，原来在win2003服务器使用没有问题www.50dv.com(美食)，后来将其变为www.50dv.com下的一个栏目meishi，并搬家到腾讯云服务器问题就随之而来了。1、无法发表或更改文章。出现：Microsoft VBScript 运行时错误 错误 '800a01f4' 变量未定义: 'UserEnableComment' /meishi/Include/PowerEasy.Common.All.asp，行 102 2、无法备份数据库。出现：Microsoft VBScript 运行时错误 错误 '800a004c' 路径未找到 /meishi/meishi50dv/Admin_Database.asp，行 485 查找半天也没有解决问题，动易论坛还限制注册，到这里寻找办法。第一个问题的代码：484~486行如下：End If fso.copyfile dbpath, bkfolder & "\" & bkdbname & ".asa" Call WriteSuccessMsg("备份数据库成功，备份的数据库为：<br>" & bkfolder & "\" & bkdbname & ".asa", ComeUrl)第二个问题代码：前128行如下：'**' Software name: PowerEasy SiteWeaver' Web: http://www.powereasy.net' Copyright (C) 2005－2008 佛山市动易网络科技有限公司 版权所有'**'判断当前访问者是否已经登录，若已登录，则读取数据并做必要赋值Function CheckUserLogined() Dim UserPassword, LastPassword Dim rsUser, sqlUser UserID = 0 GroupID = 0 Balance = 0 UserPoint = 0 UserExp = 0 LoginTimes = 0 UserChargeType = 0 CheckUserLogined = False UserName = ReplaceBadChar(Trim(Request.Cookies(Site_Sn)("UserName"))) UserPassword = ReplaceBadChar(Trim(Request.Cookies(Site_Sn)("UserPassword"))) LastPassword = ReplaceBadChar(Trim(Request.Cookies(Site_Sn)("LastPassword"))) If (UserName = "" Or UserPassword = "" Or LastPassword = "") Then ReDim UserSetting(50) CheckUserLogined = False Exit Function End If sqlUser = "SELECT UserID,GroupID,LoginTimes FROM PE_User WHERE UserName='" & UserName & "' AND UserPassword='" & UserPassword & "' AND LastPassword='" & LastPassword & "' and IsLocked=" & PE_False & "" Set rsUser = Conn.Execute(sqlUser) If rsUser.BOF And rsUser.EOF Then ReDim UserSetting(50) CheckUserLogined = False Else CheckUserLogined = True UserID = rsUser("UserID") GroupID = rsUser("GroupID") LoginTimes = rsUser("LoginTimes") End If Set rsUser = NothingEnd Function'给用户的相应变量赋值Sub GetUser(sUserName) Dim rsUser, rsGroup Set rsUser = Conn.Execute("SELECT FROM PE_User WHERE UserName='" & sUserName & "'") If Not (rsUser.BOF And rsUser.EOF) Then UserID = rsUser("UserID") GroupID = rsUser("GroupID") UserType = rsUser("UserType") CompanyID = rsUser("CompanyID") ContacterID = rsUser("ContacterID") ClientID = rsUser("ClientID") Balance = rsUser("Balance") UserPoint = rsUser("UserPoint") UserExp = rsUser("UserExp") ValidNum = rsUser("ValidNum") ValidUnit = rsUser("ValidUnit") BeginTime = rsUser("BeginTime") ValidDays = ChkValidDays(rsUser("ValidNum"), rsUser("ValidUnit"), rsUser("BeginTime")) email = rsUser("Email") UnsignedItems = rsUser("UnsignedItems") If PresentExpPerLogin > 0 Then If DateDiff("D", rsUser("LastPresentTime"), Now()) > 0 Or IsNull(rsUser("LastPresentTime")) Then Conn.Execute ("update PE_User set UserExp=UserExp+" & PresentExpPerLogin & ",LastPresentTime=" & PE_Now & " where UserID=" & UserID & "") End If End If If PE_CLng(Session("UserID")) = 0 Then Conn.Execute ("update PE_User set LastLoginIP='" & UserTrueIP & "',LastLoginTime=" & PE_Now & ",LoginTimes=LoginTimes+1 where UserID=" & UserID & "") Session("UserID") = UserID End If If rsUser("Blog") = True Then BlogFlag = True Else BlogFlag = False End If Set rsGroup = Conn.Execute("select from PE_UserGroup where GroupID=" & rsUser("GroupID") & "") GroupName = rsGroup("GroupName") GroupType = rsGroup("GroupType") If rsUser("SpecialPermission") = True Then arrClass_Browse = Trim(rsUser("arrClass_Browse")) arrClass_View = Trim(rsUser("arrClass_View")) arrClass_Input = Trim(rsUser("arrClass_Input")) UserSetting = Split(Trim(rsUser("UserSetting")) & ",0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0", ",") Else arrClass_Browse = Trim(rsGroup("arrClass_Browse")) arrClass_View = Trim(rsGroup("arrClass_View")) arrClass_Input = Trim(rsGroup("arrClass_Input")) UserSetting = Split(Trim(rsGroup("GroupSetting")) & ",0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0", ",") End If rsGroup.Close Set rsGroup = Nothing NeedlessCheck = PE_CLng(UserSetting(1)) EnableModifyDelete = PE_CLng(UserSetting(2)) MaxPerDay = PE_CLng(UserSetting(3)) PresentExpTimes = PE_CDbl(UserSetting(4)) MaxSendNum = PE_CLng(UserSetting(7)) MaxFavorite = PE_CLng(UserSetting(8)) Discount_Member = PE_CDbl(UserSetting(11)) UserEnableComment = PE_CBool(UserSetting(5)) UserCheckComment = PE_CBool(UserSetting(6)) If UserSetting(12) = 1 Then IsOffer = "是" Else IsOffer = "否" End If UserChargeType = PE_CLng(UserSetting(14)) Dim Message Set Message = Conn.Execute("select Count(0) from PE_Message where Incept = '" & UserName & "' and delR=0 and Flag=0 and IsSend=1") If Message.EOF And Message.Bof Then UnreadMsg = 0 Else UnreadMsg = Message(0) End If Set Message = Nothing End If Set rsUser = NothingEnd Sub 我将2台服务器的组件进行比较，发现腾讯云服务器少2个组件，后来组件补上也没起作用。感觉应该是服务器的问题；网上有个帖子说是windows版本的问题，请官方指教。
腾讯云开发者
