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

📄 ftbbshome.aspx.vb

📁 本程序修改自飞天BBS 7.0 将原来的ASP语法迁移为ASP.NET并封装成DLL ASP.NET相对ASP有更快的执行效率以及更高的并发访问量 基于ASP.NET的DLL可以运行在支持ASP
💻 VB
📖 第 1 页 / 共 4 页
字号:
🔍
1234 
                For k = 0 To Val ( UBound ( qsarray1 ) ) '113
                    If AspToAspX_CheckDBNull ( k ) = UBound ( qsarray1 ) Then '114
                        qssqlstrx = "Boardid_1<>'" & qsarray1 ( k ) & "' and Boardid_2<>'" & qsarray1 ( k ) & "'" '115
                    Else '116
                        qssqlstrx = "Boardid_1<>'" & qsarray1 ( k ) & "' and Boardid_2<>'" & qsarray1 ( k ) & "' and " '117
                    End If '118
                    qssqlstr1 = qssqlstr1 & qssqlstrx '119
                Next '120
                qssqlstr1 = "" & qssqlstr1 '121
            Else '122
                qssqlstr1 = "Boardid_1<>'" & AspToAspX_CheckDBNull(qsrs.Fields ( "BBS_Cate_ID" ) .Value) & "' and Boardid_2<>'" & AspToAspX_CheckDBNull(qsrs.Fields ( "BBS_Cate_ID" ) .Value) & "'" '123
            End If '124
            strqs = qssqlstr1 & " and " '125
        End If '126
        qsrs.Close ( ) '127
        sql = "select top 5 * from " & ft & "bbstitle," & ft & "ftbbs_upload where " & ft & "bbstitle.htmfilename=" & ft & "ftbbs_upload.upload_htm and " & ft & "bbstitle.deleted=0 and " & ft & "ftbbs_upload.sign=3 and " & ft & "ftbbs_upload.bbs_blog_type=0 and (" & ft & "ftbbs_upload.upload_ext='jpg' or " & ft & "ftbbs_upload.upload_ext='gif') order by " & ft & "bbstitle.id desc" '128
        rs = New ADODB.Recordset ( ) '129
        rs.Open ( sql , conn , 3 , 1 ) '130
        Response.Write ( vbCrLf )
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<base target=""_blank"" />" & Chr ( 13 ) ) '132
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<!--主栏目1开始-->" & Chr ( 13 ) ) '133
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<div class=""width780"" id=""MainBody"">" & Chr ( 13 ) ) '134
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""MbLeft"">" & Chr ( 13 ) ) '135
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div id=""slideimg"">" & Chr ( 13 ) ) '136
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<script type=""text/javascript"" language=""javascript"">" & Chr ( 13 ) ) '137
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<!--" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "" & Chr ( 13 ) ) '138
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "var xsTextBar = 1; //是否显示文字链接，1为显示，0为不显示" & Chr ( 13 ) ) '139
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "var xsPlayBtn = 0; //是否显示播放按钮，1显示，0为不显示" & Chr ( 13 ) ) '140
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "var xsImgSize = new Array(214,235); //幻灯图片的尺寸，格式为" & Chr ( - 24144 ) & "宽度,高度" & Chr ( - 24143 ) & "" & Chr ( 13 ) ) '141
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "var xsImgs = new Array();" & Chr ( 13 ) ) '142
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "var xsImgLinks = new Array();" & Chr ( 13 ) ) '143
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "var xsImgTexts = new Array();" & Chr ( 13 ) ) '144
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "" ) '145
        i = 0 '146
        If Not rs.EOF Then '147
            Do While Not rs.EOF '148
            If AspToAspX_CheckDBNull ( i ) > 4 Then
