pagesign.aspx.vb

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

    Response.Write ( "          <tr> " & Chr ( 13 ) ) '97
    Response.Write ( "            <td width=""25%"" height=""30"" align=""right"" valign=""middle"" bgcolor=""#F4F4F4"">论坛域名：</td>" & Chr ( 13 ) ) '98
    Response.Write ( "                " & Chr ( 13 ) ) '99
    Response.Write ( "            <td width=""75%"" bgcolor=""#FFFFFF"">" & Chr ( 13 ) ) '100
    Response.Write ( "<input name=""bbs_domain"" type=""text"" id=""bbs_domain"" value=""" ) '101
    Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "bbs_domain" ) .Value) ) '101
    Response.Write ( """ size=""50"">" & Chr ( 13 ) ) '101
    Response.Write ( "                </td>" & Chr ( 13 ) ) '102
    Response.Write ( "              </tr>" & Chr ( 13 ) ) '103
    Response.Write ( "              " & Chr ( 13 ) ) '104
    Response.Write ( "          <tr> " & Chr ( 13 ) ) '105
    Response.Write ( "            <td width=""25%"" height=""30"" align=""right"" valign=""middle"" bgcolor=""#F4F4F4"">论坛名称：</td>" & Chr ( 13 ) ) '106
    Response.Write ( "                " & Chr ( 13 ) ) '107
    Response.Write ( "            <td width=""75%"" bgcolor=""#FFFFFF"">" & Chr ( 13 ) ) '108
    Response.Write ( "<input name=""bbs_name"" type=""text"" id=""bbs_name"" value=""" ) '109
    Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "bbs_name" ) .Value) ) '109
    Response.Write ( """ size=""50"">" & Chr ( 13 ) ) '109
    Response.Write ( "                </td>" & Chr ( 13 ) ) '110
    Response.Write ( "              </tr>" & Chr ( 13 ) ) '111
    Response.Write ( "              " & Chr ( 13 ) ) '112
    Response.Write ( "          <tr> " & Chr ( 13 ) ) '113
    Response.Write ( "            <td width=""25%"" height=""30"" align=""right"" valign=""middle"" bgcolor=""#F4F4F4"">论坛版本号：</td>" & Chr ( 13 ) ) '114
    Response.Write ( "                " & Chr ( 13 ) ) '115
    Response.Write ( "            <td width=""75%"" bgcolor=""#FFFFFF"">" & Chr ( 13 ) ) '116
    Response.Write ( "<input name=""ft_ver"" type=""text"" id=""ft_ver"" value=""" ) '117
    Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "ft_ver" ) .Value) ) '117
    Response.Write ( """ size=""50"">" & Chr ( 13 ) ) '117
    Response.Write ( "                </td>" & Chr ( 13 ) ) '118
    Response.Write ( "              </tr>" & Chr ( 13 ) ) '119
    Response.Write ( "              " & Chr ( 13 ) ) '120
    Response.Write ( "          <tr> " & Chr ( 13 ) ) '121
    Response.Write ( "            <td width=""25%"" height=""30"" align=""right"" valign=""middle"" bgcolor=""#F4F4F4"">后台管理入口文件名：</td>" & Chr ( 13 ) ) '122
    Response.Write ( "                " & Chr ( 13 ) ) '123
    Response.Write ( "            <td width=""75%"" bgcolor=""#FFFFFF"">" & Chr ( 13 ) ) '124
    Response.Write ( "<input name=""adminfile"" type=""text"" id=""adminfile"" value=""" ) '125
    Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "adminfile" ) .Value) ) '125
    Response.Write ( """ size=""20"">" & Chr ( 13 ) ) '125
    Response.Write ( "              默认为admin.aspx更改此设置后请通过FTP修改admin.aspx文件名</td>" & Chr ( 13 ) ) '126
    Response.Write ( "              </tr>" & Chr ( 13 ) ) '127
    Response.Write ( "              " & Chr ( 13 ) ) '128
    Response.Write ( "          <tr> " & Chr ( 13 ) ) '129
    Response.Write ( "            <td width=""25%"" height=""30"" align=""right"" valign=""middle"" bgcolor=""#F4F4F4"">默认风格设置：</td>" & Chr ( 13 ) ) '130
    Response.Write ( "                " & Chr ( 13 ) ) '131
    Response.Write ( "            <td width=""75%"" bgcolor=""#FFFFFF""> " & Chr ( 13 ) ) '132
    Response.Write ( "              <select name=""defaultcss""  style=""background-color:#ffffff;FONT-FAMILY: Arial; FONT-SIZE: 9pt; FONT-STYLE: normal; WIDTH: 85px"" size=1>" & Chr ( 13 ) ) '133
    Response.Write ( "                     <option value=""1"" style=""color:#799AE1"" " ) '134
    If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "defaultcss" ) .Value) ) = 1 Then '134
        Response.Write ( " selected " ) '134
    End If '134
    Response.Write ( ">■标准风格</option>" & Chr ( 13 ) ) '134
    Response.Write ( "                     <option value=""0"" style=""color:#66ABD9"" " ) '135
    If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "defaultcss" ) .Value) ) = 0 Then '135
        Response.Write ( " selected " ) '135
    End If '135
    Response.Write ( ">■浅蓝风格</option>" & Chr ( 13 ) ) '135
    Response.Write ( "                     <option value=""2"" style=""color:#FA71C0"" " ) '136
    If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "defaultcss" ) .Value) ) = 2 Then '136
        Response.Write ( " selected " ) '136
    End If '136
    Response.Write ( ">■女性风格</option>" & Chr ( 13 ) ) '136
    Response.Write ( "                     <option value=""3"" style=""color:#D56BDE"" " ) '137
    If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "defaultcss" ) .Value) ) = 3 Then '137
        Response.Write ( " selected " ) '137
    End If '137
    Response.Write ( ">■紫色风格</option>" & Chr ( 13 ) ) '137
    Response.Write ( "                     <option value=""4"" style=""color:#EC8205"" " ) '138
    If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "defaultcss" ) .Value) ) = 4 Then '138
        Response.Write ( " selected " ) '138
    End If '138
    Response.Write ( ">■黄色风格</option>" & Chr ( 13 ) ) '138
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & " <option value=""5"" style=""color:#529E20"" " ) '139
    If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "defaultcss" ) .Value) ) = 5 Then '139
        Response.Write ( " selected " ) '139
    End If '139
    Response.Write ( ">■绿色风格</option>" & Chr ( 13 ) ) '139
    Response.Write ( "                   </select>" & Chr ( 13 ) ) '140
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</td>" & Chr ( 13 ) ) '141
    Response.Write ( "              </tr>" & Chr ( 13 ) ) '142
    Response.Write ( "              " & Chr ( 13 ) ) '143
    Response.Write ( "          <tr> " & Chr ( 13 ) ) '144
    Response.Write ( "            <td width=""25%"" height=""30"" align=""right"" valign=""middle"" bgcolor=""#F4F4F4"">验证码开关：</td>" & Chr ( 13 ) ) '145
    Response.Write ( "                " & Chr ( 13 ) ) '146
    Response.Write ( "            <td width=""75%"" bgcolor=""#FFFFFF""> " & Chr ( 13 ) ) '147
    Response.Write ( "              <input name=""getcodeoff"" type=""radio"" value=""1"" " ) '148
    If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "getcodeoff" ) .Value) ) = "1" Then '148
        Response.Write ( " checked " ) '148
    End If '148
    Response.Write ( ">" & Chr ( 13 ) ) '148
    Response.Write ( "                  <font color=""#000000"">开</font><font color=""#FF0000""> " & Chr ( 13 ) ) '149
    Response.Write ( "                  <input type=""radio"" name=""getcodeoff"" value=""0"" " ) '150
    If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "getcodeoff" ) .Value) ) = "0" Then '150
        Response.Write ( " checked " ) '150
    End If '150
    Response.Write ( ">" & Chr ( 13 ) ) '150
    Response.Write ( "                  <font color=""#000000"">关</font> (开启后将会在发贴注册登录时出现)</font> </td>" & Chr ( 13 ) ) '151
    Response.Write ( "              </tr>" & Chr ( 13 ) ) '152
    Response.Write ( "              " & Chr ( 13 ) ) '153
    Response.Write ( "          <tr> " & Chr ( 13 ) ) '154
    Response.Write ( "            <td width=""25%"" height=""30"" align=""right"" valign=""middle"" bgcolor=""#F4F4F4"">允许上传的文件类型：</td>" & Chr ( 13 ) ) '155
    Response.Write ( "                " & Chr ( 13 ) ) '156
    Response.Write ( "            <td width=""75%"" bgcolor=""#FFFFFF"">" & Chr ( 13 ) ) '157
    Response.Write ( "<input name=""upload_type"" type=""text"" id=""upload_type"" value=""" ) '158
    Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "upload_type" ) .Value) ) '158
    Response.Write ( """ size=""50"">" & Chr ( 13 ) ) '158
    Response.Write ( "                  用&quot;|&quot;分开 </td>" & Chr ( 13 ) ) '159
    Response.Write ( "              </tr>" & Chr ( 13 ) ) '160
    Response.Write ( "              " & Chr ( 13 ) ) '161
    Response.Write ( "          <tr> " & Chr ( 13 ) ) '162
    Response.Write ( "            <td width=""25%"" height=""30"" align=""right"" valign=""middle"" bgcolor=""#F4F4F4"">允许上传的文件大小：</td>" & Chr ( 13 ) ) '163
    Response.Write ( "                " & Chr ( 13 ) ) '164
    Response.Write ( "            <td width=""75%"" bgcolor=""#FFFFFF"">" & Chr ( 13 ) ) '165
    Response.Write ( "<input name=""upload_size"" type=""text"" id=""upload_size"" value=""" ) '166
    Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "upload_size" ) .Value) ) '166
    Response.Write ( """ size=""50"">" & Chr ( 13 ) ) '166
    Response.Write ( "                </td>" & Chr ( 13 ) ) '167
    Response.Write ( "              </tr>" & Chr ( 13 ) ) '168
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "  " & Chr ( 13 ) ) '169
    Response.Write ( "          <tr> " & Chr ( 13 ) ) '170
    Response.Write ( "            <td width=""25%"" height=""30"" align=""right"" valign=""middle"" bgcolor=""#F4F4F4"">主题贴列表分页设置：</td>" & Chr ( 13 ) ) '171
    Response.Write ( "                " & Chr ( 13 ) ) '172
    Response.Write ( "            <td width=""75%"" bgcolor=""#FFFFFF"">" & Chr ( 13 ) ) '173
    Response.Write ( "<input name=""page1"" type=""text"" id=""page1"" value=""" ) '174
    Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "postpgnum" ) .Value) ) '174
    Response.Write ( """ size=""8"">" & Chr ( 13 ) ) '174
    Response.Write ( "                  条记录/页(<font color=""#FF0000"">*注意只能输入数字</font>),该项请不要多次设置</td>" & Chr ( 13 ) ) '175
    Response.Write ( "              </tr>" & Chr ( 13 ) ) '176
    Response.Write ( "              " & Chr ( 13 ) ) '177
    Response.Write ( "          <tr> " & Chr ( 13 ) ) '178
    Response.Write ( "            <td width=""25%"" height=""30"" align=""right"" valign=""middle"" bgcolor=""#F5F5F5"">回复贴子分页设置：</td>" & Chr ( 13 ) ) '179
    Response.Write ( "                " & Chr ( 13 ) ) '180
    Response.Write ( "            <td width=""75%"" bgcolor=""#FFFFFF"">" & Chr ( 13 ) ) '181
    Response.Write ( "<input name=""page2"" type=""text"" id=""page2"" value=""" ) '182
    Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "repostpgnum" ) .Value) ) '182
    Response.Write ( """ size=""8"">" & Chr ( 13 ) ) '182
    Response.Write ( "                  条记录/页(<font color=""#FF0000"">*注意只能输入数字</font>),该项请不要多次设置</td>" & Chr ( 13 ) ) '183
    Response.Write ( "              </tr>" & Chr ( 13 ) ) '184
    Response.Write ( "              " & Chr ( 13 ) ) '185
    Response.Write ( "          <tr> " & Chr ( 13 ) ) '186
    Response.Write ( "            <td width=""25%"" height=""30"" align=""right"" valign=""middle"" bgcolor=""#F5F5F5"">文件夹生成方式：</td>" & Chr ( 13 ) ) '187
    Response.Write ( "                " & Chr ( 13 ) ) '188
    Response.Write ( "            <td width=""75%"" bgcolor=""#FFFFFF"">" & Chr ( 13 ) ) '189
    Response.Write ( "<input name=""ftbbs3"" type=""radio"" value=""M"" " ) '190
    If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "folder" ) .Value) ) = "M" Then '190
        Response.Write ( " checked " ) '190
    End If '190
    Response.Write ( ">" & Chr ( 13 ) ) '190
    Response.Write ( "                  <font color=""#000000"">每月生成一个文件夹</font><font color=""#FF0000""> " & Chr ( 13 ) ) '191
    Response.Write ( "                  <input type=""radio"" name=""ftbbs3"" value=""D"" " ) '192
    If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "folder" ) .Value) ) = "D" Then '192
        Response.Write ( " checked " ) '192
    End If '192
    Response.Write ( ">" & Chr ( 13 ) ) '192
    Response.Write ( "                  <font color=""#000000"">每日生成一个文件夹</font> </font> </td>" & Chr ( 13 ) ) '193
    Response.Write ( "              </tr>" & Chr ( 13 ) ) '194
    Response.Write ( "             " & Chr ( 13 ) ) '195
    Response.Write ( "          <tr> " & Chr ( 13 ) ) '196
    Response.Write ( "            <td width=""25%"" height=""30"" align=""right"" valign=""middle"" bgcolor=""#F4F4F4"">生成静态文件扩展名：</td>" & Chr ( 13 ) ) '197
    Response.Write ( "                " & Chr ( 13 ) ) '198
    Response.Write ( "            <td width=""75%"" bgcolor=""#FFFFFF""> " & Chr ( 13 ) ) '199
    Response.Write ( "              <select name=""htm_ext""  style=""background-color:#ffffff;FONT-FAMILY: Arial; FONT-SIZE: 9pt; FONT-STYLE: normal; WIDTH: 85px"" size=1>" & Chr ( 13 ) ) '200
    Response.Write ( "                     <option value="".htm"" style=""color:#66ABD9"" " ) '201
    If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "htm_ext" ) .Value) ) = ".htm" Then '201
        Response.Write ( " selected " ) '201
    End If '201
    Response.Write ( ">.htm</option>" & Chr ( 13 ) ) '201
    Response.Write ( "                     <option value="".html"" style=""color:#FA71C0"" " ) '202
    If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "htm_ext" ) .Value) ) = ".html" Then '202
        Response.Write ( " selected " ) '202
    End If '202
    Response.Write ( ">.html</option>" & Chr ( 13 ) ) '202
    Response.Write ( "                     <option value="".shtml"" style=""color:#EC8205"" " ) '203
    If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "htm_ext" ) .Value) ) = ".shtml" Then '203
        Response.Write ( " selected " ) '203
    End If '203
    Response.Write ( ">.shtml</option>" & Chr ( 13 ) ) '203