动易后台有没有用的明白点的人在啊?

来源:百度知道 编辑:UC知道 时间:2024/06/03 05:16:14
<%@language=vbscript codepage=936 %>
<%
Option Explicit
Response.Buffer = True
%>
<!--#include file="conn.asp"-->
<%
If FileExt_SiteIndex < 4 Then
Call CloseConn
Response.redirect "Index" & GetFileExt(FileExt_SiteIndex)
Else
Call CloseConn
Call Main
End If

Function GetFileExt(FileExtType)
Select Case FileExtType
Case 0
GetFileExt = ".html"
Case 1
GetFileExt = ".htm"
Case 2
GetFileExt = ".shtml"
Case 3
GetFileExt = ".shtm"
Case 4
GetFileExt = ".asp"
End Select
End Function

Sub Main()
On Error Resume Next
Dim PE_Index
Set PE_Index = Server.CreateObject("PE_Common6.CreateIndex")
If Err Then
Err.Clear

...现在动易都开源了,不需要安装动易组建了,不知道你要问的是什么问题?
如果想看源文件是否修改很简单,去动易官方下载一个版本然后回来比较就可以了,动易后台有一个在线比较网站的设置,你也可以去试试.不明白可以PM我百度消息