📄 main.asp
字号:
<!-- #include file="inc/Session.asp" -->
<%
'==============================================================================
'软件名称：秦直道多用户博客V2.0版
'当前版本：http://www.qinzd.com
'最新更新：2006.8
'=============================================================================
Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = False
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If Err = 0 Then IsObjInstalled = True
If Err = -2147352567 Then IsObjInstalled = True
Set xTestObj = Nothing
Err = 0
End Function
%>
<HTML>
<HEAD>
<TITLE><%=SiteName%></TITLE>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="Css.css">
</HEAD>
<BODY>
<table width="100%" height="30" border="0" cellpadding="0" cellspacing="0" background="Images/main_bg.gif">
<tr>
<td bgcolor="#006699" onMouseOver="javascript:this.bgColor='#0066cc'" onMouseOut="javascript:this.bgColor='#006699'">
<div align="center" class="style1">欢迎使用『秦直道』多用户博客管理系统V2.0版</div></td>
</tr>
</table>
<%
Dim theInstalledObjects(23)
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"
theInstalledObjects(18) = "CreatePreviewImage.cGvbox" 'CreatePreviewImage
theInstalledObjects(19) = "Persits.Jpeg" 'AspJpeg
theInstalledObjects(20) = "SoftArtisans.ImageGen" 'SoftArtisans ImgWriter V1.21
theInstalledObjects(21) = "sjCatSoft.Thumbnail"
theInstalledObjects(22) = "Microsoft.XMLHTTP"
theInstalledObjects(23) = "Adodb.Stream"
%>
<table width="98%" height="30" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#CDCDCD" style="margin:2px 0 0 0;">
<tr>
<td height="30" bgcolor="#FFFFFF"><font color="#006699"><strong> 购买三步曲：</strong></font></td>
</tr>
<tr>
<td style="line-height:20px;" bgcolor="#FFFFFF">
·下载使用『秦直道』多用户博客管理系统<br>
·本系统对普通用户免费,商业用途￥100.00元/版本长期免费升级<br>
·点击以下联结交费<a href="http://www.caokun.cn/trends/pay.htm"><font color="#FF0000">购买『秦直道』多用户博客管理系统</font></a>即可
</td>
</tr>
<tr>
<td height="30" bgcolor="#FFFFFF"> <font color="#006699"><strong>服务器信息</strong></font></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="1"></td>
</tr>
</table>
<table width="98%" height="221" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#CDCDCD">
<tr bgcolor="#FAFAFA">
<td height="32"> 服务器类型：<%=Request.ServerVariables("OS")%>(IP:<%=Request.ServerVariables("LOCAL_ADDR")%>)</td>
<td height="32"> 站点物理路径：<%=request.ServerVariables("APPL_PHYSICAL_PATH")%></td>
</tr>
<tr bgcolor="#FAFAFA">
<td width="50%" height="32"> 返回服务器的主机名，IP地址：<font color=#0076AE><%=Request.ServerVariables("SERVER_NAME")%></font></td>
<td width="50%" height="32"> 服务器操作系统：<font color=#0076AE><%=Request.ServerVariables("OS")%></font></td>
</tr>
<tr bgcolor="#FAFAFA">
<td height="32"> 脚本解释引擎<span class="small2">：</span><%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %> </font></td>
<td height="37"> <span class="small2">WEB</font></span>服务器的名称和版本：<font color=#0076AE><%=Request.ServerVariables("SERVER_SOFTWARE")%></font></td>
</tr>
<tr bgcolor="#FAFAFA">
<td height="32"> 脚本超时时间<span class="small2">：</span><font color=#0076AE><%=Server.ScriptTimeout%></font> 秒</td>
<td height="32"> CDONTS组件支持<span class="small2">：</span>
<%
On Error Resume Next
Server.CreateObject("CDONTS.NewMail")
if err=0 then
response.write("<font color=#0076AE>√</font>")
else
response.write("<font color=red>×</font>")
end if
err=0
%>
</td>
</tr>
<tr bgcolor="#FAFAFA">
<td height="32"> 虚拟路径：<%=Request.ServerVariables("SCRIPT_NAME")%></td>
<td height="32"> <span class="small2">Jmail</span></font>邮箱组件支持<span class="small2">：</span>
<%If Not IsObjInstalled(theInstalledObjects(13)) Then%>
<font color="red">×</font>
<%else%>
<font color="0076AE"> √</font>
<%end if%>
</td>
</tr>
<tr bgcolor="#FAFAFA">
<td height="32"> 返回服务器处理请求的端口：<%=Request.ServerVariables("SERVER_PORT")%></td>
<td height="32"> 协议的名称和版本：<%=Request.ServerVariables("SERVER_PROTOCOL")%></td>
</tr>
<tr bgcolor="#FAFAFA">
<td height="32"> 服务器 CPU数量：<%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%>个 </td>
<td height="32"> 客户端操作系统：
<%
dim thesoft,vOS
thesoft=Request.ServerVariables("HTTP_USER_AGENT")
if instr(thesoft,"Windows NT 5.0") then
vOS="Windows 2000"
elseif instr(thesoft,"Windows NT 5.2") then
vOs="Windows 2003"
elseif instr(thesoft,"Windows NT 5.1") then
vOs="Windows XP"
elseif instr(thesoft,"Windows NT") then
vOs="Windows NT"
elseif instr(thesoft,"Windows 9") then
vOs="Windows 9x"
elseif instr(thesoft,"unix") or instr(thesoft,"linux") or instr(thesoft,"SunOS") or instr(thesoft,"BSD") then
vOs="类Unix"
elseif instr(thesoft,"Mac") then
vOs="Mac"
else
vOs="Other"
end if
response.Write(vOs)
%>
</td>
</tr>
</table>
<table width="98%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="1"></td>
</tr>
</table>
<table width="98%" height="30" border="0" cellpadding="0" cellspacing="0" background="Images/main_bg.gif">
<tr>
<td> <font color="#006699"><strong>本系统需要的软件环境：</strong></font></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="1"></td>
</tr>
</table>
<table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#CDCDCD">
<tr bgcolor="#FAFAFA">
<td width="50%" height="25"> JRO.JetEngine(ACCESS 数据库<span class="small2">)：</span>
<%
On Error Resume Next
Server.CreateObject("JRO.JetEngine")
if err=0 then
response.write("<font color=#0076AE>√</font>")
else
response.write("<font color=red>×</font>")
end if
err=0
%></td>
<td width="50%" height="25"> 数据库使用<span class="small2">：</span>
<%
On Error Resume Next
Server.CreateObject("adodb.connection")
if err=0 then
response.write("<font color=#0076AE>√,可以使用本系统</font>")
else
response.write("<font color=red>×,不能使用本系统</font>")
end if
err=0
%> </td>
</tr>
<tr bgcolor="#FAFAFA">
<td height="25"> <span class="small2">FSO</span>文本文件读写<span class="small2">：</span>
<%
On Error Resume Next
Server.CreateObject("Scripting.FileSystemObject")
if err=0 then
response.write("<font color=#0076AE>√,可以使用本系统</font>")
else
response.write("<font color=red>×，不能使用此系统</font>")
end if
err=0
%> </td>
<td height="25"> Microsoft.XMLHTTP
<%If Not IsObjInstalled(theInstalledObjects(22)) Then%>
<font color="red">×，不能使用此系统</font>
<%else%>
<font color="0076AE"> √,可以使用本系统</font>
<%end if%>
Adodb.Stream
<%If Not IsObjInstalled(theInstalledObjects(23)) Then%>
<font color="red">×</font>
<%else%>
<font color="0076AE"> √</font>
<%end if%> </td>
</tr>
</table>
<table width="98%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="1"></td>
</tr>
</table>
<table width="98%" height="30" border="0" cellpadding="0" cellspacing="0" background="Images/main_bg.gif">
<tr>
<td><font color="#006699"><strong> 联系信息：</strong></font></td>
</tr>
</table>
<table width="98%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="1"></td>
</tr>
</table>
<table width="98%" height="53" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#CDCDCD">
<tr bgcolor="#FAFAFA">
<td width="50%" height="25"> 官方站点：<a target="_blank" href="http://www.qinzd.com/">http://www.qinzd.com/</a></td>
<td width="50%" height="25"> 技术支持<span class="small2">：</span><a href="mailto:QinZD.kheu@Gmail.com?subject=意见、建议">QinZD.kheu@Gmail.com</a></td>
</tr>
</table>
<br>
</div></td>
</tr>
</table></td>
</BODY>
</HTML>
<%call connclose()%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -