⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 show_top.aspx.vb

📁 本程序修改自飞天BBS 7.0 将原来的ASP语法迁移为ASP.NET并封装成DLL ASP.NET相对ASP有更快的执行效率以及更高的并发访问量 基于ASP.NET的DLL可以运行在支持ASP
💻 VB
📖 第 1 页 / 共 3 页
字号:
🔍
123 
            Response.Write ( """><span class=""square"">&#183;</span>" ) '91
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "blogtitle" ) .Value) ) '91
            Response.Write ( "</a></div><div class=""f_right t_right""><a href=""home.aspx?userid=" ) '91
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "userid" ) .Value) ) '91
            Response.Write ( """ target=""_blank"" alt=""查看个人博客"">" ) '91
            Response.Write ( clubuser_name ) '91
            Response.Write ( "</a></div><br class=""clear""/></div>" & Chr ( 13 ) ) '91
        If AspToAspX_CheckDBNull ( i Mod 5 ) = 0 Then
Response.Write ( "</div><div class=""ms_con"">" )
End If
    '93
            rs.MoveNext ( ) '94
        Next '95
        rs.Close ( ) '96
        Response.Write ( pageclass ( wzpagecount , wzcount , wzrep , pagestr , root ) ) '97
        Response.Write ( vbCrLf )
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '99
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '100
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '101
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '102
    End If '104
    Response.Write ( vbCrLf )
    Response.Write ( "" & Chr ( 9 ) & "<!--主内容右侧区开始-->" & Chr ( 13 ) ) '106
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""f_r"">" & Chr ( 13 ) ) '107
    Response.Write ( "" & Chr ( 9 ) & "<!--右侧上部区开始-->" & Chr ( 13 ) ) '108
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""f_r_t"">" & Chr ( 13 ) ) '109
    sql = "select top 1 * from " & ft & "ftbbs_upload where bbs_blog_type=2 and (upload_ext='jpg' or upload_ext='gif') order by id desc" '111
    rs = New ADODB.Recordset ( ) '112
    rs.Open ( sql , conn , 3 , 1 ) '113
    If Not rs.EOF Then '114
        Response.Write ( vbCrLf )
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""r_t_t"">" & Chr ( 13 ) ) '116
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""img_con"">" & Chr ( 13 ) ) '117
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<a href=""myphoto.aspx?userid=" ) '118
        Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_id" ) .Value) ) '118
        Response.Write ( """><img src=""" ) '118
        Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "upload_pic" ) .Value) ) '118
        Response.Write ( """/></a>" & Chr ( 13 ) ) '118
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '119
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '120
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""r_t_d"">" & Chr ( 13 ) ) '121
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<a href=""myphoto.aspx?userid=" ) '122
        Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_id" ) .Value) ) '122
        Response.Write ( """>" ) '122
        Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "pic_note" ) .Value) ) '122
        Response.Write ( "</a>" & Chr ( 13 ) ) '122
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '123
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '124
    End If '126
    rs.Close ( ) '127
    Response.Write ( vbCrLf )
    Response.Write ( "" & Chr ( 9 ) & "<!--右侧中部区开始-->" & Chr ( 13 ) ) '129
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""f_r_m"">" & Chr ( 13 ) ) '130
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""tab_select_1"" id=""tab_selector"">" & Chr ( 13 ) ) '131
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""r_m_t"">" & Chr ( 13 ) ) '132
    Response.Write ( "                            " & Chr ( 13 ) ) '133
    Response.Write ( "            <div class=""tab1"" id=""tab1_title"" onClick=""document.getElementById('tab_selector').className='tab_select_1';"">点击排行榜</div>" & Chr ( 13 ) ) '134
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""tab2"" id=""tab2_title"" onClick=""document.getElementById('tab_selector').className='tab_select_2';"">评论排行榜</div>" & Chr ( 13 ) ) '135
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<br class=""clear""/>" & Chr ( 13 ) ) '136
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '137
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""r_m_d"" id=""div_topVisitBlogs"">" & Chr ( 13 ) ) '138
    sql = "SELECT top 10 * FROM " & ft & "ftblog order by hits desc" '140
    rs = New ADODB.Recordset ( ) '141
    rs.Open ( sql , conn , 1 , 1 ) '142
    If Not rs.EOF Then '143
        i = 0 '144
        Do While Not rs.EOF '145
        If AspToAspX_CheckDBNull ( i ) > = 10 Then
