admin_main.asp

网人分类信息5.0商业版。非常优秀的分类信息系统。比较少见。

<!--#include file="WM.Sys_Cook.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>本系统由<a href=http://www.wangren.net target=_blank>网人科技(Wangren.Net)</a>授权给 "&WR_Setting(0)&" 使用，当前版本为 WRMPS v"&SystemVersion&"("&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>" & WRMPS.GetDll("JMail.SmtpMail") &GetVer("JMail.SmtpMail")& "</strong> <font color=red>(官方开发环境：4.4)</font></td>" & vbCrLf
       Content = Content & "<td>Fso文本读写：<strong>" & WRMPS.GetDll(WR_Setting(14)) & "</strong></td></tr>" & vbCrLf
       Content = Content & "<tr class=td2> " & vbCrLf
       Content = Content & "<td Colspan=2>AspJpeg图像读写：<strong>" & WRMPS.GetDll("Persits.Jpeg")&GetVer("Persits.Jpeg")& "</strong> <font color=red>(官方开发环境：1.5.0.0)</font></td>" & vbCrLf
       Content = Content & "<td align=right><a href=WM.Sys_Aspcheck.asp>点此查看更详细的服务器信息>>></a>&nbsp;&nbsp;</td></tr>"
       Content = Content & "<tr class=td4><td Colspan=3><strong><font class=f18>Wangren.Net LiveUpdate</font></strong></td></tr>" & vbCrLf
       Content = Content & "<tr class=td2><td Colspan=3><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 Colspan=3><span id=Contact>loading...</span></td></tr>" & vbCrLf
	   Content = Content & "</table>" & vbCrLf
	   Response.write Content
	   
       Response.write "<SPAN ID=SpanContact CLASS=spanclass>"
       Response.write "<scr"+"ipt type=""text/javascript"" src="""&Server_Url&"Contact.Html""></scr"+"ipt>"
	   Response.write "</SPAN>" & vbCrLf
       Response.write "<SPAN ID=SpanLiveUpdate CLASS=spanclass>"
       Response.write "<table width='100%' border=0 cellspacing=1 cellpadding=3 Class=td1>"
       Response.write "<tr class=td3><td width='50%'><strong>下载交流</strong></td><td width='50%'><strong>帮助文档</strong></td></tr>"
       Response.write "<tr Class=td2><td>"
       Response.write "<scr"+"ipt type=""text/javascript"" src=""http://bbs.wangren.net/API/javascript.php?key=threads_tKB""></scr"+"ipt>"
       Response.write "</td><td>"
       Response.write "<scr"+"ipt type=""text/javascript"" src=""http://bbs.wangren.net/API/javascript.php?key=threads_C1Z""></scr"+"ipt>"
       Response.write "</td></tr></table>"
	   Response.write "</SPAN>" & vbCrLf
       Response.write "<SCRIPT>" & vbCrLf
       Response.write "Contact.innerHTML=SpanContact.innerHTML;" & vbCrLf
       Response.write "LiveUpdate.innerHTML=SpanLiveUpdate.innerHTML;" & vbCrLf
       Response.write "</SCRIPT>" & vbCrLf
       Call GetBottom()
	   Call ClassEnd()
End Sub

Public Function GetVer(Classstr)
	On Error Resume Next
	Dim xTestObj
	set xTestObj = Server.CreateObject(Classstr)
	If Err Then
		GetVer=""
	Else	
	 	GetVer=" "&xTestObj.version
	End If
	Set xTestObj = Nothing
End Function

%>