admin_shopleft.asp文件中 权限号码错误

79行以下

 If KSCMS.ReturnPowerResult(1, "KMS20008") Then  
    .Write "                                      <tr>"
    .Write "                                        <td>&nbsp;&nbsp; <img src=""Images/bullet.gif"" align=""absmiddle""><span style=""cursor:default"" onClick=""javascript:SetEnabledStatus(false);SelectObjItem1(this,'','','');parent.parent.frames['MainFrame'].location='Admin_LogMoney.asp';parent.parent.frames['BottomFrame'].location='Split.asp?ButtonSymbol=Disabled&OpStr=商城管理 >> <font color=red>资金明细查询</font>';"">资金明细查询</span></td>"
    .Write "                                      </tr>"
   end if
   If KSCMS.ReturnPowerResult(1, "KMS20019") Then  
    .Write "                                      <tr>"
    .Write "                                        <td>&nbsp;&nbsp; <img src=""Images/bullet.gif"" align=""absmiddle""><span style=""cursor:default"" onClick=""javascript:SetEnabledStatus(false);SelectObjItem1(this,'','','');parent.parent.frames['MainFrame'].location='Admin_LogDeliver.asp';parent.parent.frames['BottomFrame'].location='Split.asp?ButtonSymbol=Disabled&OpStr=商城管理 >> <font color=red>发退货查询</font>';"">发退货查询</span></td>"
    .Write "                                      </tr>" 
  End If
  If KSCMS.ReturnPowerResult(1, "KMS20020") Then     
    .Write "                                      <tr>"
    .Write "                                        <td>&nbsp;&nbsp; <img src=""Images/bullet.gif"" align=""absmiddle""><span style=""cursor:default"" onClick=""javascript:SetEnabledStatus(false);SelectObjItem1(this,'','','');parent.parent.frames['MainFrame'].location='Admin_LogInvoice.asp';parent.parent.frames['BottomFrame'].location='Split.asp?ButtonSymbol=Disabled&OpStr=商城管理 >> <font color=red>开***查询</font>';"">开***查询</span></td>"
    .Write "                                      </tr>" 
    End If  
    .Write "                                      <tr>"
    .Write "                                        <td>&nbsp;&nbsp; =============</td>"
    .Write "                                      </tr>"
   If CStr(OpType) = "0" Or CStr(OpType) = "-1" Then
   Dim TempStr: If ID <> "0" And CStr(StatusFlag) = "1" Then  TempStr = "栏目"  Else TempStr = "频道"
    .Write "                                      <tr>"
    .Write "                                        <td height=""25"">&nbsp;&nbsp;&nbsp;<img src=""Images/bullet.gif"" align=""absmiddle""><span style=""cursor:default"" onClick=""javascript:SetEnabledStatus(false);SelectObjItem1(this,'','','');parent.parent.frames['MainFrame'].location='Admin_Shop.asp';parent.parent.frames['BottomFrame'].location='Split.asp?ButtonSymbol=Disabled&OpStr=商城管理 >> <font color=red>浏览频道</font>';"">商城首页</span></td>"
    .Write "                                      </tr>"   
    .Write "                                       <TR>"
  .Write "                                         <TD>"
  .Write "                                           <table width=""100%"" border=""0"" id=""EnabledArea"">"
  

请修改~

[此贴子已经被作者于2007-4-24 23:13:59编辑过]