lblog.aspx.vb

本程序修改自飞天BBS 7.0 将原来的ASP语法迁移为ASP.NET并封装成DLL ASP.NET相对ASP有更快的执行效率以及更高的并发访问量 基于ASP.NET的DLL可以运行在支持ASP

' ***************************************************
' *        本程序由AspToAspX风火轮0.99转换生成      *
' *        http://Www.AspToAspX.Cn                  *
' *        Q Q :  139227536                         *
' *        QQ群:  17152722                          *
' *        MSN :  [e-mail]        *
' *        EMail  [e-mail]              *
' ***************************************************
Imports Microsoft.VisualBasic
Imports System.Web
Imports System.Math
Imports System.Web.SessionState


Public Class _LBLOG

    Public AspToAspX_Host_Class_Object As Object

Dim _aspx_conn,_aspx_userid,_aspx_sql,_aspx_rs,_aspx_ft,_aspx_username,_aspx_blog_mid,_aspx_blogheadimg
#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
    Response.Write ( "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"" class=""modth"">" & Chr ( 13 ) ) '1
    Response.Write ( "" & Chr ( 9 ) & "<tr><td class=""modtl"" width=""7"">&nbsp;</td>" & Chr ( 13 ) ) '2
    Response.Write ( "" & Chr ( 9 ) & "<td class=""modtc"" nowrap><div class=""modhead""><span class=""modtit"">个人档案</span></div></td>" & Chr ( 13 ) ) '3
    Response.Write ( "" & Chr ( 9 ) & "<td class=""modtc"" nowrap align=""right""></td>" & Chr ( 13 ) ) '4
    Response.Write ( "" & Chr ( 9 ) & "<td class=""modtr"" width=""7"">&nbsp;</td>" & Chr ( 13 ) ) '5
    Response.Write ( "" & Chr ( 9 ) & "</tr></table>" & Chr ( 13 ) ) '6
    Response.Write ( "" & Chr ( 9 ) & "<div id=""m_pro"" class=""modbox"">" & Chr ( 13 ) ) '7
    Response.Write ( "<SCRIPT LANGUAGE=""JavaScript"">" & Chr ( 13 ) ) '8
    Response.Write ( "<!--" & Chr ( 13 ) ) '9
    Response.Write ( "var proMaxHeight = 150;" & Chr ( 13 ) ) '10
    Response.Write ( "var proMaxWidth = 110;" & Chr ( 13 ) ) '11
    Response.Write ( "function proDownImage(ImgD){ " & Chr ( 13 ) ) '12
    Response.Write ( "    var image=new Image(); " & Chr ( 13 ) ) '13
    Response.Write ( "    image.src=ImgD.src; " & Chr ( 13 ) ) '14
    Response.Write ( "    if(image.width>0 && image.height>0){ " & Chr ( 13 ) ) '15
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "var rate = (proMaxWidth/image.width < proMaxHeight/image.height)?proMaxWidth/image.width:proMaxHeight/image.height;" & Chr ( 13 ) ) '16
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "if(rate <= 1){" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "" & Chr ( 13 ) ) '17
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "ImgD.width = image.width*rate;" & Chr ( 13 ) ) '18
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "ImgD.height =image.height*rate;" & Chr ( 13 ) ) '19
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "}" & Chr ( 13 ) ) '20
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "else {" & Chr ( 13 ) ) '21
    Response.Write ( "                        ImgD.width = image.width;" & Chr ( 13 ) ) '22
    Response.Write ( "                        ImgD.height =image.height;" & Chr ( 13 ) ) '23
    Response.Write ( "                }" & Chr ( 13 ) ) '24
    Response.Write ( "    } " & Chr ( 13 ) ) '25
    Response.Write ( "}" & Chr ( 13 ) ) '26
    Response.Write ( "//-->" & Chr ( 13 ) ) '27
    Response.Write ( "</SCRIPT>" & Chr ( 13 ) ) '28
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<div class=""image""><img src=""" ) '29
    Response.Write ( blogheadimg ) '29
    Response.Write ( """ border=""0""></div>" & Chr ( 13 ) ) '29
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<div class=""act"">" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "" & Chr ( 13 ) ) '30
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<a href=""friend_add.aspx?postuser=" ) '31
    Response.Write ( username ) '31
    Response.Write ( """><img src='blogimages/ico_adfriend.gif' border='0' align='absmiddle'> 加为好友</a>|<a href=""blogsms_add.aspx?postuser=" ) '31
    Response.Write ( username ) '31
    Response.Write ( """ target=""_blank""><img src=""blogimages/ico_sendmsg.gif"" border=""0"" align=""absmiddle""> 发送消息</a>" & Chr ( 13 ) ) '31
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '32
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<div class=""desc"">WELCOME TO MY BLOG" & Chr ( 13 ) ) '33
    Response.Write ( "<br>不论多忙多累都要坚持写<br><a href=""myinfo.aspx?userid=" ) '34
    Response.Write ( userid ) '34
    Response.Write ( """>查看详细信息</a></div>" & Chr ( 13 ) ) '34
    Response.Write ( "" & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '35
    Response.Write ( "" & Chr ( 9 ) & "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"" height=""8"">" & Chr ( 13 ) ) '36
    Response.Write ( "" & Chr ( 9 ) & "<tr><td class=""modbl"" width=""7"">&nbsp;</td>" & Chr ( 13 ) ) '37
    Response.Write ( "" & Chr ( 9 ) & "<td class=""modbc"">&nbsp;</td>" & Chr ( 13 ) ) '38
    Response.Write ( "" & Chr ( 9 ) & "<td class=""modbr"" width=""7"">&nbsp;</td>" & Chr ( 13 ) ) '39
    Response.Write ( "" & Chr ( 9 ) & "</tr></table>" & Chr ( 13 ) ) '40
    Response.Write ( "</div>" & Chr ( 13 ) ) '41
    If AspToAspX_CheckDBNull ( blog_mid ) < > EmptyString.Value Then '43
        Response.Write ( vbCrLf )
        Response.Write ( "<div id=""mod_bgmusic"" class=""mod"" rel=""drag"">" & Chr ( 13 ) ) '45
        Response.Write ( "" & Chr ( 9 ) & "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"" class=""modth"">" & Chr ( 13 ) ) '46
        Response.Write ( "" & Chr ( 9 ) & "<tr><td class=""modtl"" width=""7"">&nbsp;</td>" & Chr ( 13 ) ) '47
        Response.Write ( "" & Chr ( 9 ) & "<td class=""modtc"" nowrap><div class=""modhead""><span class=""modtit"">背景音乐</span></div></td>" & Chr ( 13 ) ) '48
        Response.Write ( "" & Chr ( 9 ) & "<td class=""modtc"" nowrap align=""right""></td>" & Chr ( 13 ) ) '49
        Response.Write ( "" & Chr ( 9 ) & "<td class=""modtr"" width=""7"">&nbsp;</td>" & Chr ( 13 ) ) '50
        Response.Write ( "" & Chr ( 9 ) & "</tr></table>" & Chr ( 13 ) ) '51
        Response.Write ( "<script language=""javascript"" src=""js/bgmusic.js""></script>" & Chr ( 13 ) ) '52
        Response.Write ( "<script>" & Chr ( 13 ) ) '53
        Response.Write ( "var wmaurl = '" ) '54
        Response.Write ( blog_mid ) '54
        Response.Write ( "'" & Chr ( 13 ) ) '54
        Response.Write ( "var linkurl='" ) '55
        Response.Write ( blog_mid ) '55
        Response.Write ( "';" & Chr ( 13 ) ) '55
        Response.Write ( "var bgmusic1='<OBJECT id=phx width=100% classid=clsid:6BF52A52-394A-11D3-B153-00C04F79FAA6>'" & Chr ( 13 ) ) '56
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "+'<PARAM NAME=""URL"" VALUE=""'+linkurl+'"">'" & Chr ( 13 ) ) '57
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "" & Chr ( 13 ) ) '58
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & " +' <PARAM NAME=""rate"" VALUE=""1"">'" & Chr ( 13 ) ) '59
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & " +' <PARAM NAME=""balance"" VALUE=""0"">'" & Chr ( 13 ) ) '60
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & " +' <PARAM NAME=""currentPosition"" VALUE=""0"">'" & Chr ( 13 ) ) '61
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & " +' <PARAM NAME=""defaultFrame"" VALUE="""">'" & Chr ( 13 ) ) '62
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & " +' <PARAM NAME=""PlayCount"" VALUE=""100"">'" & Chr ( 13 ) ) '63
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & " +' <PARAM NAME=""DisplayMode"" VALUE=""0"">'" & Chr ( 13 ) ) '64
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & " +' <PARAM NAME=""PreviewMode"" VALUE=""0"">'" & Chr ( 13 ) ) '65
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & " +' <PARAM NAME=""DisplayForeColor"" VALUE=""16777215"">'" & Chr ( 13 ) ) '66
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & " +' <PARAM NAME=""ShowCaptioning"" VALUE=""0"">'" & Chr ( 13 ) ) '67
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & " +' <PARAM NAME=""ShowControls"" VALUE=""1"">'" & Chr ( 13 ) ) '68
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & " +' <PARAM NAME=""ShowAudioControls"" VALUE=""1"">'" & Chr ( 13 ) ) '69
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & " +' <PARAM NAME=""ShowDisplay"" VALUE=""0"">'" & Chr ( 13 ) ) '70
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & " +' <PARAM NAME=""ShowGotoBar"" VALUE=""0"">'" & Chr ( 13 ) ) '71
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & " +' <PARAM NAME=""ShowPositionControls"" VALUE=""1"">'" & Chr ( 13 ) ) '72
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & " +' <PARAM NAME=""ShowStatusBar"" VALUE=""0"">'" & Chr ( 13 ) ) '73
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & " +' <PARAM NAME=""ShowTracker"" VALUE=""1"">'" & Chr ( 13 ) ) '74
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & " +' <PARAM NAME=""autoStart"" VALUE=""1"">'" & Chr ( 13 ) ) '75
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & " +' <PARAM NAME=""AutoRewind"" VALUE=""1"">'" & Chr ( 13 ) ) '76
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & " +' <PARAM NAME=""currentMarker"" VALUE=""0"">'" & Chr ( 13 ) ) '77
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & " +' <PARAM NAME=""invokeURLs"" VALUE=""0"">'" & Chr ( 13 ) ) '78
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & " +' <PARAM NAME=""baseURL"" VALUE="""">'" & Chr ( 13 ) ) '79
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & " +' <PARAM NAME=""volume"" VALUE=""100"">'" & Chr ( 13 ) ) '80
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & " +' <PARAM NAME=""mute"" VALUE=""0"">'" & Chr ( 13 ) ) '81
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & " +' <PARAM NAME=""uiMode"" VALUE=""full"">'" & Chr ( 13 ) ) '82
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & " +' <PARAM NAME=""stretchToFit"" VALUE=""0"">'" & Chr ( 13 ) ) '83
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & " +' <PARAM NAME=""windowlessVideo"" VALUE=""1"">'" & Chr ( 13 ) ) '84
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & " +' <PARAM NAME=""enabled"" VALUE=""1"">'" & Chr ( 13 ) ) '85
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & " +' <PARAM NAME=""EnableFullScreenControls"" VALUE=""0"">'" & Chr ( 13 ) ) '86
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & " +' <PARAM NAME=""EnableTracker"" VALUE=""1"">'" & Chr ( 13 ) ) '87
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & " +' <PARAM NAME=""EnablePositionControls"" VALUE=""1"">'" & Chr ( 13 ) ) '88
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & " +' <PARAM NAME=""enableContextMenu"" VALUE=""0"">'" & Chr ( 13 ) ) '89
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & " +' <PARAM NAME=""SelectionStart""  VALUE=""0"">'" & Chr ( 13 ) ) '90
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & " +' <PARAM NAME=""SelectionEnd"" VALUE=""0"">'" & Chr ( 13 ) ) '91
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & " +' <PARAM NAME=""fullScreen"" VALUE=""0""><PARAM NAME=""SAMIStyle"" VALUE="""">'" & Chr ( 13 ) ) '92
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & " +' <PARAM NAME=""SAMILang"" VALUE="""">'" & Chr ( 13 ) ) '93
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & " +' <PARAM NAME=""SAMIFilename"" VALUE="""">'" & Chr ( 13 ) ) '94
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & " +' <PARAM NAME=""captioningID"" VALUE="""">'" & Chr ( 13 ) ) '95
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & " +' <PARAM NAME=""Visualizations"" VALUE=""1"">'" & Chr ( 13 ) ) '96
        Response.Write ( "" & Chr ( 9 ) & "+'</OBJECT>';" & Chr ( 13 ) ) '97
        Response.Write ( "var bgmusic2='<EMBED src='+linkurl+' width=""100%"" height=""100%"" type=""application/x-mplayer2"" invokeurls=""0"" autogotourl=""false"" autostart=1 loop=1 quality=""high""> </EMBED>';" & Chr ( 13 ) ) '98
        Response.Write ( "var bgmusic3='<div id=""m_bgmusic"" class=""modbox"">对不起，您尚未安装windows media player，无法欣赏该空间的背景音乐，请先下载并安装</a><br><br></div>';" & Chr ( 13 ) ) '99
        Response.Write ( "var bgmus=ftbbs();" & Chr ( 13 ) ) '100
        Response.Write ( "if(bgmus.installed){" & Chr ( 13 ) ) '101
        Response.Write ( "" & Chr ( 9 ) & "if(bgmus.type==""IE""){document.write(bgmusic1);}else if(bgmus.type==""NS""){document.write(bgmusic2);}" & Chr ( 13 ) ) '102
        Response.Write ( "}else{" & Chr ( 13 ) ) '103
        Response.Write ( "" & Chr ( 9 ) & "document.write(bgmusic3);" & Chr ( 13 ) ) '104
        Response.Write ( "}" & Chr ( 13 ) ) '105
        Response.Write ( "</script>" & Chr ( 13 ) ) '106
        Response.Write ( "</div>" & Chr ( 13 ) ) '107
        Response.Write ( "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"" height=""8"">" & Chr ( 13 ) ) '108
        Response.Write ( "" & Chr ( 9 ) & "<tr><td class=""modbl"" width=""7"">&nbsp;</td>" & Chr ( 13 ) ) '109
        Response.Write ( "" & Chr ( 9 ) & "<td class=""modbc"">&nbsp;</td>" & Chr ( 13 ) ) '110
        Response.Write ( "" & Chr ( 9 ) & "<td class=""modbr"" width=""7"">&nbsp;</td>" & Chr ( 13 ) ) '111
        Response.Write ( "" & Chr ( 9 ) & "</tr></table>" & Chr ( 13 ) ) '112
    End If '113
    Response.Write ( vbCrLf )
    Response.Write ( "<div id=""mod_profile"" class=""mod"" rel=""drag"">" & Chr ( 13 ) ) '114
    Response.Write ( "" & Chr ( 9 ) & "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"" class=""modth"">" & Chr ( 13 ) ) '115
    Response.Write ( "" & Chr ( 9 ) & "<tr><td class=""modtl"" width=""7"">&nbsp;</td>" & Chr ( 13 ) ) '116
    Response.Write ( "" & Chr ( 9 ) & "<td class=""modtc"" nowrap><div class=""modhead""><span class=""modtit"">我的相册</span></div></td>" & Chr ( 13 ) ) '117
    Response.Write ( "" & Chr ( 9 ) & "<td class=""modtc"" nowrap align=""right"">" & Chr ( 13 ) ) '118
    Response.Write ( "" & Chr ( 9 ) & "" & Chr ( 13 ) ) '119
    Response.Write ( "" & Chr ( 9 ) & "</td>" & Chr ( 13 ) ) '120
    Response.Write ( "" & Chr ( 9 ) & "<td class=""modtr"" width=""7"">&nbsp;</td>" & Chr ( 13 ) ) '121
    Response.Write ( "" & Chr ( 9 ) & "</tr></table>" & Chr ( 13 ) ) '122
    Response.Write ( "" & Chr ( 9 ) & "<div id=""m_pro"" class=""modbox"">" & Chr ( 13 ) ) '123
    Response.Write ( "       <div align=""center"">" & Chr ( 13 ) ) '124
    sql = "select top 1 upload_pic from " & ft & "ftbbs_upload where bbs_blog_type=2 and sign=0 and clubuser_id=" & userid & " order by indate desc" '126
    rs = New ADODB.Recordset ( ) '127
    rs.Open ( sql , conn , 3 , 1 ) '128
    If Not rs.EOF Then '129
        Response.Write ( "<a href=myphoto.aspx?userid=" & userid & "><img src=" & AspToAspX_CheckDBNull(rs.Fields ( "upload_pic" ) .Value) & " width=""200"" border=""0"" /></a>" ) '130
    Else '131
        Response.Write ( "相册还没有相片" ) '132
    End If '133
    rs.Close ( ) '134
    rs = Nothing '135
    Response.Write ( vbCrLf )
    Response.Write ( "" & Chr ( 9 ) & "   </div>" & Chr ( 13 ) ) '137
    Response.Write ( "       <!--<div align=""center"">上一张 下一张 </div>-->" & Chr ( 13 ) ) '138
    Response.Write ( "    </div>" & Chr ( 13 ) ) '139