Exit Do
End If
    '146
            If AspToAspX_CheckDBNull ( i ) < 9 Then '147
                inum = "0" & i + 1 '148
            Else '149
                inum = i + 1 '150
            End If '151
            Response.Write ( vbCrLf )
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div>" & Chr ( 13 ) ) '153
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""f_left bg01"">" ) '154
            Response.Write ( inum ) '154
            Response.Write ( "</div>" & Chr ( 13 ) ) '154
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""f_left ms_seq""><a href=""myblog.aspx?id=" ) '155
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "id" ) .Value) ) '155
            Response.Write ( "&userid=" ) '155
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "userid" ) .Value) ) '155
            Response.Write ( "&blogtypeid=" ) '155
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "blogtypeid" ) .Value) ) '155
            Response.Write ( """ title=""" ) '155
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "blogtitle" ) .Value) ) '155
            Response.Write ( """>" ) '155
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "blogtitle" ) .Value) ) '155
            Response.Write ( "</a></div>" & Chr ( 13 ) ) '155
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""f_right"">" ) '156
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "hits" ) .Value) ) '156
            Response.Write ( "次</div>" & Chr ( 13 ) ) '156
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<br class=""clear""/>" & Chr ( 13 ) ) '157
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '158
            rs.MoveNext ( ) '160
            i = i + 1 '161
        Loop '162
    End If '163
    rs.Close ( ) '164
    Response.Write ( vbCrLf )
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '166
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""r_m_d"" id=""div_topReplyBlogs"">" & Chr ( 13 ) ) '167
    sql = "SELECT top 10 * FROM " & ft & "ftblog order by blogplnum desc" '169
    rs = New ADODB.Recordset ( ) '170
    rs.Open ( sql , conn , 1 , 1 ) '171
    If Not rs.EOF Then '172
        i = 0 '173
        Do While Not rs.EOF '174
        If AspToAspX_CheckDBNull ( i ) > = 10 Then
Exit Do
End If
    '175
            If AspToAspX_CheckDBNull ( i ) < 9 Then '176
                inum = "0" & i + 1 '177
            Else '178
                inum = i + 1 '179
            End If '180
            Response.Write ( vbCrLf )
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div>" & Chr ( 13 ) ) '182
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""f_left bg01"">" ) '183
            Response.Write ( inum ) '183
            Response.Write ( "</div>" & Chr ( 13 ) ) '183
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""f_left ms_seq""><a href=""myblog.aspx?id=" ) '184
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "id" ) .Value) ) '184
            Response.Write ( "&userid=" ) '184
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "userid" ) .Value) ) '184
            Response.Write ( "&blogtypeid=" ) '184
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "blogtypeid" ) .Value) ) '184
            Response.Write ( """ title=""" ) '184
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "blogtitle" ) .Value) ) '184
            Response.Write ( """>" ) '184
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "blogtitle" ) .Value) ) '184
            Response.Write ( "</a></div>" & Chr ( 13 ) ) '184
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""f_right"">" ) '185
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "blogplnum" ) .Value) ) '185
            Response.Write ( "条</div>" & Chr ( 13 ) ) '185
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<br class=""clear""/>" & Chr ( 13 ) ) '186
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '187
            rs.MoveNext ( ) '189
            i = i + 1 '190
        Loop '191
    End If '192
    rs.Close ( ) '193
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '194
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '195
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<!--end of tab_selector-->" & Chr ( 13 ) ) '196
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '197
    Response.Write ( "" & Chr ( 9 ) & "<!--右侧中部区结束-->" & Chr ( 13 ) ) '198
    Response.Write ( "" & Chr ( 9 ) & "" & Chr ( 13 ) ) '199
    Response.Write ( "" & Chr ( 9 ) & "<!--右侧下部区开始-->" & Chr ( 13 ) ) '200
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""f_r_d"">" & Chr ( 13 ) ) '201
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""r_d_t"">博客排行</div>" & Chr ( 13 ) ) '202
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""r_d_d"">" & Chr ( 13 ) ) '203
    sql = "select top 4 clubuser_id,clubuser_name,userimg,homepagetitle from " & ft & "clubuser where bokeer=1 and homepagetitle<>'' order by postnum desc" '205
    rs = New ADODB.Recordset ( ) '206
    rs.Open ( sql , conn , 3 , 1 ) '207
    If Not rs.EOF Then '208
        i = 0 '209
        Do While Not rs.EOF '210
        If AspToAspX_CheckDBNull ( i ) > 3 Then