Exit Do
End If
    '149
                Response.Write ( vbCrLf )
                Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "xsImgs[" ) '151
                Response.Write ( i ) '151
                Response.Write ( "] = """ ) '151
                Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "upload_pic" ) .Value) ) '151
                Response.Write ( """;" & Chr ( 13 ) ) '151
                Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "xsImgLinks[" ) '152
                Response.Write ( i ) '152
                Response.Write ( "] = """ ) '152
                Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "upload_htm" ) .Value) ) '152
                Response.Write ( """;" & Chr ( 13 ) ) '152
                Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "xsImgTexts[" ) '153
                Response.Write ( i ) '153
                Response.Write ( "] = """ ) '153
                Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "title" ) .Value) ) '153
                Response.Write ( """;" & Chr ( 13 ) ) '153
                Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "" ) '154
                i = i + 1 '155
                rs.MoveNext ( ) '156
            Loop '157
            rs.Close ( ) '158
        End If '159
        Response.Write ( vbCrLf )
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "//-->" & Chr ( 13 ) ) '161
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</script>" & Chr ( 13 ) ) '162
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<script language=""javascript"" type=""text/javascript"" src=""js/slide.js""></script>" & Chr ( 13 ) ) '163
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '164
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div id=""TodayStar"" class=""TodayStar"">" & Chr ( 13 ) ) '165
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<h1><img alt="""" src=""blogimages/star.gif"" width=""32"" height=""23"" align=""middle"" />最新博客</h1>" & Chr ( 13 ) ) '166
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""TodayStarPicBlock"">" & Chr ( 13 ) ) '167
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "" ) '168
        sql = "select top 2 clubuser_id,clubuser_name,userimg from " & ft & "clubuser where payuser<>3 and bokeer=1 order by clubuser_id desc" '169
        rs = New ADODB.Recordset ( ) '170
        rs.Open ( sql , conn , 3 , 1 ) '171
        i = 0 '172
        Do While Not rs.EOF '173
        If AspToAspX_CheckDBNull ( i ) > = 2 Then
