来着有分:为什么我的页面有时正常,有时显示空白页,刷新了以后就OK了
出现空白页,查看源文件,代码如下:
=============================================
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=gb2312"></HEAD>
<BODY></BODY></HTML>
但刷新了以后就能显示内容了
我的文件如下:
==================================
<!--#include file="../conn.asp"-->
<!--#include file="../inc/TurnPage.asp"-->
<!--#include file="../inc/pubs.asp"-->
<%
Select Case Request("action")
Case "AboutUs" getAboutUsInfo
Case "InfoFeedBack"
Case "ConnectUs"
ConnectUs
Case "Home"
Response.Redirect("../index.asp")
Case "Product"
getOneClass
Case else getAboutUsInfo
End Select
'获取所有产品记录
sub getAllClass()
Sqlstr = "select 'Class'=(SELECT CASE classlevel "&chr(13)
Sqlstr = Sqlstr & " WHEN '0' THEN CONVERT(char, classID)"&chr(13)
Sqlstr = Sqlstr & " ELSE ClassLevel + '_' + CONVERT(char, ClassID)"&chr(13)
Sqlstr = Sqlstr & " END),"&chr(13)
Sqlstr = Sqlstr & "classlevel,classname"&chr(13)
Sqlstr = Sqlstr & " from ProductClass"&chr(13)
Sqlstr = Sqlstr & " order by printseque"
on error resume next
Set Rs = Conn.Execute(Sqlstr)
if err then
Response.Write err.description&"<br>"
Response.Write Sqlstr
Response.end
end if
returnInfo = ""
Do while Not Rs.Eof
tempArray = split(Rs(0),"_",-1,1)
for i = 1 to UBound(tempArray)
returnInfo = returnInfo & " "
next
if Rs(1) = "0" then
returnInfo = returnInfo & "╋"& Rs(2)&"<br>"
else
returnInfo = returnInfo & "<a style=font-size:9pt;line-height:14pt; href=?action=Product&ClassLevel="&Rs(0)&">├"& Rs(2) & "</a><br>"
end if
Rs.MoveNext
Loop
Rs.Close
Response.write returnInfo
end sub
sub ConnectUs()
.........
end sub
%>
参照论坛dvbbs的写法写的,可是老是碰到这种情况,不知道什么因素我没考虑进去的
高手们指点一下,谢谢先~~