blog_group.aspx.vb

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

    Response.Write ( """ />" & Chr ( 13 ) ) '83
    Response.Write ( "                        <input name=""act"" type=""Hidden"" id=""act2"" value=""y"">" & Chr ( 13 ) ) '84
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<input name=""nav"" type=""Hidden"" value=" ) '85
    Response.Write ( nav ) '85
    Response.Write ( ">" & Chr ( 13 ) ) '85
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<input name=""blogphoto"" type=""Hidden"" value=" ) '86
    Response.Write ( blogphoto ) '86
    Response.Write ( ">" & Chr ( 13 ) ) '86
    Response.Write ( "                      " & Chr ( 13 ) ) '87
    Response.Write ( "                    </div></td>" & Chr ( 13 ) ) '88
    Response.Write ( "                </tr>" & Chr ( 13 ) ) '89
    Response.Write ( "</form>" & Chr ( 13 ) ) '90
    Response.Write ( "                <tr> " & Chr ( 13 ) ) '91
    Response.Write ( "                  <td height=""1"" colspan=""5"" bgcolor=""#336699"" class=new14><spacer height=""1"" type=""block""></td>" & Chr ( 13 ) ) '92
    Response.Write ( "                </tr>" & Chr ( 13 ) ) '93
    Response.Write ( "                <tr id=""t1""  style=""display:none""> " & Chr ( 13 ) ) '94
    Response.Write ( "                  <td height=""25"" colspan=""5"" class=new14> <fieldset>" & Chr ( 13 ) ) '95
    Response.Write ( "                    <legend>修改" & Chr ( - 24144 ) & "<span id=""oldgroupname"" style=""color:red""></span>" & Chr ( - 24143 ) & "" ) '96
    Response.Write ( n ) '96
    Response.Write ( "名称:</legend>" & Chr ( 13 ) ) '96
    Response.Write ( "                    <table width=""100%""  border=""0"" align=""center"" cellpadding=""3"" cellspacing=""1"">" & Chr ( 13 ) ) '97
    Response.Write ( "                      <tr> " & Chr ( 13 ) ) '98
    Response.Write ( "                        <td colspan=""2""><form name=""form2"" method=post action=""?act=addGroup"" onsubmit=""return chkForm(this)"">" & Chr ( 13 ) ) '99
    Response.Write ( "                            <div align=""center""> " & Chr ( 13 ) ) '100
    Response.Write ( "                              <input name=""ftblog"" type=""text"" class=""text"" id=""ftblog"" />" & Chr ( 13 ) ) '101
    Response.Write ( "                              <input name=""Submit"" type=""submit"" class=""button"" value=""修 改"" />" & Chr ( 13 ) ) '102
    Response.Write ( "                              <input name=""cannel"" type=""reset"" id=""cannel"" value=""取 消"" class=""button"" onclick=""closechk()"">" & Chr ( 13 ) ) '103
    Response.Write ( "                              <input type=""Hidden"" name=""ftblog_old"">" & Chr ( 13 ) ) '104
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "  <input name=""nav"" type=""Hidden"" value=" ) '105
    Response.Write ( nav ) '105
    Response.Write ( ">" & Chr ( 13 ) ) '105
    Response.Write ( "                              (注意:只能是中文,英文或数字) </div>" & Chr ( 13 ) ) '106
    Response.Write ( "                          </form></td>" & Chr ( 13 ) ) '107
    Response.Write ( "                      </tr>" & Chr ( 13 ) ) '108
    Response.Write ( "                    </table>" & Chr ( 13 ) ) '109
    Response.Write ( "                    </fieldset></td>" & Chr ( 13 ) ) '110
    Response.Write ( "                </tr>" & Chr ( 13 ) ) '111
    Response.Write ( "                <tr> " & Chr ( 13 ) ) '112
    Response.Write ( "                  <td width=""57%"" height=""25""> <div align=""left""><strong>&nbsp;" ) '113
    Response.Write ( n ) '113
    Response.Write ( "名称</strong></div></td>" & Chr ( 13 ) ) '113
    Response.Write ( "                  <td width=""12%"">" & Chr ( 13 ) ) '114
    Response.Write ( "<div align=""center"">改名</div></td>" & Chr ( 13 ) ) '115
    Response.Write ( "                  <td width=""19%"">" & Chr ( 13 ) ) '116
    Response.Write ( "<div align=""center"">权限</div></td>" & Chr ( 13 ) ) '117
    Response.Write ( "                  <!--<td width=""7%"" bgcolor=""#FFFFFF""><div align=""center"">排序</div></td>-->" & Chr ( 13 ) ) '118
    Response.Write ( "                  <td width=""12%""><div align=""center"">删除</div></td>" & Chr ( 13 ) ) '119
    Response.Write ( "                </tr>" & Chr ( 13 ) ) '120
    Response.Write ( "                <tr> " & Chr ( 13 ) ) '121
    Response.Write ( "                  <td height=""1"" colspan=""5"" background=""blogimages/dotbg.gif""><spacer height=""1"" type=""block""></td>" & Chr ( 13 ) ) '122
    Response.Write ( "                </tr>" & Chr ( 13 ) ) '123
    sql = "select * from " & ft & "ftblog_type where userid=" & getcookie ( "clubuser_id" ) & " and blogphoto=" & blogphoto & " order by indate desc" '125
    rs = New ADODB.Recordset ( ) '126
    rs.Open ( sql , conn , 1 , 1 ) '127
    Do While Not rs.EOF '128
        AspToAspX_Sign = AspToAspX_CheckDBNull(rs.Fields ( "sign" ) .Value) '129
        If AspToAspX_CheckDBNull ( nav ) = "a" Then '130
            url = "<a href=photomanage.aspx?id=" & AspToAspX_CheckDBNull(rs.Fields ( "id" ) .Value) & "&photo_name=" & GBtoUTF8 ( AspToAspX_CheckDBNull(rs.Fields ( "blogtype" ) .Value) ) & ">" & AspToAspX_CheckDBNull(rs.Fields ( "blogtype" ) .Value) & "</a>" '131
        Else '132
            url = "<a href=blogcenter.aspx?blogtypeid=" & AspToAspX_CheckDBNull(rs.Fields ( "id" ) .Value) & ">" & AspToAspX_CheckDBNull(rs.Fields ( "blogtype" ) .Value) & "</a>" '133
        End If '134
        Response.Write ( vbCrLf )
        Response.Write ( "                <tr> " & Chr ( 13 ) ) '136
        Response.Write ( "                  <td height=""25""><div class=""opt"">&nbsp;" ) '137
        Response.Write ( url ) '137
        Response.Write ( "</div></td>" & Chr ( 13 ) ) '137
        Response.Write ( "                  <td height=""25"" align=""center""><div class=""opt""><a href=""#"" onclick=""chk('" ) '138
        Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "blogtype" ) .Value) ) '138
        Response.Write ( "')"">改名</a></div></td>" & Chr ( 13 ) ) '138
        Response.Write ( "                  <td height=""25"" align=""center"">" & Chr ( 13 ) ) '139
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "  <div class=""opt"">" & Chr ( 13 ) ) '140
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "  " ) '141
        If AspToAspX_CheckDBNull ( nav ) = "b" Then '141
        Response.Write ( vbCrLf )
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "  " ) '142
            If AspToAspX_Sign = 1 Then '142
                Response.Write ( "<a href=""op.aspx?id=" ) '142
                Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "id" ) .Value) ) '142
                Response.Write ( "&sign=0&act=qs&photo_name=" ) '142
                Response.Write ( GBtoUTF8 ( AspToAspX_CheckDBNull(rs.Fields ( "blogtype" ) .Value) ) ) '142
                Response.Write ( """><font color=red>隐藏</font></a>" ) '142
            Else '142
                Response.Write ( "<a href=""op.aspx?id=" ) '142
                Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "id" ) .Value) ) '142
                Response.Write ( "&sign=1&act=qs&photo_name=" ) '142
                Response.Write ( GBtoUTF8 ( AspToAspX_CheckDBNull(rs.Fields ( "blogtype" ) .Value) ) ) '142
                Response.Write ( """>显示</a>" ) '142
            End If '142
            Response.Write ( "</a>" & Chr ( 13 ) ) '142
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "  " ) '143
        Else '143
        Response.Write ( vbCrLf )
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "  " ) '144
            If AspToAspX_Sign = 0 Then '144
                Response.Write ( "<a href=""op.aspx?id=" ) '144
                Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "id" ) .Value) ) '144
                Response.Write ( "&sign=1&act=qs&photo_name=" ) '144
                Response.Write ( GBtoUTF8 ( AspToAspX_CheckDBNull(rs.Fields ( "blogtype" ) .Value) ) ) '144
                Response.Write ( """>公开</a>" ) '144
            Else '144
                Response.Write ( "<a href=""op.aspx?id=" ) '144
                Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "id" ) .Value) ) '144
                Response.Write ( "&sign=0&act=qs&photo_name=" ) '144
                Response.Write ( GBtoUTF8 ( AspToAspX_CheckDBNull(rs.Fields ( "blogtype" ) .Value) ) ) '144
                Response.Write ( """><font color=red>隐藏</font></a>" ) '144
            End If '144
            Response.Write ( vbCrLf )
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "  <a onClick=pwd('" ) '145
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "id" ) .Value) ) '145
            Response.Write ( "','" ) '145
            Response.Write ( userid ) '145
            Response.Write ( "','" ) '145
            Response.Write ( GBtoUTF8 ( AspToAspX_CheckDBNull(rs.Fields ( "blogtype" ) .Value) ) ) '145
            Response.Write ( "') href=""#"">" ) '145
            If AspToAspX_Sign = 2 Then '145
                Response.Write ( "<font color=red>已加密</font>" ) '145
            Else '145
                Response.Write ( "未加密" ) '145
            End If '145
            Response.Write ( "</a>" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "  " & Chr ( 13 ) ) '145
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "  " ) '146
        End If '146
        Response.Write ( vbCrLf )
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "  </div></td>" & Chr ( 13 ) ) '147
        Response.Write ( "                  <!--<td height=""25"" bgcolor=""#FFFFFF""><div align=""center""><a href=""op.aspx?id=" ) '148
        Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "id" ) .Value) ) '148
        Response.Write ( "&act=odby"">排序</a></div></td>-->" & Chr ( 13 ) ) '148
        Response.Write ( "                  <td height=""25"" align=""center""><div class=""opt""><a href=""op.aspx?id=" ) '149
        Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "id" ) .Value) ) '149
        Response.Write ( "&act=del"">删除</a></div></td>" & Chr ( 13 ) ) '149
        Response.Write ( "                </tr>" & Chr ( 13 ) ) '150
        Response.Write ( "                <tr> " & Chr ( 13 ) ) '151
        Response.Write ( "                  <td height=""1"" colspan=""5"" background=""../blogimages/dotbg.gif""><spacer height=""1"" type=""block""></td>" & Chr ( 13 ) ) '152
        Response.Write ( "                </tr>" & Chr ( 13 ) ) '153
        rs.MoveNext ( ) '155
    Loop '156
    rs.Close ( ) '157
    Response.Write ( vbCrLf )
    Response.Write ( "              </table>" & Chr ( 13 ) ) '159
    Response.Write ( "              <br>" & Chr ( 13 ) ) '160
    Response.Write ( "            </div>" & Chr ( 13 ) ) '161
    Response.Write ( "</td>" & Chr ( 13 ) ) '162
    Response.Write ( "</tr></table>" & Chr ( 13 ) ) '163
    Response.Write ( "</div>" & Chr ( 13 ) ) '164
    Response.Write ( "</div>" & Chr ( 13 ) ) '165
    Response.Write ( "<br><center>" & Chr ( 13 ) ) '166
    Response.Write ( "    " ) '167
    ASPX_TAIL.AspToAspX_Page_Init ( )
    Response.Write ( "  </center>" & Chr ( 13 ) ) '168
    Response.Write ( "</center>" & Chr ( 13 ) ) '169
    Response.Write ( "</body>" & Chr ( 13 ) ) '170
    Response.Write ( "</html>" & Chr ( 13 ) ) '171
    closedb ( ) '172
    Response.Write ( vbCrLf )

        AspToAspX_UnloadIncludeFiles()
        Exit Sub
    _AspToAspX_Err:
        AspToAspX_WriteLog ("blog_group_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