Exit Do
End If
    '174
            Response.Write ( vbCrLf )
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""TodayStarPic"">" & Chr ( 13 ) ) '176
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<a href=""home.aspx?userid=" ) '177
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_id" ) .Value) ) '177
            Response.Write ( """><img alt=""" ) '177
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_name" ) .Value) ) '177
            Response.Write ( """ src=""userheadimg/" ) '177
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "userimg" ) .Value) ) '177
            Response.Write ( """ width=""89"" height=""75"" border=""0"" /></a><div><a href=""home.aspx?userid=" ) '177
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_id" ) .Value) ) '177
            Response.Write ( """>" ) '177
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_name" ) .Value) ) '177
            Response.Write ( "</a></div>" & Chr ( 13 ) ) '177
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '178
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "" ) '179
            i = i + 1 '180
            rs.MoveNext ( ) '181
        Loop '182
        rs.Close ( ) '183
        Response.Write ( vbCrLf )
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '185
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '186
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '187
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""MbCenter"">" & Chr ( 13 ) ) '188
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<!--站内搜索开始-->" & Chr ( 13 ) ) '189
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""SearchForm"">" & Chr ( 13 ) ) '190
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<form method=""post"" action=""search.aspx"" style=""display: inline;"" target=""_self"">" & Chr ( 13 ) ) '191
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "" & Chr ( 13 ) ) '192
        Response.Write ( "        <input name=""searchcontent"" type=""text"" size=""23"" />" & Chr ( 13 ) ) '193
        Response.Write ( "        <select name=""searchkind"" style=""background-color:#ffffff;FONT-FAMILY: Arial; FONT-SIZE: 9pt; FONT-STYLE: normal; WIDTH: 65px"">" & Chr ( 13 ) ) '194
        Response.Write ( "                  <option value=""title"" selected>按主题</option>" & Chr ( 13 ) ) '195
        Response.Write ( "                  <option value=""user_id"" >按作者</option>" & Chr ( 13 ) ) '196
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "  <option value=""menu"" >按内容</option>" & Chr ( 13 ) ) '197
        Response.Write ( "                </select>" & Chr ( 13 ) ) '198
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</span>" & Chr ( 13 ) ) '199
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</span>" & Chr ( 13 ) ) '200
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<button name=""loginsubmit"" type=""submit"" value=""true""><span class=""search"">Search</span></button>" & Chr ( 13 ) ) '201
        Response.Write ( "      <select name=""select3""  id=""select3"" style=""background-color:#ffffff;FONT-FAMILY: Arial; FONT-SIZE: 9pt; FONT-STYLE: normal; WIDTH: 83px"" size=1 onChange=""javascript:changeCssStyle();"">" & Chr ( 13 ) ) '202
        Response.Write ( "        <option  value=""1"" selected style=""color:#799AE1"">■标准风格</option>" & Chr ( 13 ) ) '203
        Response.Write ( "        <option value=""0"" style=""color:#66ABD9"">■浅蓝风格</option>" & Chr ( 13 ) ) '204
        Response.Write ( "        <option value=""2"" style=""color:#FA71C0"">■女性风格</option>" & Chr ( 13 ) ) '205
        Response.Write ( "        <option value=""3"" style=""color:#D56BDE"">■紫色风格</option>" & Chr ( 13 ) ) '206
        Response.Write ( "        <option value=""4"" style=""color:#EC8205"">■黄色风格</option>" & Chr ( 13 ) ) '207
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<option value=""5"" style=""color:#529E20"">■绿色风格</option>" & Chr ( 13 ) ) '208
        Response.Write ( "      </select>" & Chr ( 13 ) ) '209
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</form>" & Chr ( 13 ) ) '210
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '211
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<!--站内搜索结束-->" & Chr ( 13 ) ) '212
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<!--最新发表开始-->" & Chr ( 13 ) ) '213
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""TitleMore"">" & Chr ( 13 ) ) '214
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""left""><img src=""blogimages/green_arrow.gif"" align=""middle"" />" & Chr ( 13 ) ) '215
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & " <a class=""menu"" href=""main.aspx"" target=""_self"" title=""查看更多最新回贴"">最新回贴</a></div>" & Chr ( 13 ) ) '216
        Response.Write ( "                 <div class=""right""><a class=""menu"" href=""main.aspx?order_key=dateh"" target=""_self"" title=""查看更多最新主题"">最新主题</a></div>" & Chr ( 13 ) ) '217
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '218
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""NewlyPost"">" & Chr ( 13 ) ) '219
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<!--<h3><img alt="""" src=""blogimages/green_arrow.gif"" align=""middle"" />最新贴子</h3>-->" & Chr ( 13 ) ) '220
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""NewlyPostList"">" & Chr ( 13 ) ) '221
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<ul>" & Chr ( 13 ) ) '222
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "" ) '223
        sql = "select top 15 id,title,htmfilename,dateh,redate,titlecolor from " & ft & "bbstitle where " & strqs & " deleted=0 order by boardsign desc,redate desc" '224
        rs = New ADODB.Recordset ( ) '225
        rs.Open ( sql , conn , 3 , 1 ) '226
        m = 0 '227
        Do While Not rs.EOF '228
        If AspToAspX_CheckDBNull ( m ) > = 15 Then