Exit Do
End If
    '211
            Response.Write ( vbCrLf )
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""inf"">" & Chr ( 13 ) ) '213
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""inf_head"">" & Chr ( 13 ) ) '214
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""f_left img_con"">" & Chr ( 13 ) ) '215
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<a href=""home.aspx?user=" ) '216
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_id" ) .Value) ) '216
            Response.Write ( """><img src=""userheadimg/" ) '216
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "userimg" ) .Value) ) '216
            Response.Write ( """ width=""60"" height=""60""/></a>" & Chr ( 13 ) ) '216
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '217
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""f_left author"">" & Chr ( 13 ) ) '218
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<a href=""home.aspx?user=" ) '219
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_id" ) .Value) ) '219
            Response.Write ( """>" ) '219
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_name" ) .Value) ) '219
            Response.Write ( "</a>" & Chr ( 13 ) ) '219
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<br/>" & Chr ( 13 ) ) '220
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""cg"">" ) '221
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "homepagetitle" ) .Value) ) '221
            Response.Write ( "</div>" & Chr ( 13 ) ) '221
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '222
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<br class=""clear""/>" & Chr ( 13 ) ) '223
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '224
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""inf_body"">" & Chr ( 13 ) ) '225
            sql = "SELECT top 2 * FROM " & ft & "ftblog where userid=" & AspToAspX_CheckDBNull(rs.Fields ( "clubuser_id" ) .Value) & "" '227
            rm = New ADODB.Recordset ( ) '228
            rm.Open ( sql , conn , 1 , 1 ) '229
            If Not rm.EOF Then '230
                n = 0 '231
                Do While Not rm.EOF '232
                If AspToAspX_CheckDBNull ( n ) > 2 Then
Exit Do
End If
    '233
                    Response.Write ( vbCrLf )
                    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div><a href=""myblog.aspx?id=" ) '235
                    Response.Write ( AspToAspX_CheckDBNull(rm.Fields ( "id" ) .Value) ) '235
                    Response.Write ( "&userid=" ) '235
                    Response.Write ( AspToAspX_CheckDBNull(rm.Fields ( "userid" ) .Value) ) '235
                    Response.Write ( "&blogtypeid=" ) '235
                    Response.Write ( AspToAspX_CheckDBNull(rm.Fields ( "blogtypeid" ) .Value) ) '235
                    Response.Write ( """ title=""" ) '235
                    Response.Write ( AspToAspX_CheckDBNull(rm.Fields ( "blogtitle" ) .Value) ) '235
                    Response.Write ( """><span class=""square"">&#183;</span>" ) '235
                    Response.Write ( AspToAspX_CheckDBNull(rm.Fields ( "blogtitle" ) .Value) ) '235
                    Response.Write ( "</a></div>" & Chr ( 13 ) ) '235
                    n = n + 1 '237
                    rm.MoveNext ( ) '238
                Loop '239
            End If '240
            rm.Close ( ) '241
            Response.Write ( vbCrLf )
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '243
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '244
            i = i + 1 '246
123

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -