<%@language=vbscript codepage=936 %>
<%
Option Explicit
Response.Buffer = True
%>
<%
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
Response.Write "对不起，你的服务器没有安装动易组件（PE_Common6.dll），所以不能使用动易系统。请和你的空间商联系以安装动易组件。"
Exit Sub
End If
PE_Index.iConnStr = ConnStr
PE_Index.iSystemDatabaseType = SystemDatabaseType
Call PE_Index.ShowHTML
Set PE_Index = Nothing
If Err Then
Response.Write "错 误 号：" & Err.Number & "
"
Response.Write "错误描述：" & Err.Description & "
"
Response.Write "错误来源：" & Err.Source & "
"
Err.Clear
End If
End Sub
%>
|
双色球、福彩双色球
3d、福彩3d
3d开奖、双色球开奖
福彩论坛、福利彩票、福彩官方网 iiq.cc
福彩3d走势图、双色球走势图
<%@language=vbscript codepage=936 %>
<%
Option Explicit
Response.Buffer = True
%>
<%
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
Response.Write "对不起，你的服务器没有安装动易组件（PE_Common6.dll），所以不能使用动易系统。请和你的空间商联系以安装动易组件。"
Exit Sub
End If
PE_Index.iConnStr = ConnStr
PE_Index.iSystemDatabaseType = SystemDatabaseType
Call PE_Index.ShowHTML
Set PE_Index = Nothing
If Err Then
Response.Write "错 误 号：" & Err.Number & "
"
Response.Write "错误描述：" & Err.Description & "
"
Response.Write "错误来源：" & Err.Source & "
"
Err.Clear
End If
End Sub
%>
|
|
