pagesign.aspx.vb

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

    Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "pollvalue" ) .Value) ) '429
    Response.Write ( """ size=""5"">" & Chr ( 13 ) ) '429
    Response.Write ( "            </td>" & Chr ( 13 ) ) '430
    Response.Write ( "              </tr>" & Chr ( 13 ) ) '431
    Response.Write ( "          <tr> " & Chr ( 13 ) ) '432
    Response.Write ( "            <td width=""25%"" height=""30"" align=""right"" valign=""middle"" bgcolor=""#F5F5F5"">贴子操作积分权限规则：</td>" & Chr ( 13 ) ) '433
    Response.Write ( "            <td width=""75%"" height=""70"" bgcolor=""#FFFFFF"">积分大于 " & Chr ( 13 ) ) '434
    Response.Write ( "              <input name=""topvalue"" type=""text"" id=""topvalue"" value=""" ) '435
    Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "topvalue" ) .Value) ) '435
    Response.Write ( """ size=""5"">" & Chr ( 13 ) ) '435
    Response.Write ( "              可以对自已的贴置顶<br>" & Chr ( 13 ) ) '436
    Response.Write ( "              积分大于 " & Chr ( 13 ) ) '437
    Response.Write ( "              <input name=""tjvalue"" type=""text"" id=""tjvalue"" value=""" ) '438
    Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "tjvalue" ) .Value) ) '438
    Response.Write ( """ size=""5"">" & Chr ( 13 ) ) '438
    Response.Write ( "              可以对自已的贴进行推荐操作<br>" & Chr ( 13 ) ) '439
    Response.Write ( "              积分大于 " & Chr ( 13 ) ) '440
    Response.Write ( "              <input name=""jhvalue"" type=""text"" id=""jhvalue"" value=""" ) '441
    Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "jhvalue" ) .Value) ) '441
    Response.Write ( """ size=""5"">" & Chr ( 13 ) ) '441
    Response.Write ( "              可以对自已的贴设置为精华贴操作</td>" & Chr ( 13 ) ) '442
    Response.Write ( "              </tr>" & Chr ( 13 ) ) '443
    Response.Write ( "            <tr> " & Chr ( 13 ) ) '444
    Response.Write ( "            <td width=""25%"" height=""30"" align=""right"" valign=""middle"" bgcolor=""#F5F5F5"">附件操作积分权限规则：</td>" & Chr ( 13 ) ) '445
    Response.Write ( "            <td width=""75%"" height=""50"">上传附件积分要大于 " & Chr ( 13 ) ) '446
    Response.Write ( "              <input name=""uploadvalue"" type=""text"" id=""uploadvalue"" value=""" ) '447
    Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "uploadvalue" ) .Value) ) '447
    Response.Write ( """ size=""5"">" & Chr ( 13 ) ) '447
    Response.Write ( "              <br>" & Chr ( 13 ) ) '448
    Response.Write ( "              下载附件积分要大于 " & Chr ( 13 ) ) '449
    Response.Write ( "              <input name=""downvalue"" type=""text"" id=""downvalue"" value=""" ) '450
    Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "downvalue" ) .Value) ) '450
    Response.Write ( """ size=""5"">" & Chr ( 13 ) ) '450
    Response.Write ( "            </td>" & Chr ( 13 ) ) '451
    Response.Write ( "              </tr>" & Chr ( 13 ) ) '452
    Response.Write ( "          <tr> " & Chr ( 13 ) ) '453
    Response.Write ( "            <td width=""25%"" height=""30"" align=""right"" valign=""middle"" bgcolor=""#F5F5F5"">是否开启友情链接：</td>" & Chr ( 13 ) ) '454
    Response.Write ( "                " & Chr ( 13 ) ) '455
    Response.Write ( "            <td width=""75%"" bgcolor=""#FFFFFF"">" & Chr ( 13 ) ) '456
    Response.Write ( "                 <input name=""linkoff"" type=""radio"" value=""0"" " ) '457
    If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "linkoff" ) .Value) ) = 0 Then '457
        Response.Write ( " checked " ) '457
    End If '457
    Response.Write ( ">" & Chr ( 13 ) ) '457
    Response.Write ( "                  <font color=""#000000"">是</font> <font color=""#FF0000""> " & Chr ( 13 ) ) '458
    Response.Write ( "                  <input type=""radio"" name=""linkoff"" value=""1"" " ) '459
    If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "linkoff" ) .Value) ) = 1 Then '459
        Response.Write ( " checked " ) '459
    End If '459
    Response.Write ( ">" & Chr ( 13 ) ) '459
    Response.Write ( "                  <font color=""#000000"">否</font></font></td>" & Chr ( 13 ) ) '460
    Response.Write ( "              </tr>" & Chr ( 13 ) ) '461
    Response.Write ( "          <tr> " & Chr ( 13 ) ) '462
    Response.Write ( "            <td width=""25%"" height=""30"" align=""right"" valign=""middle"" bgcolor=""#F5F5F5""><font color=""#FF0000"">财付通支付设置</font>：</td>" & Chr ( 13 ) ) '463
    Response.Write ( "            <td width=""75%"" bgcolor=""#FFFFFF"">商户号: " & Chr ( 13 ) ) '464
    Response.Write ( "              <input name=""spid"" type=""text"" id=""spid"" value=""" ) '465
    Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "spid" ) .Value) ) '465
    Response.Write ( """ size=""12"">" & Chr ( 13 ) ) '465
    Response.Write ( "              密钥: <input name=""spkey"" type=""text"" id=""spkey"" value=""" ) '466
    Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "spkey" ) .Value) ) '466
    Response.Write ( """ size=""40""></td>" & Chr ( 13 ) ) '466
    Response.Write ( "              </tr>" & Chr ( 13 ) ) '467
    Response.Write ( "          <tr> " & Chr ( 13 ) ) '468
    Response.Write ( "            <td width=""25%"" height=""30"" align=""right"" valign=""middle"" bgcolor=""#F5F5F5""><font color=""#FF0000"">财付通支付成功返回地址</font>：</td>" & Chr ( 13 ) ) '469
    Response.Write ( "                " & Chr ( 13 ) ) '470
    Response.Write ( "            <td width=""75%"" bgcolor=""#FFFFFF""> " & Chr ( 13 ) ) '471
    Response.Write ( "              <input name=""returnurl"" type=""text"" id=""returnurl"" value=""" ) '472
    Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "returnurl" ) .Value) ) '472
    Response.Write ( """ size=""40"">" & Chr ( 13 ) ) '472
    Response.Write ( "              (格式如：http://www.<font color=""#FF0000"">xxx</font>.com/<font color=""#FF0000"">成功返回页面</font>) " & Chr ( 13 ) ) '473
    Response.Write ( "            </td>" & Chr ( 13 ) ) '474
    Response.Write ( "          </tr>" & Chr ( 13 ) ) '475
    Response.Write ( "          <tr> " & Chr ( 13 ) ) '476
    Response.Write ( "            <td width=""25%"" height=""30"" align=""right"" valign=""middle"" bgcolor=""#F5F5F5"">导航栏目设置：</td>  " & Chr ( 13 ) ) '477
    Response.Write ( "            <td width=""75%"" bgcolor=""#FFFFFF"">" & Chr ( 13 ) ) '478
    Response.Write ( "            <textarea name=""sitenav"" cols=""60"" rows=""8"" id=""sitenav"">" ) '479
    Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "sitenav" ) .Value) ) '479
    Response.Write ( "</textarea></td>" & Chr ( 13 ) ) '479
    Response.Write ( "          </tr>" & Chr ( 13 ) ) '480
    Response.Write ( "          <tr> " & Chr ( 13 ) ) '481
    Response.Write ( "            <td width=""25%"" height=""30"" align=""right"" valign=""middle"" bgcolor=""#F5F5F5"">&nbsp;</td>" & Chr ( 13 ) ) '482
    Response.Write ( "            <td width=""75%"" height=""40"" bgcolor=""#FFFFFF""> " & Chr ( 13 ) ) '483
    Response.Write ( "              <input type=""submit"" value="" 修 改 "" name=""cmdok"" class=""buttonface"" " ) '484
    If AspToAspX_CheckDBNull ( InStr ( Session ( "admin_qs" ) , 2 ) ) < = 0 Then '484
        Response.Write ( "disabled" ) '484
    End If '484
    Response.Write ( ">" & Chr ( 13 ) ) '484
    Response.Write ( "                  <input name=""act"" type=""hidden"" id=""act"" value=""y"">" & Chr ( 13 ) ) '485
    Response.Write ( "                </td>" & Chr ( 13 ) ) '486
    Response.Write ( "              </tr>" & Chr ( 13 ) ) '487
    Response.Write ( "            </table>" & Chr ( 13 ) ) '488
    Response.Write ( "      </td>" & Chr ( 13 ) ) '489
    Response.Write ( "    </tr>" & Chr ( 13 ) ) '490
    Response.Write ( "" & Chr ( 9 ) & "</form>" & Chr ( 13 ) ) '491
    Response.Write ( "  </table>" & Chr ( 13 ) ) '492
    Response.Write ( "</body>" & Chr ( 13 ) ) '493
    Response.Write ( "</html>" & Chr ( 13 ) ) '494
    closedb ( ) '495
    Response.Write ( vbCrLf )

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