📄 default.aspx.vb
字号:
Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "menu.innerHTML = ""<img src=\""images/ftbbs_open.gif\"" style=\""cursor:pointer;\"" alt=打开左栏>"";" & Chr ( 13 ) ) '154
Response.Write ( "" & Chr ( 9 ) & "}" & Chr ( 13 ) ) '155
Response.Write ( "}" & Chr ( 13 ) ) '156
Response.Write ( "</script>" & Chr ( 13 ) ) '157
Response.Write ( "<script>" & Chr ( 13 ) ) '158
Response.Write ( "var stylecook = getCookie(""STYLESHOW"");" & Chr ( 13 ) ) '159
Response.Write ( "var style;" & Chr ( 13 ) ) '160
Response.Write ( "var tmpstylecook;" & Chr ( 13 ) ) '161
Response.Write ( "function setcookies()" & Chr ( 13 ) ) '162
Response.Write ( "{" & Chr ( 13 ) ) '163
Response.Write ( " tmpstylecook = stylecook;" & Chr ( 13 ) ) '164
Response.Write ( "}" & Chr ( 13 ) ) '165
Response.Write ( "function reloadcook()" & Chr ( 13 ) ) '166
Response.Write ( "{" & Chr ( 13 ) ) '167
Response.Write ( " var scooks = getCookie(""STYLESHOW"");" & Chr ( 13 ) ) '168
Response.Write ( " if(scooks != tmpstylecook)" & Chr ( 13 ) ) '169
Response.Write ( " {" & Chr ( 13 ) ) '170
Response.Write ( " " & Chr ( 9 ) & "window.location.reload();" & Chr ( 13 ) ) '171
Response.Write ( " }" & Chr ( 13 ) ) '172
Response.Write ( "}" & Chr ( 13 ) ) '173
Response.Write ( "setcookies();" & Chr ( 13 ) ) '174
Response.Write ( "setInterval('reloadcook()',10);" & Chr ( 13 ) ) '175
Response.Write ( "</script>" & Chr ( 13 ) ) '176
Response.Write ( "</head>" & Chr ( 13 ) ) '177
Response.Write ( "<BODY scroll=no style=""MARGIN: 0px"">" & Chr ( 13 ) ) '178
Response.Write ( "<TABLE border=0 cellPadding=0 cellSpacing=0 height=""100%"" width=""100%"">" & Chr ( 13 ) ) '179
Response.Write ( " <TBODY>" & Chr ( 13 ) ) '180
Response.Write ( " <TR>" & Chr ( 13 ) ) '181
Response.Write ( " <TD align=middle id=frmTitle noWrap vAlign=center>" & Chr ( 13 ) ) '182
Response.Write ( "" & Chr ( 9 ) & "<IFRAME frameBorder=0 id=""left"" name=left scrolling=yes src=""" ) '183
Response.Write ( opentree ) '183
Response.Write ( """ style=""HEIGHT: 100%; VISIBILITY: inherit; WIDTH: 140px; Z-INDEX: 2""></IFRAME>" & Chr ( 13 ) ) '183
Response.Write ( "" & Chr ( 9 ) & "</TD>" & Chr ( 13 ) ) '184
Response.Write ( " <td>" & Chr ( 13 ) ) '185
Response.Write ( "" & Chr ( 9 ) & "<table height=""100%"" width=""12"" cellspacing=""0"" cellpadding=""0"" class=""nar"">" & Chr ( 13 ) ) '186
Response.Write ( "" & Chr ( 9 ) & " <tbody>" & Chr ( 13 ) ) '187
Response.Write ( "" & Chr ( 9 ) & " <tr>" & Chr ( 13 ) ) '188
Response.Write ( "" & Chr ( 9 ) & " <td align=""center"" id=""switchPoint"" onclick=""switchSysBar();"" height=""100%"">" & Chr ( 13 ) ) '189
Response.Write ( "" & Chr ( 9 ) & " <img src=""images/ftbbs_close.gif"" style=""cursor:pointer;"" alt=关闭左栏>" & Chr ( 13 ) ) '190
Response.Write ( "" & Chr ( 9 ) & " </td>" & Chr ( 13 ) ) '191
Response.Write ( "" & Chr ( 9 ) & " </tr>" & Chr ( 13 ) ) '192
Response.Write ( "" & Chr ( 9 ) & " </tbody>" & Chr ( 13 ) ) '193
Response.Write ( "" & Chr ( 9 ) & "</table>" & Chr ( 13 ) ) '194
Response.Write ( " </td>" & Chr ( 13 ) ) '195
Response.Write ( " <TD style=""WIDTH: 100%"">" & Chr ( 13 ) ) '196
Response.Write ( "" & Chr ( 9 ) & "<IFRAME frameBorder=0 id=""main"" name=main scrolling=yes src=""" ) '197
Response.Write ( urlfile ) '197
Response.Write ( """ style=""HEIGHT: 100%; VISIBILITY: inherit; WIDTH: 100%; Z-INDEX: 1""></IFRAME>" & Chr ( 13 ) ) '197
Response.Write ( "" & Chr ( 9 ) & "</TD>" & Chr ( 13 ) ) '198
Response.Write ( " </TR>" & Chr ( 13 ) ) '199
Response.Write ( " </TBODY>" & Chr ( 13 ) ) '200
Response.Write ( "</TABLE>" & Chr ( 13 ) ) '201
Response.Write ( "<SCRIPT>" & Chr ( 13 ) ) '202
Response.Write ( "if(window.screen.width<'1024'){switchSysBar()}" & Chr ( 13 ) ) '203
Response.Write ( "</SCRIPT>" & Chr ( 13 ) ) '204
Response.Write ( "</BODY>" & Chr ( 13 ) ) '205
Response.Write ( "</HTML>" & Chr ( 13 ) ) '206
End If '207
Response.Write ( vbCrLf )
AspToAspX_UnloadIncludeFiles()
Exit Sub
_AspToAspX_Err:
AspToAspX_WriteLog ("default_aspx Page_Init:" & Err.Description)
Resume Next
End Sub
#Region "..."
Public Property conn
Get
conn = ASPX_CONN.conn
End Get
Set(ByVal value)
ASPX_CONN.conn = value
End Set
End Property
Public Property qs
Get
qs = ASPX_CONN.qs
End Get
Set(ByVal value)
ASPX_CONN.qs = value
End Set
End Property
Public Property errc
Get
errc = ASPX_CONN.errc
End Get
Set(ByVal value)
ASPX_CONN.errc = value
End Set
End Property
Public Property iii
Get
iii = ASPX_CONN.iii
End Get
Set(ByVal value)
ASPX_CONN.iii = value
End Set
End Property
Public Property nothis
Get
nothis = ASPX_CONN.nothis
End Get
Set(ByVal value)
ASPX_CONN.nothis = value
End Set
End Property
Public Sub makeftbbstree(ByRef ft )
ASPX_CONN.makeftbbstree( ft )
End Sub
Public Sub CloseDb
ASPX_CONN.CloseDb
End Sub
Public Sub SaveToFile( ByVal strBody,ByVal File )
ASPX_CONN.ASPX_ADOSTREAM.SaveToFile( strBody, File )
End Sub
Public Function Checkstr(ByRef AspToAspX_Str )
Return ASPX_CONN.Checkstr( AspToAspX_Str )
End Function
Public Function CheckCharStr(ByRef usernamepsw,ByRef flag )
Return ASPX_CONN.CheckCharStr( usernamepsw,flag )
End Function
Public Function ftbbs_msg(ByRef msg,ByRef reurl )
Return ASPX_CONN.ftbbs_msg( msg,reurl )
End Function
Public Function login_msg(ByRef msg,ByRef reurl )
Return ASPX_CONN.login_msg( msg,reurl )
End Function
Public Function FTBBS_HTML_MB(ByRef ft )
Return ASPX_CONN.FTBBS_HTML_MB( ft )
End Function
Public Function FTBBS_BZ_NAME(ByRef BoardID_1,ByRef ft )
Return ASPX_CONN.FTBBS_BZ_NAME( BoardID_1,ft )
End Function
Public Function FTBBS_BZ_NAME2(ByRef BoardID_1,ByRef BoardID_2,ByRef ft )
Return ASPX_CONN.FTBBS_BZ_NAME2( BoardID_1,BoardID_2,ft )
End Function
Public Function makefilename(ByRef fname )
Return ASPX_CONN.makefilename( fname )
End Function
Public Function GetExtendName(ByRef FileName )
Return ASPX_CONN.GetExtendName( FileName )
End Function
Public Function IsObjInstalled(ByRef strClassString )
Return ASPX_CONN.IsObjInstalled( strClassString )
End Function
Public Function ChkMapPath( ByVal strPath )
Return ASPX_CONN.ChkMapPath( strPath )
End Function
Public Function userlogin(ByRef ft )
Return ASPX_CONN.userlogin( ft )
End Function
Public Function headhtml
Return ASPX_CONN.headhtml
End Function
Public Function GetOpInfo(ByRef AspToAspX_Str,ByRef Flag )
Return ASPX_CONN.GetOpInfo( AspToAspX_Str,Flag )
End Function
Public Function getcode
Return ASPX_CONN.getcode
End Function
Public Function codepass
Return ASPX_CONN.codepass
End Function
Public Function Ftbbs_Time
Return ASPX_CONN.Ftbbs_Time
End Function
Public Function ft_home(ByRef defaulthome )
Return ASPX_CONN.ft_home( defaulthome )
End Function
Public Function chkpost
Return ASPX_CONN.chkpost
End Function
Public Function CodeCookie(ByRef AspToAspX_Str )
Return ASPX_CONN.CodeCookie( AspToAspX_Str )
End Function
Public Function DecodeCookie(ByRef AspToAspX_Str )
Return ASPX_CONN.DecodeCookie( AspToAspX_Str )
End Function
Public Function setcookie(ByRef cookexpires,ByRef cookdomain,ByRef cookneme,ByRef cookvalue )
Return ASPX_CONN.setcookie( cookexpires,cookdomain,cookneme,cookvalue )
End Function
Public Function getcookie(ByRef ckname )
Return ASPX_CONN.getcookie( ckname )
End Function
Public Function clearcookie(ByRef cookdomain,ByRef cookneme )
Return ASPX_CONN.clearcookie( cookdomain,cookneme )
End Function
Public Function LoadFile( ByVal File )
Return ASPX_CONN.ASPX_ADOSTREAM.LoadFile( File )
End Function
Public Function GBtoUTF8(ByRef szInput )
Return ASPX_GBTOUTF8.GBtoUTF8( szInput )
End Function
#End Region
End Class
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -