求助,网站刷新后,头部就会不见了
网站刷新后,头部就会不见,www.sina-cz.com,以前不是这样的,我问过很多人,好多人都是认为是iis权限设置的问题,希望哪位大侠能帮小弟一把.
头部跟尾部文件的定义,地址为http://www.sina-cz.com/skin.rar
------解决方案--------------------我刚才大概看了一下
不是你的服务器环境的问题
而是代码的问题,里面有关于cookies的判断访问一次再刷新后cookies值不为空了,
当然结果就不一样了..
而且你这个代码里有
if var3 <> 2 then response.write vbcrlf&lefter
response.write vbcrlf& " <table> "
%> <tr> <td colspan=2 height=48 valign=bottom align=center> <!-- #include file= "../top1.asp " --> </td> </tr> <%
.............
像这样通过判断要来包含不同的文件绝对是行不通的噢。
如果真要这样作的话得换个方法
用读取文件内容进来的.
比如:
'根據參數載入相應的CSS文件
Function LoadCss(byval width, byval height, byval ad_type)
dim fs, cssFileName
Set fs = Server.CreateObject( "Scripting.FileSystemObject ")
cssFileName = Server.MapPath( "css/ " & ad_type & "ad " & width & height & ".css ")
if not fs.FileExists(cssFileName) then
Response.write "CSS File not found. "
Response.end
end if
cssContent = fs.openTextFile(cssFileName).readall
cssContent = Replace(cssContent, "{ad_border} ", ad_border) '替換邊框顏色
cssContent = Replace(cssContent, "{ad_link} ", ad_link) '替換鏈接顏色
cssContent = Replace(cssContent, "{ad_bg} ", ad_bg) '替換鏈接顏色
cssContent = Replace(cssContent, "{ad_text} ", ad_text) '替換鏈接顏色
cssContent = Replace(cssContent, "{ad_url} ", ad_url) '替換鏈接顏色
Response.write cssContent
End Function
类似的方法实现就可以啦...
用读文件内容的而不是用 <!--#include-->