商业源码 懂asp代码的帮忙看看网站放到美国服务器时间问题生成出错
DateAdd("h",13,Now())
其中"h"代表小时，13代表加上13小时，now()是现在的日期时间
<html>
<head>
<link href="/csscss" rel="stylesheet" type="text/css">
</head>
<body>
<table width="50%" border="0" align="center" cellpadding="0" cellspacing="0" >
<tr>
<td>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#336699">
<tr bgcolor="" align="center">
<td height="20" colspan="2" class="htd" ><font color="#FFFFFF"><b>服 务 器 的 配 置</b></font></td>
</tr>
<tr>
<td width="40%" align="center" bgcolor="#336699" class="htd"><font color="#FFFFFF">检取ISAPIDLL的metabase路径</font></td>
<td align="center" bgcolor="#3366CC" class="htd"><font color="#FFf000"><%=RequestServerVariables("APPL_MD_PATH")%></font></td>
</tr>
<tr>
<td width="40%" align="center" bgcolor="#336699" class="htd"><font color="#FFFFFF">路径信息</font></td>
<td align="center" bgcolor="#3366CC" class="htd"><font color="#FFf000"><%=RequestServerVariables("PATH_INFO")%></font></td>
</tr>
<tr>
<td width="40%" align="center" bgcolor="#336699" class="htd"><font color="#FFFFFF">服务器IP地址</font></td>
<td align="center" bgcolor="#3366CC" class="htd"><font color="#FFf000"><%=RequestServerVariables("LOCAL_ADDR")%></font></td>
</tr>
<tr>
<td width="40%" align="center" bgcolor="#336699" class="htd"><font color="#FFFFFF">显示执行SCRIPT的虚拟路径</font></td>
<td align="center" bgcolor="#3366CC" class="htd"><font color="#FFf000"><%=RequestServerVariables("SCRIPT_NAME")%></font></td>
</tr>
<tr>
<td width="40%" align="center" bgcolor="#336699" class="htd"><font color="#FFFFFF">返回服务器的主机名，DNS别名，或IP地址</font></td>
<td align="center" bgcolor="#3366CC" class="htd"><font color="#FFf000"><%=RequestServerVariables("SERVER_NAME")%></font></td>
</tr>
<tr>
<td width="40%" align="center" bgcolor="#336699" class="htd"><font color="#FFFFFF">返回服务器处理请求的端口</font></td>
<td align="center" bgcolor="#3366CC" class="htd"><font color="#FFf000"><%=RequestServerVariables("SERVER_PORT")%></font></td>
</tr>
<tr>
<td width="40%" align="center" bgcolor="#336699" class="htd"><font color="#FFFFFF">协议的名称和版本</font></td>
<td align="center" bgcolor="#3366CC" class="htd"><font color="#FFf000"><%=RequestServerVariables("SERVER_PROTOCOL")%></font></td>
</tr>
<tr>
<td width="40%" align="center" bgcolor="#336699" class="htd"><font color="#FFFFFF">服务器的名称和版本</font></td>
<td align="center" bgcolor="#3366CC" class="htd"><font color="#FFf000"><%=RequestServerVariables("SERVER_SOFTWARE")%></font></td>
</tr>
<tr>
<td width="40%" align="center" bgcolor="#336699" class="htd"><font color="#FFFFFF">服务器操作系统内核</font></td>
<td align="center" bgcolor="#3366CC" class="htd"><font color="#FFf000"><%=RequestServerVariables("OS")%></font></td>
</tr>
<tr>
<td width="40%" align="center" bgcolor="#336699" class="htd"><font color="#FFFFFF">脚本超时时间</font></td>
<td align="center" bgcolor="#3366CC" class="htd"><font color="#FFf000"><%=ServerScriptTimeout%> 秒</font></td>
</tr>
<tr>
<td width="40%" align="center" bgcolor="#336699" class="htd"><font color="#FFFFFF">服务器CPU数量</font></td>
<td align="center" bgcolor="#3366CC" class="htd"><font color="#FFf000"><%=RequestServerVariables("NUMBER_OF_PROCESSORS")%> 个</font></td>
</tr>
<tr>
<td width="40%" align="center" bgcolor="#336699" class="htd"><font color="#FFFFFF">服务器解译引擎</font></td>
<td align="center" bgcolor="#3366CC" class="htd"><font color="#FFf000"><%=ScriptEngine & "/"& ScriptEngineMajorVersion &""&ScriptEngineMinorVersion&""& ScriptEngineBuildVersion %></font></td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" >
<tr>
<td height="20" colspan="2" align="center">
</td>
</tr>
<tr>
<td height="20" colspan="2" class="htd" align="center" bgcolor="#336699">
<font color="#FFFFFF"><b>浏 览 器 信 息</b></font>
</td>
</tr>
<tr>
<td height="20" colspan="2" align="center" bgcolor="#336699">
<%set browscap=servercreateobject("mswcbrowsertype")%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" >
<tr><td width="40%" align="center" class="htd"><font color="#FFFFFF">浏览器类型</font></td>
<td align="center" bgcolor="#3366CC" class="htd"><font color="#FFf000"><%=browscapbrowser%></font></td></tr>
<tr><td width="40%" align="center" class="htd"><font color="#FFFFFF">浏览器版本</font></td>
<td align="center" bgcolor="#3366CC" class="htd"><font color="#FFf000"><%=browscapversion%></font></td></tr>
<tr><td width="40%" align="center" class="htd"><font color="#FFFFFF">是否支持表格</font></td>
<td align="center" bgcolor="#3366CC" class="htd"><font color="#FFf000"><%=browscaptables%></font></td></tr>
<tr><td width="40%" align="center" class="htd"><font color="#FFFFFF">是否支持ActiveX控件</font></td>
<td align="center" bgcolor="#3366CC" class="htd"><font color="#FFf000"><%=browscapactivexcontrols%></font></td></tr>
<tr><td width="40%" align="center" class="htd"><font color="#FFFFFF">是否支持JavaApplets</font></td>
<td align="center" bgcolor="#3366CC" class="htd"><font color="#FFf000"><%=browscapjavaapplets%></font></td></tr>
<tr><td width="40%" align="center" class="htd"><font color="#FFFFFF">是否支持Javascript</font></td>
<td align="center" bgcolor="#3366CC" class="htd"><font color="#FFf000"><%=browscapjavascript%></font></td></tr>
<tr><td width="40%" align="center" class="htd"><font color="#FFFFFF">是否支持Cookies</font></td>
<td align="center" bgcolor="#3366CC" class="htd"><font color="#FFf000"><%=browscapcookies%></font></td></tr>
<tr><td width="40%" align="center" class="htd"><font color="#FFFFFF">是否支持框架</font></td>
<td align="center" bgcolor="#3366CC" class="htd"><font color="#FFf000"><%=browscapframes%></font></td></tr>
<tr><td width="40%" align="center" class="htd"><font color="#FFFFFF">是否支持VBScript</font></td>
<td align="center" bgcolor="#3366CC" class="htd"><font color="#FFf000"><%=browscapvbscript%></font></td></tr>
</table>
<%set browscap=nothing%>
</td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" >
<tr>
<td height="20" colspan="2" align="center">
</td>
</tr>
<tr>
<td height="20" colspan="2" class="htd" align="center" bgcolor="#336699">
<font color="#FFFFFF"><b>磁 盘 驱 动 器 信 息</b></font>
</td>
</tr>
<tr>
<td height="20" colspan="2" >
<%
function tran(driver)
select case driver
case 0:tran="设备无法识别"
case 1:tran="软盘驱动器"
case 2:tran="硬盘驱动器"
case 3:tran="网络硬盘驱动器"
case 4:tran="光盘驱动器"
case 5:tran="RAM虚拟磁盘"
end select
end function
set fso=servercreateobject("scriptingfilesystemobject")
%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#336699">
<tr><td class="htd" align="center"><font color="#FFFFFF">盘符</font></td><td class="htd" align="center"><font color="#FFFFFF">类型</font></td><td class="htd" align="center"><font color="#FFFFFF">卷标</font></td>
<td class="htd" align="center"><font color="#FFFFFF" >总计大小</font></td><td class="htd" align="center"><font color="#FFFFFF">可用空间</font></td><td class="htd" align="center"><font color="#FFFFFF">文件系统</font></td>
<td class="htd" align="center"><font color="#FFFFFF">序列号</font></td><td class="htd" align="center"><font color="#FFFFFF">是否可用</font></td><td class="htd" align="center"><font color="#FFFFFF">路径</font></td>
</tr>
<%
for each drv in fsodrives
responsewrite"<tr>"
responsewrite"<td class=htd align=center bgcolor=#3366CC><font color=#FFf000>" & drvdriveletter &"</font></td>"
responsewrite"<td class=htd align=center bgcolor=#3366CC><font color=#FFf000>" & tran(drvdrivetype) &"</font></td>"
responsewrite"<td class=htd align=center bgcolor=#3366CC><font color=#FFf000>" & drvvolumename &"</font></td>"
responsewrite"<td class=htd align=center bgcolor=#3366CC><font color=#FFf000>" & formatnumber(drvtotalsize/1024,0) &"</font></td>"
responsewrite"<td class=htd align=center bgcolor=#3366CC><font color=#FFf000>" & formatnumber(drvavailablespace/1024,0) &"</font></td>"
responsewrite"<td class=htd align=center bgcolor=#3366CC><font color=#FFf000>" & drvfilesystem &"</font></td>"
responsewrite"<td class=htd align=center bgcolor=#3366CC><font color=#FFf000>" & drvserialnumber &"</font></td>"
responsewrite"<td class=htd align=center bgcolor=#3366CC><font color=#FFf000>" & drvisready &"</font></td>"
responsewrite"<td class=htd align=center bgcolor=#3366CC><font color=#FFf000>" & drvpath &"</font></td>"
next
%>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>
0条评论