<!--#include file="System_manage.asp"-->
<%
Call WM_Content()

Sub WM_Content()
       Content = "<table width='100%' cellpadding=3 cellspacing=1 Class=td1>" & vbCrLf
	   Content = Content & "<tr><td colspan=3 class=td3>本系统由80IT工作室联合遂宁网开发的一款ASP的系统程序，当前使用版本为 ("&Replace(Replace(ConnTypeStr,0,"ACCESS"),1,"MsSQL")&")</td></tr>" & vbCrLf
	   Content = Content & "<tr><td colspan=3 class=td4><strong>服务器信息</strong></td></tr>" & vbCrLf
       Content = Content & "<tr class=td2><td Colspan=2>服务器IP：" & Request.ServerVariables("LOCAL_ADDR") & "</td>" & vbCrLf
       Content = Content & "<td width='50%'>站点物理路径：" & Request.ServerVariables("APPL_PHYSICAL_PATH") & "</td></tr>" & vbCrLf
       Content = Content & "<tr class=td2><td Colspan=2>Jmail组件支持：<strong>" & tx_common.GetDll("JMail.SmtpMail") & "</strong></td>" & vbCrLf
       Content = Content & "<td>" &vbcrlf
	   'Fso文本读写：<strong>" & tx_common.GetDll(tx_Setting(14)) & "</strong>
	   content = content& "</td></tr>" & vbCrLf
       Content = Content & "<tr class=td2> " & vbCrLf
       Content = Content & "<td Colspan=2>ASPUpload 文件上传：<strong>" & tx_common.GetDll("Persits.Upload") & "</strong></td>" & vbCrLf
       Content = Content & "<td align=right><a href=System_Aspcheck.asp>点此查看更详细的服务器信息>>></a>&nbsp;&nbsp;</td></tr>"
     
	   Content = Content & "<tr class=td4><td Colspan=3>" & vbcrlf
	
	   Content = Content &"***</td></tr>" & vbCrLf
       Content = Content & "<tr class=td2><td Colspan=3 align=center><span id=LiveUpdate>loading...</span></td></tr>" & vbCrLf

	   Content = Content & "<tr><td colspan=3 class=td4><strong>产品信息</strong></td></tr>" & vbCrLf
       Content = Content & "<tr class=td2><td width='20%'>产品开发</td>" & vbCrLf
       Content = Content & "<td Colspan=2 width='80%'>80IT设计</td></tr>" & vbCrLf
       Content = Content & "<tr class=td2><td>产品负责</td>" & vbCrLf
       Content = Content & "<td Colspan=2>信息发布系统项目组</td></tr>" & vbCrLf
       Content = Content & "<tr class=td2><td>联系方式</td>" & vbCrLf
       Content = Content & "<td Colspan=2>87450265@qq.com</td></tr>" & vbCrLf
	   Content = Content & "<tr class=td2><td>官方网址：</td>" & vbCrLf
       Content = Content & "<td Colspan=2>http://bbs.snxsc.com</td></tr>" & vbCrLf

	   Content = Content & "</table>" & vbCrLf
	   Call ClassEnd()
	   Response.write Content
       Call GetBottom()
	   
       Response.write "<SPAN ID=SpanLiveUpdate CLASS=spanclass></SPAN>" & vbCrLf
       Response.write "<SCRIPT>" & vbCrLf
       Response.write "LiveUpdate.innerHTML=SpanLiveUpdate.innerHTML;" & vbCrLf
       Response.write "</SCRIPT>" & vbCrLf
End Sub
%>