标题:关于APS页空白问题请教
取消只看楼主
flashmen
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2012-11-7
结帖率:100%
已结贴  问题点数:20 回复次数:0 
关于APS页空白问题请教
各位好,我用一个APS页的网站,用的是WINDOWS 2008SERVER 系统,我的ASP页经常出现空白页,IIS浏览没有任何错误提示,后来我从BAIDU,找了一个注册DLL的命令,我每次出现这各故障我都要在CMD里用这个“for %1 in (%windir%\system32\*.dll) do regsvr32.exe /s %1”命令注册一下DLL。刚开注册完一个二个月可以正常使用,但这几天故障每天都出现,所以只能每天注册,后来我BAIDU,看了一些文章,大多说DLL注册有问题,以下附我源码,请高手帮我看看是那个DLL影响正常使用,谢谢了
<%
path = "1"
%>
<!-- #include file="inc/conn.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>黄石里诺软件开发有限公司-里诺进销存管理系统(B/S)版</title>
<style type="text/css">
<!--
.style1 {
    font-size: 12px;
}
a:link {
    color: #FFFFFF;
    text-decoration: none;
}
a:visited {
    text-decoration: none;
}
a:hover {
    text-decoration: none;
}
a:active {
    text-decoration: none;
}
-->
.coolscrollbar
{scrollbar-arrow-color:yellow;
scrollbar-base-color:#73a2d6;}
</style>
<script language="javascript">
window.status = "当前用户:<%=request.cookies("username")%>";
<!--
function switchSysBar(){
if (switchPoint.innerText==3){
switchPoint.innerText=4
document.all("frmTitle").style.display="none"
}else{
switchPoint.innerText=3
document.all("frmTitle").style.display=""
}}
  
function locking(){   
    document.all.ly.style.display="block";   
    document.all.ly.style.width=document.body.clientWidth;   
    document.all.ly.style.height=document.body.clientHeight;   
    document.all.Layer2.style.display='block';  
}   
function Lock_CheckForm(theForm){   
    document.all.ly.style.display='none';document.all.Layer2.style.display='none';
    return false;   
}
//-->
</script>
<%
sql = "select * from t_softinfo"
Set rs = server.CreateObject("adodb.recordset")
rs.Open sql, conn, 1, 1
if rs("regedit") = True then
  Response.Write "<body style=""padding:0px;margin:0px;"" scroll=no>"
else
  Response.Write "<body style=""padding:0px;margin:0px;"" scroll=no onLoad=""locking();"">"
end if

If request.cookies("username") = "" Then
    response.Redirect "login.asp"
End If
%>
<body>
<div id="ly" style="position:absolute;top:0px;filter:alpha(opacity=60);background-color:#777;z-index:2;left:0px;display:none;"></div>
<!--浮层框架开始-->
<div id="Layer2" class="coolscrollbar" align="center" style="position:absolute;z-index:3;left:expression((document.body.offsetWidth-540)/2);top:expression((document.body.offsetHeight-170)/3);background-color:#fff;display:none;width:600px;height:400px;overflow-x:hidden;overflow-y:auto;">
  <table width="600" height="400" border="0" cellpadding="0" cellspacing="0" style="border:0 solid #e7e3e7;border-collapse:collapse;">
    <tr>
      <td style="background-color:#73A2d6;color:#fff;padding-left:4px;padding-top:2px;font-weight:bold;font-size:12px;" height="10" valign="middle"><div align="right"><a href="JavaScript:;" class="style1" onClick="Lock_CheckForm(this);">[关闭]</a>&nbsp;&nbsp;&nbsp;</div></td>
    </tr>
    <tr style="margin-left:50px;">
      <td align="left" >
<%
set fso=server.CreateObject("Scripting.FileSystemObject")
Set txtFile=fso.OpenTextFile(Server.MapPath("update.txt"))
Response.Write "<h3 align=""center"">此版本更新内容如下:</h3>"
Response.Write "<hr align=""center"" width='50%' color='#73A2D6'>"
Response.Write "<PRE style=""margin-left:50px;"">"
While Not txtFile.AtEndOfStream
Response.Write txtFile.ReadLine & "<br>"
Wend
txtFile.Close
Response.Write "<PRE>"
%>

      </td>
    </tr>
  </table>
</div>
<TABLE height="100%" cellSpacing=0 cellPadding=0 width="100%" border=0>
  <TBODY>
  <TR valign="top">
    <TD height="67" colSpan=3 valign="top"><IFRAME style="padding:0px;margin:0px;WIDTH: 100%; HEIGHT: 67px" name=top
      marginWidth=0 marginHeight=0 src="common/top.asp" frameBorder=0
      noResize scrolling=no bordercolor="threedface"></IFRAME></TD></TR>
  <TR>
    <TD id=frmTitle align=middle width=150 height="100%"><IFRAME id=BoardLeft
      style="WIDTH: 150px; HEIGHT: 100%" name=BoardLeft marginWidth=0
      marginHeight=0 src="common/left.asp" frameBorder=0
      noResize></IFRAME></TD>
    <TD width=3 align="center" background="img/3bg.jpg"
      bgColor=#D8ECFF style="HEIGHT: 100%" onclick=switchSysBar()><FONT
      style="FONT-SIZE: 9px; CURSOR: hand; COLOR: #000000; FONT-FAMILY: Webdings"><SPAN
      id=switchPoint>3</SPAN></FONT></TD>
    <TD height="100%"><IFRAME id=main style="WIDTH: 100%; HEIGHT: 100%"
      name=main marginHeight=0 src="common/main.asp"
      frameBorder=0></IFRAME></TD></TR></TBODY></TABLE>
</body>
</html>
搜索更多相关主题的帖子: 注册 include BAIDU 空白页 
2012-11-07 20:13



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-386339-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.147857 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved