If PageFlag=true Then TempStr = TempStr & KSCMS.GetPrePageList(2,"本",PageNum,CurrPage,TotalPut,PerPageNumber)& KSCMS.GetPageList("?UserName=" & UserName&"&KeyWord=" & KeyWord,2,CurrPage,PageNum, True)

改成

If PageFlag=true Then TempStr = TempStr & KSCMS.GetPrePageList(2,"本",PageNum,CurrPage,TotalPut,PerPageNumber)& KSCMS.GetPageList("?xdid=" & xcid & "&UserName=" & UserName&"&KeyWord=" & KeyWord,2,CurrPage,PageNum, True)

打开blog/showphoto.asp，并找到

  If RSxc("Status")=0 Then
   Response.Write "<script>alert('该相册尚未审核!');window.close();</script>"
  elseif RSxc("Status")=2 then
   Response.Write "<script>alert('该相册已被管理员锁定!');window.close();</script>"
  end if
将其改成

  If KSCMS.ChkClng(RSxc("Status"))=0 Then
   Response.Write "<script>alert('该相册尚未审核!');window.close();</script>"
  elseif KSCMS.ChkClng(RSxc("Status"))=2 then
   Response.Write "<script>alert('该相册已被管理员锁定!');window.close();</script>"
  end if

 红色的为修改的地方