Exit Do
End If
    '229
            title = AspToAspX_CheckDBNull(rs.Fields ( "title" ) .Value) '230
            titlecolor = AspToAspX_CheckDBNull(rs.Fields ( "titlecolor" ) .Value) '231
            If AspToAspX_CheckDBNull ( titlecolor ) < > EmptyString.Value Then '232
                title = "<font color=" & titlecolor & ">" & title & "</font>" '233
            End If '234
            Response.Write ( vbCrLf )
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<li class=""topth""><em>" ) '236
            Response.Write ( formatdate ( AspToAspX_CheckDBNull(rs.Fields ( "redate" ) .Value) ) ) '236
            Response.Write ( "</em>·<a title=""" ) '236
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "title" ) .Value) ) '236
            Response.Write ( """ href=""" ) '236
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "htmfilename" ) .Value) ) '236
            Response.Write ( """ target=""_blank"">" ) '236
            Response.Write ( title ) '236
            Response.Write ( "</a></li>" & Chr ( 13 ) ) '236
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "" ) '237
            m = m + 1 '238
            rs.MoveNext ( ) '239
        Loop '240
        rs.Close ( ) '241
        Response.Write ( vbCrLf )
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</ul>" & Chr ( 13 ) ) '243
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '244
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '245
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<!--最新发表结束-->" & Chr ( 13 ) ) '246
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '247
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""MbRight"">" & Chr ( 13 ) ) '248
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div id=""MemberLogin"" class=""MemberLogin"">" & Chr ( 13 ) ) '249
        If AspToAspX_CheckDBNull ( getcookie ( "name" ) ) = EmptyString.Value Then '251
            Response.Write ( vbCrLf )
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<form method=""post"" action=""userlogin.aspx?flag=Y"" target=""_top"" style=""display: inline;"">" & Chr ( 13 ) ) '253
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div style=""height: 22px;""></div>" & Chr ( 13 ) ) '254
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""MemberName"">" & Chr ( 13 ) ) '255
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<span>用户名</span>&nbsp;&nbsp;&nbsp;&nbsp;<input name=""bbsuser"" type=""text"" size=""8"" style=""width:90px"" />" & Chr ( 13 ) ) '256
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '257
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""MemberPassword"">" & Chr ( 13 ) ) '258
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<span>密　码</span>&nbsp;&nbsp;&nbsp;&nbsp;<input name=""password"" type=""password"" size=""8"" style=""width:90px"" />" & Chr ( 13 ) ) '259
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '260
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "" ) '261
            If AspToAspX_CheckDBNull ( getcodeoff ) = 1 And AspToAspX_CheckDBNull ( Session ( "errorlogin" ) ) > = 3 Then '261
            Response.Write ( vbCrLf )
                Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""ValidateCode"">" & Chr ( 13 ) ) '262
                Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<span>验证码</span>&nbsp;&nbsp;&nbsp;&nbsp;<input name=""codestr"" type=""text"" size=""3"" />&nbsp;" ) '263
                Response.Write ( getcode ) '263
                Response.Write ( vbCrLf )
                Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '264
                Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "" ) '265
            End If '265
            Response.Write ( vbCrLf )
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""MemberOptions"">" & Chr ( 13 ) ) '266
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<span>保　存</span>&nbsp;&nbsp;&nbsp;<span class=""outbdr2""><span>" & Chr ( 13 ) ) '267
            Response.Write ( "          <select name=""ckies"" id=""ckies"" style=""width:91px"">" & Chr ( 13 ) ) '268
            Response.Write ( "            <option value=""0"" selected=""selected"">不保存</option>" & Chr ( 13 ) ) '269
            Response.Write ( "            <option value=""1"">保存一天</option>" & Chr ( 13 ) ) '270
            Response.Write ( "            <option value=""30"">保存一月</option>" & Chr ( 13 ) ) '271
            Response.Write ( "            <option value=""365"">保存一年</option>" & Chr ( 13 ) ) '272
            Response.Write ( "          </select>" & Chr ( 13 ) ) '273
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "  <input type=""hidden"" name=""act"" value=""y"">" & Chr ( 13 ) ) '274
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "  <input type=""hidden"" name=""reurl"" value=""default.aspx"">" & Chr ( 13 ) ) '275
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "  </span></span>" & Chr ( 13 ) ) '276
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '277
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div style=""height: 6px;""></div>" & Chr ( 13 ) ) '278
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""LoginButton"">" & Chr ( 13 ) ) '279
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<button class=""LoginButton"" name=""loginsubmit"" type=""submit"" value=""true"" style=""width: 60px;"">登录</button>&nbsp;&nbsp;" & Chr ( 13 ) ) '280
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<button class=""LoginButton"" name=""loginsubmit"" type=""button"" value=""true"" onClick=""javascript:window.location.href='default.aspx?n=regist'"" style=""width: 60px;"">注册</button>" & Chr ( 13 ) ) '281
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '282
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</form>" & Chr ( 13 ) ) '283
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '284
        Else '286
            sql = "SELECT top 1 clubuser_id,clubuser_name,jingyuan,postnum,clubuser_reg_date,clubuser_enter_count,bokeer FROM " & ft & "clubuser where clubuser_name='" & getcookie ( "name" ) & "'" '287
            rsx = New ADODB.Recordset ( ) '288
            rsx.Open ( sql , conn , 1 , 1 ) '289
            userid = AspToAspX_CheckDBNull(rsx.Fields ( "clubuser_id" ) .Value) '290
1234

⌨️ 快捷键说明

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