?? main.aspx
字號:
?<!--#include file = "private.aspx"-->
<%
'######################################
' eWebEditor v4.00 - Advanced online web based WYSIWYG HTML editor.
' Copyright (c) 2003-2007 eWebSoft.com
'
' For further information go to http://www.ewebsoft.com/
' This copyright notice MUST stay intact for use.
'######################################
%>
<%
sPosition = sPosition & "后臺管理首頁"
Call Header()
Call Content()
Call Footer()
%>
<script language="vb" runat="server">
Sub Content()
Response.Write ("<table border=0 cellspacing=1 align=center class=navi>" & _
"<tr><th>" & sPosition & "</th></tr>" & _
"</table>")
Response.Write ("<br>")
Response.Write ("<table border=0 cellspacing=1 align=center class=list>" & _
"<tr><th colspan=2>eWebEditor 4.4 版權、常用聯系方法、技術支持</th></tr>" & _
"<tr>" & _
"<td width='15%'>軟件版本：</td>" & _
"<td width='85%'>eWebEditor Version 4.4 簡體中文專業版</td>" & _
"</tr>" & _
"<tr>" & _
"<td width='15%'>版權所有：</td>" & _
"<td width='85%'><a href='http://www.ewebsoft.com' target='_blank'>eWebSoft.com</a> 已獲得國家版權局頒發的《計算機軟件著作權登記證書》,登記號:2004SR06549</td>" & _
"</tr>" & _
"<tr>" & _
"<td width='15%'>程序制作：</td>" & _
"<td width='85%'>eWeb開發團隊</td>" & _
"</tr>" & _
"<tr>" & _
"<td width='15%'>主頁地址：</td>" & _
"<td width='85%'><a href='http://www.eWebSoft.com' target=_blank>http://www.eWebSoft.com</a> <a href='http://www.webasp.net' target=_blank>http://www.webasp.net</a></td>" & _
"</tr>" & _
"<tr>" & _
"<td width='15%'>產品介紹：</td>" & _
"<td width='85%'><a href='http://www.eWebEditor.net' target=_blank>http://www.eWebEditor.net</a></td>" & _
"</tr>" & _
"<tr>" & _
"<td width='15%'>論壇地址：</td>" & _
"<td width='85%'><a href='http://bbs.webasp.net' target=_blank>http://bbs.webasp.net</a></td>" & _
"</tr>" & _
"<tr>" & _
"<td width='15%'>聯系方式：</td>" & _
"<td width='85%'>QQ:589808 Email:<a href='mailto:service@ewebsoft.com'>service@ewebsoft.com</a></td>" & _
"</tr>" & _
"</table>")
Response.Write ("<br>")
Response.Write ("<table border=0 cellspacing=1 align=center class=list>" & _
"<tr><th colspan=2>服務器的有關參數</th><th colspan=2>組件支持有關參數</th></tr>" & _
"<tr>" & _
"<td width='15%'>服務器名：</td>" & _
"<td width='45%'>" & Request.ServerVariables("SERVER_NAME") & "</td>" & _
"<td width='20%'>ADO 數據對像：</td>" & _
"<td width='20%'>" & Get_ObjInfo("adodb.connection", 1) & "</td>" & _
"</tr>" & _
"<tr>" & _
"<td width='15%'>服務器IP：</td>" & _
"<td width='45%'>" & Request.ServerVariables("LOCAL_ADDR") & "</td>" & _
"<td width='20%'>FSO 文本文件讀寫：</td>" & _
"<td width='20%'>" & Get_ObjInfo("scripting.filesystemobject", 0) & "</td>" & _
"</tr>" & _
"<tr>" & _
"<td width='15%'>服務器端口：</td>" & _
"<td width='45%'>" & Request.ServerVariables("SERVER_PORT") & "</td>" & _
"<td width='20%'>Stream 文件流：</td>" & _
"<td width='20%'>" & Get_ObjInfo("Adodb.Stream", 0) & "</td>" & _
"</tr>" & _
"<tr>" & _
"<td width='15%'>服務器時間：</td>" & _
"<td width='45%'>" & Now() & "</td>" & _
"<td width='20%'>Microsoft.XMLHTTP：</td>" & _
"<td width='20%'>" & Get_ObjInfo("Microsoft.XMLHTTP", 0) & "</td>" & _
"</tr>" & _
"<tr>" & _
"<td width='15%'>IIS版本：</td>" & _
"<td width='45%'>" & Request.ServerVariables("SERVER_SOFTWARE") & "</td>" & _
"<td width='20%'>Microsoft.XMLDOM：</td>" & _
"<td width='20%'>" & Get_ObjInfo("Microsoft.XMLDOM", 0) & "</td>" & _
"</tr>" & _
"<tr>" & _
"<td width='15%'>服務器操作系統：</td>" & _
"<td width='45%'>" & Request.ServerVariables("OS") & "</td>" & _
"<td width='20%'>CDONTS 虛擬SMTP發信：</td>" & _
"<td width='20%'>" & Get_ObjInfo("CDONTS.NewMail", 1) & "</td>" & _
"</tr>" & _
"<tr>" & _
"<td width='15%'>腳本超時時間：</td>" & _
"<td width='45%'>" & Server.ScriptTimeout & " 秒</td>" & _
"<td width='20%'>LyfUpload 上傳組件：</td>" & _
"<td width='20%'>" & Get_ObjInfo("LyfUpload.UploadFile", 1) & "</td>" & _
"</tr>" & _
"<tr>" & _
"<td width='15%'>站點物理路徑：</td>" & _
"<td width='45%'>" & request.ServerVariables("APPL_PHYSICAL_PATH") & "</td>" & _
"<td width='20%'>AspUpload 上傳組件：</td>" & _
"<td width='20%'>" & Get_ObjInfo("Persits.Upload.1", 1) & "</td>" & _
"</tr>" & _
"<tr>" & _
"<td width='15%'>服務器CPU數量：</td>" & _
"<td width='45%'>" & Request.ServerVariables("NUMBER_OF_PROCESSORS") & " 個</td>" & _
"<td width='20%'>SA-FileUp 上傳組件：</td>" & _
"<td width='20%'>" & Get_ObjInfo("SoftArtisans.FileUp", 1) & "</td>" & _
"</tr>" & _
"<tr>" & _
"<td width='15%'>服務器解譯引擎：</td>" & _
"<td width='45%'>" & ScriptEngine & "/" & ScriptEngineMajorVersion & "." & ScriptEngineMinorVersion & "." & ScriptEngineBuildVersion & "</td>" & _
"<td width='20%'>AspJpeg 圖像處理組件：</td>" & _
"<td width='20%'>" & Get_ObjInfo("Persits.Jpeg",1) & "</td>" & _
"</tr>" & _
"</table>")
End Sub
Function Get_ObjInfo(obj, ver)
On Error Resume Next
Dim objTest, sTemp
objTest = Server.CreateObject(obj)
If Err.Number <> 0 Then
Err.Clear
Get_ObjInfo = "<font class=red><b>×</b></font> <font class=gray>不支持</font>"
Else
sTemp = ""
If ver = 1 Then
sTemp = objTest.version
If IsDBNull(sTemp) Then sTemp = objTest.about
sTemp = Replace(sTemp, "Version", "")
sTemp = " <font class=tims><font class=blue>" & sTemp & "</font></font>"
End If
Get_ObjInfo = "<b>√</b> <font class=gray>支持</font>" & sTemp
End If
objTest = Nothing
If Err.Number <> 0 Then Err.Clear
End Function
</script>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -