📄 admin_main.asp
字号:
<HTML>
<HEAD>
<!--#include file="Admin_top.asp"-->
<%
Set rs = Server.CreateObject("ADODB.RecordSet")
Sql = "select * from Feedback Where Feedback_fs = 'send'"
Rs.Open sql,conn,1,3
if not rs.eof then
Send = rs.recordcount
else
Send = 0
End if
Rs.close
Sql = "select * from Feedback Where Feedback_fs = 'Mail'"
Rs.Open sql,conn,1,3
if not rs.eof then
Mail = rs.recordcount
else
Mail = 0
End if
Rs.close
Set rs = nothing
%>
<meta http-equiv="Content-Type" content="text/html; charset=gbk">
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD valign="top" width=210 bgColor=#f3f3f3>
<div align="center">
<!--#include file="Admin_left.asp"-->
</div>
</TD>
<TD width=4 bgColor=#0033CC></TD>
<TD valign="top">
<DIV align=center>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD height=1></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD height=1></TD></TR></TBODY></TABLE>
<!--#include file="Admin_Include.asp" -->
<%
Dim theInstalledObjects(24)
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"
theInstalledObjects(24) = "scripting.filesystemobject"
%>
<TABLE height=30 cellSpacing=0 cellPadding=0 width=98% border=0>
<TBODY>
<TR>
<TD bgcolor="#0033CC"> <FONT
color=#FFFFFF><STRONG>服务器信息</STRONG></FONT></TD>
</TR></TBODY></TABLE>
<table width="98%" border="1" cellpadding="5" cellspacing="0" bordercolor="#0033CC" bgcolor="#f0f0f0" >
<tr><td>
<TABLE cellSpacing=0 cellPadding=0 width="98%" border=0>
<TBODY>
<TR>
<TD height=1></TD></TR></TBODY></TABLE>
<TABLE width=100% height=269>
<TBODY>
<TR bgColor=#fafafa>
<TD height=20 colspan="2" bgcolor="#E3E3E3">
<p align="center"><b> 网站共有<u><font color=#FF0000><%=Send+Mail%></font></u>条反馈信息(网页:<u><font color=#FF0000><%=Send%></font></u>条 邮件:<u><font color=#FF0000><%=Mail%></font></u>条),请注意查收!</b></TD>
</TR>
<TR bgColor=#fafafa>
<TD height=26> 服务器类型：<font face="Verdana, Arial, Helvetica, sans-serif"><%=Request.ServerVariables("OS")%>(IP:<%=Request.ServerVariables("LOCAL_ADDR")%>)</font></TD>
<TD height=26> 站点物理路径<font face="Verdana, Arial, Helvetica, sans-serif">：<%=request.ServerVariables("APPL_PHYSICAL_PATH")%></font></TD></TR>
<TR bgColor=#fafafa>
<TD width="48%" height=26> 返回服务器的主机名，<font face="Verdana, Arial, Helvetica, sans-serif">IP</font>地址<font face="Verdana, Arial, Helvetica, sans-serif">：<font color=#0076AE><%=Request.ServerVariables("SERVER_NAME")%></font></font></TD>
<TD width="52%" height=26> 服务器操作系统<font face="Verdana, Arial, Helvetica, sans-serif">：<font color=#0076AE><%=Request.ServerVariables("OS")%></font></font></TD></TR>
<tr bgcolor="#FAFAFA">
<td width="48%" height="31"> 脚本解释引擎<span class="small2">：</span><font face="Verdana, Arial, Helvetica, sans-serif"><%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %> </font></td>
<td width="52%" height="31"> <span class="small2"><font face="Verdana, Arial, Helvetica, sans-serif">WEB</font></span>服务器的名称和版本<font face="Verdana, Arial, Helvetica, sans-serif">：<font color=#0076AE><%=Request.ServerVariables("SERVER_SOFTWARE")%></font></font></td>
</tr>
<tr bgcolor="#FAFAFA">
<td width="48%" height="26"> 脚本超时时间<span class="small2">：</span><font color=#0076AE><%=Server.ScriptTimeout%></font> 秒</td>
<td width="52%" height="26"> <font face="Verdana, Arial, Helvetica, sans-serif">FSO</font>组件支持<span class="small2">(升级需FSO支持)：</span> <%If Not IsObjInstalled(theInstalledObjects(24)) then%><font class=red><font color="#FF0000">×</font> </font><% else %><font color="#0076AE">√</font><% End IF %></td>
</tr>
<tr bgcolor="#FAFAFA">
<td width="48%" height="26"> 客户端操作系统：
<%
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>
<td width="52%" height="26"> <font face="Verdana, Arial, Helvetica, sans-serif"><span class="small2">Jmail</span></font>邮箱组件支持<span class="small2"><font face="Verdana, Arial, Helvetica, sans-serif">：</font></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="26"> 返回服务器处理请求的端口<font face="Verdana, Arial, Helvetica, sans-serif">：<%=Request.ServerVariables("SERVER_PORT")%></font></td>
<td height="26"> 协议的名称和版本<font face="Verdana, Arial, Helvetica, sans-serif">：<%=Request.ServerVariables("SERVER_PROTOCOL")%></font></td>
</tr>
</TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD height=1></TD></TR></TBODY></TABLE>
<TABLE height=30 cellSpacing=0 cellPadding=0 width=100%
border=0>
<TBODY>
<TR>
<TD bgcolor="#0033CC"> <FONT
color=#FFFFFF><STRONG>使用本系统，请确认您的服务器和你的浏览器满足以下要求：</STRONG></FONT></TD>
</TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD height=1></TD></TR></TBODY></TABLE>
<TABLE width=100% height=70 align=center>
<TBODY>
<tr bgcolor="#FAFAFA">
<td width="54%" height="34"> <font face="Verdana, Arial, Helvetica, sans-serif"><span class="small2">Jmail</span></font>邮箱组件支持<span class="small2"><font face="Verdana, Arial, Helvetica, sans-serif">：</font></span>
<% If Not IsObjInstalled(theInstalledObjects(13)) Then%> <font color="red">×</font> <%else%> <font color="0076AE"> √</font> <%end if%> </td>
<td width="46%" height="34"> 数据库使用<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="35" colspan="2"> 客户端浏览器版本：
<%
Dim Agent,Browser,version,tmpstr
Agent=Request.ServerVariables("HTTP_USER_AGENT")
Agent=Split(Agent,";")
If InStr(Agent(1),"MSIE")>0 Then
Browser="MS Internet Explorer "
version=Trim(Left(Replace(Agent(1),"MSIE",""),6))
ElseIf InStr(Agent(4),"Netscape")>0 Then
Browser="Netscape "
tmpstr=Split(Agent(4),"/")
version=tmpstr(UBound(tmpstr))
ElseIf InStr(Agent(4),"rv:")>0 Then
Browser="Mozilla "
tmpstr=Split(Agent(4),":")
version=tmpstr(UBound(tmpstr))
If InStr(version,")") > 0 Then
tmpstr=Split(version,")")
version=tmpstr(0)
End If
End If
response.Write(""&Browser&" "&version&"")
%>
[需要IE6.0或以上,服务器建议采用Windows 2000或Windows 2003 Server]</td>
</tr></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD height=1></TD></TR></TBODY></TABLE>
<TABLE width=100% height=30 border=0 cellPadding=0 cellSpacing=0 bgcolor="#0033CC">
<TBODY>
<TR>
<TD> <FONT
color=#FFFFFF><STRONG>联系我们</STRONG></FONT></TD>
</TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD height=1></TD></TR></TBODY></TABLE>
<TABLE width=100% align=center>
<TBODY>
<TR bgColor=#fafafa>
<TD height=30>
<DIV align=center>产品开发</DIV></TD>
<TD height=30> IssTech Co.,Ltd</TD>
<TD>
<DIV align=center>QQ咨询</DIV></TD>
<TD> 426507856,250410707</TD>
</TR>
<TR bgColor=#fafafa>
<TD width="13%" height=30>
<DIV align=center>官方网站</DIV></TD>
<TD width="34%" height=30> <a href="http://www.IssTech.com.cn" target="_blank">www.IssTech.com.cn</a></TD>
<TD width="13%">
<DIV align=center>电子邮件</DIV></TD>
<TD width="34%"> IssTech@qq.com</TD>
</TR>
<tr bgcolor="#f0f0f0">
<TD colSpan=4 height=32>
<DIV align=center>©2008-2009 CopyRight <strong>IssTech.Co., Ltd</strong> All
Rights Reserved</DIV></TD>
</tr>
</TBODY></TABLE>
</TD></tr>
</table>
<BR></DIV></TD></TR></TBODY></TABLE>
</BODY></HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -