www.gusucode.com > 艺帆全站DIV+CSS体育用品公司网站源码 1.7.5源码程序 > i5808/right.asp
<!--#include file="../Conn.asp" -->
<!--#include file="i5808_config.asp" -->
<!--#include file="seeion.asp"-->
<!--#include file="inc.asp"-->
<link href="style/right.css" rel="stylesheet" type="text/css" />
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<%
Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = False
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If 0 = Err Then IsObjInstalled = True
Set xTestObj = Nothing
Err = 0
End Function
%>
<%
Dim theInstalledObjects(17)
theInstalledObjects(0) = "MSWC.AdRotator"
theInstalledObjects(1) = "MSWC.BrowserType"
theInstalledObjects(2) = "MSWC.NextLink"
theInstalledObjects(3) = "MSWC.Tools"
theInstalledObjects(4) = "MSWC.Status"
theInstalledObjects(5) = "MSWC.Counters"
theInstalledObjects(6) = "IISSample.ContentRotator"
theInstalledObjects(7) = "IISSample.PageCounter"
theInstalledObjects(8) = "MSWC.PermissionChecker"
theInstalledObjects(9) = "Scripting.FileSystemObject"
theInstalledObjects(10) = "adodb.connection"
theInstalledObjects(11) = "SoftArtisans.FileUp"
theInstalledObjects(12) = "SoftArtisans.FileManager"
theInstalledObjects(13) = "JMail.SMTPMail"
theInstalledObjects(14) = "CDONTS.NewMail"
theInstalledObjects(15) = "Persits.MailSender"
theInstalledObjects(16) = "LyfUpload.UploadFile"
theInstalledObjects(17) = "Persits.Upload.1"
%>
<body><% if shezhi="1" then %> <% else %>
<div id="_j_tips" style="padding: 8px 35px 8px 14px;background-color: #FCF8E3; border: 1px solid #FBEED5;color: #C09853;text-align:center;">
<a class="close" href="#" style="position: relative; right: -21px;float: right; font-size: 20px; font-weight: bold; line-height: 18px; color: #ccc; text-shadow: 0 1px 0 white;" onClick="document.getElementById('_j_tips').style.display='none';return false;">×</a>
艺帆CMS开源制作，请记住域名：<strong>www.i5808.com</strong> <a href="javascript:window.external.AddFavorite('<%=TD_url%>', '<%=TD_home%>')" >【收藏】</a> 你还没设置需要显示的功能 <a href="class_i5808.asp" target="mainContent"><strong>设置后台功能</strong></a> </div><% end if %>
<div class="titlebt">
<em class="titlebt1"></em>
<div class="titlebt_text">欢迎界面</div><em class="titlebt2"></em>
</div>
<div class="mail_leftbg">
<div class="right_body">
<div class="g15"></div>
<div class="kj01"><span class="left_bt"><%=TD_home%></span><br>
<br>
<span class="left_txt"> <img src="images/ts.gif" width="16" height="16"> 提示：<iframe id="onetiAnnoun" name="onetiAnnoun" scrolling="no" height="18" width="80%" frameborder="0" src="http://www.i5808.com/CMS_Copyright.asp?Copyright=1&v=7"></iframe><br>
在线编辑器可以批量上传产品图片,全站伪静态,优化SEO,前台产品缩略图点击放大,有什么不懂联系</span><span class="left_ts">技术人员</span><span class="left_txt">进行咨询！<br>
<br>
</span></div>
<%
Dim strClass
strClass = Trim(Request.Form("classname"))
If "" <> strClass then%>
<%Response.Write "<br>您指定的组件的检查结果："
If Not IsObjInstalled(strClass) then
Response.Write "<br><font color=red>很遗憾，该服务器不支持" & strclass & "组件！</font>"
Else
Response.Write "<br><font color=green>恭喜！该服务器支持" & strclass & "组件。</font>"
End If
Response.Write "</td></tr></table>"
end if
%>
<table class="kj01" width="99%" border="0" align="center" cellpadding="1" cellspacing="1">
<tr>
<td height="24" background="images/bg_list.gif" bgcolor="#F7F7F7"><div style="padding-left:10px; font-weight:bold; color:#ffffff">服务器信息</div></td>
</tr>
<tr>
<td bgcolor="#FFFFFF" ><table width="100%" border="0" align="center" cellpadding="4" cellspacing="0" >
<tr onMouseOver="style.backgroundColor='#EEEEEE'" onMouseOut="style.backgroundColor='#F1F5F8'" bgcolor="#F1F5F8" >
<td height="25" width="15%" class="td">程序绝对路径:</td>
<td width="41%" class="td"><%=Server.MapPath("nowaasp.asp")%></td>
<td width="13%" class="td">服务器脚本引擎</td>
<td width="31%" class="td"><%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></td>
</tr>
<tr onMouseOver="style.backgroundColor='#EEEEEE'" onMouseOut="style.backgroundColor='#FFFFFF'" bgcolor="#FFFFFF">
<td height="25" width="15%" class="td">站点物理路径</td>
<td class="td"><%=request.ServerVariables("APPL_PHYSICAL_PATH")%></td>
<td class="td">路径信息</td>
<td class="td"><%=request.ServerVariables("PATH_INFO")%></td>
</tr>
<tr onMouseOver="style.backgroundColor='#EEEEEE'" onMouseOut="style.backgroundColor='#F1F5F8'" bgcolor="#F1F5F8">
<td height="25" width="15%" class="td">请求机器IP地址</td>
<td class="td"><%=request.ServerVariables("REMOTE_ADDR")%></td>
<td class="td">服务器内部IP</td>
<td class="td"><%=Request.ServerVariables("LOCAL_ADDR")%></td>
</tr>
<tr onMouseOver="style.backgroundColor='#EEEEEE'" onMouseOut="style.backgroundColor='#FFFFFF'" bgcolor="#FFFFFF">
<td height="25" width="15%" class="td">SCRIPT虚拟路径</td>
<td class="td"><%=request.ServerVariables("SCRIPT_NAME")%></td>
<td class="td">服务器IP地址</td>
<td class="td"><%=request.ServerVariables("SERVER_NAME")%></td>
</tr>
<tr onMouseOver="style.backgroundColor='#EEEEEE'" onMouseOut="style.backgroundColor='#F1F5F8'" bgcolor="#F1F5F8">
<td height="25" width="15%" class="td">服务器端口</td>
<td class="td"><%=request.ServerVariables("SERVER_PORT")%></td>
<td class="td">协议名称和版本</td>
<td class="td"><%=request.ServerVariables("SERVER_PROTOCOL")%></td>
</tr>
<tr onMouseOver="style.backgroundColor='#EEEEEE'" onMouseOut="style.backgroundColor='#FFFFFF'" bgcolor="#FFFFFF">
<td height="25" width="15%" class="td">服务器IIS版本</td>
<td class="td"><%=request.ServerVariables("SERVER_SOFTWARE")%></td>
<td class="td">脚本超时时间</td>
<td class="td"><%=Server.ScriptTimeout%>秒</td>
</tr>
<tr onMouseOver="style.backgroundColor='#EEEEEE'" onMouseOut="style.backgroundColor='#F1F5F8'" bgcolor="#F1F5F8">
<td height="25" width="15%" class="td">服务器操作系統</td>
<td class="td"><%=Request.ServerVariables("OS")%></td>
<td class="td">服务器CPU数量</td>
<td class="td"><%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%> 个</td>
</tr>
</table></td>
</tr>
</table>
<div class="g15"></div>
<table class="kj01" width="99%" border="0" align="center" cellpadding="1" cellspacing="1">
<tr>
<td height="24" background="images/bg_list.gif" bgcolor="#F7F7F7"><div style="padding-left:10px; font-weight:bold; color:#ffffff">授权使用</div></td>
</tr>
<tr>
<td bgcolor="#FFFFFF" ><table width="100%" border="0" align="center" cellpadding="4" cellspacing="0" >
<tr onMouseOver="style.backgroundColor='#EEEEEE'" onMouseOut="style.backgroundColor='#F1F5F8'" bgcolor="#F1F5F8" >
<td height="25" width="40%" class="td">授权使用</td>
<td width="60%" class="td"><%=TD_home%></td>
</tr>
<tr onMouseOver="style.backgroundColor='#EEEEEE'" onMouseOut="style.backgroundColor='#FFFFFF'" bgcolor="#FFFFFF">
<td height="25" width="40%" class="td">艺帆互联官方网站</td>
<td class="td"><a href="http://www.i5808.com" target="_blank">http://www.i5808.com</a></td>
</tr>
<tr onMouseOver="style.backgroundColor='#EEEEEE'" onMouseOut="style.backgroundColor='#FFFFFF'" bgcolor="#FFFFFF">
<td height="25" width="40%" class="td">交流论坛</td>
<td class="td"><a href="http://www.i5808.com" target="_blank">http://www.i5808.com</a></td>
</tr>
<tr onMouseOver="style.backgroundColor='#EEEEEE'" onMouseOut="style.backgroundColor='#F1F5F8'" bgcolor="#F1F5F8">
<td height="25" width="40%" class="td">技术支持</td>
<td class="td">客服QQ：1053754860 289079626</td>
</tr>
</table></td>
</tr>
</table>
<style type="text/css">
#winpop { width:200px; height:0px; position:absolute; right:0; bottom:0; border:1px solid #999999; margin:0; padding:1px; overflow:hidden;display:none; background:#FFFFFF}
#winpop .title { width:100%; height:20px; line-height:20px; background:#FFCC00; font-weight:bold; text-align:center; font-size:12px;}
#winpop .con { width:100%; height:100px; line-height:20px; font-weight:bold; font-size:12px; color:#FF0000; text-decoration:underline; text-align:center}
#silu { font-size:13px; color:#999999; position:absolute; right:0;bottom:0px; text-align:right; text-decoration:underline; line-height:22px;}
.close { position:absolute; right:4px; top:-1px; color:#FFFFFF; cursor:pointer}
</style>
<script type="text/javascript">
function show_pop(){//显示窗口
document.getElementById("winpop").style.display="block";
timer=setInterval("changeH(4)",2);//调用changeH(4),每0.002秒向上移动一次
}
function hid_pop(){//隐藏窗口
timer=setInterval("changeH(-4)",2);//调用changeH(-4),每0.002秒向下移动一次
}
//www.jb51.net 脚本之家测试通过
function changeH(addH) {
var MsgPop=document.getElementById("winpop");
var popH=parseInt(MsgPop.style.height||MsgPop.currentStyle.height);//用parseInt将对象的高度转化为数字,以方便下面比较（JS读<style>中的height要用"currentStyle.height"）
if (popH<=100&&addH>0||popH>=4&&addH<0){//如果高度小于等于100(str>0)或高度大于等于4(str<0)
MsgPop.style.height=(popH+addH).toString()+"px";//高度增加或减少4个象素
}
else{//否则
clearInterval(timer);//取消调用,意思就是如果高度超过100象素了,就不再增长了，或高度等于0象素了，就不再减少了
MsgPop.style.display=addH>0?"block":"none"//向上移动时窗口显示,向下移动时窗口隐藏（因为窗口有边框,所以还是可以看见1~2象素没缩进去,这时候就把DIV隐藏掉）
}
}
window.onload=function(){//加载
setTimeout("show_pop()",800);//0.8秒后调用show_pop()
}
</script>
<body>
<div id="silu">
</div>
<div id="winpop">
<div class="title">您有新的消息<span class="close" onClick="hid_pop()">艺帆CMS</span></div>
<div class="con"><a href='http://www.i5808.com'>艺帆CMS 企业版1.7.5V推出了,<br>赶紧到官方网站下载，<br>模板和程序分离，<br>更多酷炫免费模板下载<br>艺帆CMS</a></div>
</div>
</div></div>
</body>