📄 ftbbshome_nav.aspx.vb
字号:
' ***************************************************
' * 本程序由AspToAspX风火轮0.99转换生成 *
' * http://Www.AspToAspX.Cn *
' * Q Q : 139227536 *
' * QQ群: 17152722 *
' * MSN : gzliangjianhua@hotmail.com *
' * EMail AspToDll@vip.163.com *
' ***************************************************
Imports Microsoft.VisualBasic
Imports System.Web
Imports System.Math
Imports System.Web.SessionState
Public Class _FTBBSHOME_NAV
Public AspToAspX_Host_Class_Object As Object
Public ftbbs_nav_name,ftbbs_clubuser_id
Dim _aspx_conn,_aspx_ftbbs_nav_name,_aspx_ftbbs_clubuser_id,_aspx_sql,_aspx_rs,_aspx_ft,_aspx_ftbbs_bokeer,_aspx_userinfo,_aspx_num,_aspx_smsnum,_aspx_bknav
#Region "..."
Public Sub AspToAspX_InitIncludeFiles()
End Sub
Public Sub AspToAspX_UnloadIncludeFiles()
End Sub
#End Region
Public Sub AspToAspX_Page_Init()
On Error GoTo _AspToAspX_Err
ftbbs_nav_name = getcookie ( "name" ) '3
ftbbs_clubuser_id = getcookie ( "clubuser_id" ) '4
ftbbs_bokeer = getcookie ( "bokeer" ) '5
If AspToAspX_CheckDBNull ( ftbbs_nav_name ) = EmptyString.Value Then '6
userinfo = "游客 你还未登录 <img src=""blogimages/line-center.gif"" align=""middle"" /> <a href=""userlogin.aspx"">用户登录</a> <img src=""blogimages/line-center.gif"" align=""middle"" /> <a href=""register.aspx"">用户注册</a> <img src=""blogimages/line-center.gif"" align=""middle"" /> <a href=""memberlist.aspx"">会员列表</a>" & " <img src=""blogimages/line-center.gif"" align=""middle"" /> <a href=""search.aspx"">贴子搜索</a> <img src=""blogimages/line-center.gif"" align=""middle"" /> <a href=""bkindex.aspx"" target=""_blank"">空间首页</a> <img src=""blogimages/line-center.gif"" align=""middle"" /> <a href=""help.aspx"">论坛指南</a>" '7
Else '8
sql = "select count(*) as num from " & ft & "sms where IsNew=1 and accepter='" & ftbbs_nav_name & "'" '9
rs = conn.Execute ( sql ) '10
num = AspToAspX_CheckDBNull(rs.Fields ( "num" ) .Value) '11
num = AspToAspX_CStr ( num ) '12
rs.Close ( ) '13
rs = Nothing '14
If AspToAspX_CheckDBNull ( num ) > 0 Then '15
smsnum = "(<font color=red>" & num & "</font>)" '16
Else '17
smsnum = "" '18
End If '19
If AspToAspX_CheckDBNull ( ftbbs_bokeer ) = 1 Then '20
bknav = "<a href=""home.aspx?userid=" & ftbbs_clubuser_id & """ target=""_blank"">个人空间</a>" '21
Else '22
bknav = "<a href=""modmyinfo.aspx?blogstr=1"" target=""_blank""><font color=red>开通博客</font></a>" '23
End If '24
userinfo = "欢迎 <font color=""#FF0000"">" & ftbbs_nav_name & "</font> <img src=""blogimages/line-center.gif"" align=""middle"" /><a href=""myfriend.aspx"">我的好友</a><img src=""blogimages/line-center.gif"" align=""middle"" /><a href=""mysms.aspx"">短消息" & smsnum & "</a>" & "<img src=""blogimages/line-center.gif"" align=""middle"" /><a href=""myfavorties.aspx"">收藏夹</a><img src=""blogimages/line-center.gif"" align=""middle"" /><a href=main.aspx?searchkind=name&searchcontent=" & ftbbs_nav_name & ">我发的贴</a>" & "<img src=""blogimages/line-center.gif"" align=""middle"" /><a href=search.aspx?searchkind=myrepost&searchcontent=" & ftbbs_nav_name & ">我回的贴</a><img src=""blogimages/line-center.gif"" align=""middle"" /><a href=""memberlist.aspx"">会员列表</a><img src=""blogimages/line-center.gif"" align=""middle"" />" & bknav & "<img src=""blogimages/line-center.gif"" align=""middle"" /><a href=""trans.aspx"">交易中心</a><img src=""blogimages/line-center.gif"" align=""middle"" /><a href=""search.aspx"">论坛搜索</a>" '25
End If '26
Response.Write ( vbCrLf )
Exit Sub
_AspToAspX_Err:
AspToAspX_WriteLog ("ftbbshome_nav_aspx Page_Init:" & Err.Description)
Resume Next
End Sub
#Region "..."
Public Property conn
Get
On Error Resume Next
conn = AspToAspX_Host_Class_Object.conn
If Err.Number = 438 Then
Err.Clear
conn = _aspx_conn
End If
End Get
Set(ByVal value)
On Error Resume Next
AspToAspX_Host_Class_Object.conn = value
If Err.Number = 438 Then
Err.Clear
_aspx_conn = value
End If
End Set
End Property
Public Property sql
Get
On Error Resume Next
sql = AspToAspX_Host_Class_Object.sql
If Err.Number = 438 Then
Err.Clear
sql = _aspx_sql
End If
End Get
Set(ByVal value)
On Error Resume Next
AspToAspX_Host_Class_Object.sql = value
If Err.Number = 438 Then
Err.Clear
_aspx_sql = value
End If
End Set
End Property
Public Property rs
Get
On Error Resume Next
rs = AspToAspX_Host_Class_Object.rs
If Err.Number = 438 Then
Err.Clear
rs = _aspx_rs
End If
End Get
Set(ByVal value)
On Error Resume Next
AspToAspX_Host_Class_Object.rs = value
If Err.Number = 438 Then
Err.Clear
_aspx_rs = value
End If
End Set
End Property
Public Property ft
Get
On Error Resume Next
ft = AspToAspX_Host_Class_Object.ft
If Err.Number = 438 Then
Err.Clear
ft = _aspx_ft
End If
End Get
Set(ByVal value)
On Error Resume Next
AspToAspX_Host_Class_Object.ft = value
If Err.Number = 438 Then
Err.Clear
_aspx_ft = value
End If
End Set
End Property
Public Property ftbbs_bokeer
Get
On Error Resume Next
ftbbs_bokeer = AspToAspX_Host_Class_Object.ftbbs_bokeer
If Err.Number = 438 Then
Err.Clear
ftbbs_bokeer = _aspx_ftbbs_bokeer
End If
End Get
Set(ByVal value)
On Error Resume Next
AspToAspX_Host_Class_Object.ftbbs_bokeer = value
If Err.Number = 438 Then
Err.Clear
_aspx_ftbbs_bokeer = value
End If
End Set
End Property
Public Property userinfo
Get
On Error Resume Next
userinfo = AspToAspX_Host_Class_Object.userinfo
If Err.Number = 438 Then
Err.Clear
userinfo = _aspx_userinfo
End If
End Get
Set(ByVal value)
On Error Resume Next
AspToAspX_Host_Class_Object.userinfo = value
If Err.Number = 438 Then
Err.Clear
_aspx_userinfo = value
End If
End Set
End Property
Public Property num
Get
On Error Resume Next
num = AspToAspX_Host_Class_Object.num
If Err.Number = 438 Then
Err.Clear
num = _aspx_num
End If
End Get
Set(ByVal value)
On Error Resume Next
AspToAspX_Host_Class_Object.num = value
If Err.Number = 438 Then
Err.Clear
_aspx_num = value
End If
End Set
End Property
Public Property smsnum
Get
On Error Resume Next
smsnum = AspToAspX_Host_Class_Object.smsnum
If Err.Number = 438 Then
Err.Clear
smsnum = _aspx_smsnum
End If
End Get
Set(ByVal value)
On Error Resume Next
AspToAspX_Host_Class_Object.smsnum = value
If Err.Number = 438 Then
Err.Clear
_aspx_smsnum = value
End If
End Set
End Property
Public Property bknav
Get
On Error Resume Next
bknav = AspToAspX_Host_Class_Object.bknav
If Err.Number = 438 Then
Err.Clear
bknav = _aspx_bknav
End If
End Get
Set(ByVal value)
On Error Resume Next
AspToAspX_Host_Class_Object.bknav = value
If Err.Number = 438 Then
Err.Clear
_aspx_bknav = value
End If
End Set
End Property
Public Function getcookie(ByRef ckname )
Return AspToAspX_Host_Class_Object.getcookie( ckname )
End Function
#End Region
End Class
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -