升级后错误啦,怎么办
为什么会
st.ServerVariables("INSTANCE_META_PATH") & Request.ServerVariables("APPL_PHYSICAL_PATH") & Request.ServerVariables("SERVER_SOFTWARE") getServerKey = mid(sha1(sKey),exc(1) + 1,10) end function function updateServerKey Randomize Application.Lock Application(CookieName&"_server_Time") = now Application(CookieName&"_server_excursion") = int(rnd*10000000) & "|" & int(rnd*26) Application.UnLock end function function getTempKey getTempKey = randomStr(20) session(CookieName&"tempKey") = getTempKey end function %> IF Next End IF Set re=Nothing UBBCode=strContent End IF End Function %>og_module") End IF if action<>2 then side_html_default=UnCheckStr(blog_modules(0)) '首页侧栏代码 side_html=UnCheckStr(blog_modules(1)) '普通页面侧栏代码 content_html_Top_default=UnCheckStr(blog_modules(2)) '首页内容代码顶部 content_html_Top=UnCheckStr(blog_modules(3)) '普通页面内容代码顶部 content_html_Bottom_default=UnCheckStr(blog_modules(4)) '首页内容代码底部 content_html_Bottom=UnCheckStr(blog_modules(5)) '普通页面内容代码底部 function_Plugin=blog_modules(6) 'Blog功能插件 end if end function '========================End function========================= '======================重新加载Blog缓存===================== sub reloadcache getInfo(2) UserRight(2) CategoryList(2) archive(2) NewComment(2) Tags(2) Smilies(2) Keywords(2) Bloglinks(2) log_module(2) Calendar "","","",2 end sub %>="" Response.Cookies(CookieName)("memHashKey")="" memStatus="Guest" end sub %>
Microsoft VBScript runtime ?펳 '800a000d'
Type mismatch: 'CBool'
/blog/header.asp??А 86