📄 manage_blogtype.aspx.vb
字号:
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "blogtype" ) .Value) ) '136
Response.Write ( """>公开</a> " & Chr ( 13 ) ) '136
Response.Write ( " " ) '137
ElseIf AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "sign" ) .Value) ) = 1 Then '137
Response.Write ( vbCrLf )
Response.Write ( " <a href=""op.aspx?id=" ) '138
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "id" ) .Value) ) '138
Response.Write ( "&sign=0&act=qs&photo_name=" ) '138
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "blogtype" ) .Value) ) '138
Response.Write ( """><font color=red>隐藏</font></a> " & Chr ( 13 ) ) '138
Response.Write ( " " ) '139
ElseIf AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "sign" ) .Value) ) = 2 Then '139
Response.Write ( vbCrLf )
Response.Write ( " <a href=""op.aspx?id=" ) '140
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "id" ) .Value) ) '140
Response.Write ( "&sign=0&act=qs&photo_name=" ) '140
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "blogtype" ) .Value) ) '140
Response.Write ( """>加密</a> " & Chr ( 13 ) ) '140
Response.Write ( " " ) '141
End If '141
Response.Write ( vbCrLf )
Response.Write ( " </div></td>" & Chr ( 13 ) ) '142
Response.Write ( " <!--<td height=""25"" bgcolor=""#FFFFFF""><div align=""center""><a href=""op.aspx?id=" ) '143
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "id" ) .Value) ) '143
Response.Write ( "&act=odby"">排序</a></div></td>-->" & Chr ( 13 ) ) '143
Response.Write ( " <td height=""25"" bgcolor=""#FFFFFF""><div align=""center""><a href=""op.aspx?id=" ) '144
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "id" ) .Value) ) '144
Response.Write ( "&act=del"">删除</a></div></td>" & Chr ( 13 ) ) '144
Response.Write ( " </tr>" & Chr ( 13 ) ) '145
Response.Write ( " <tr> " & Chr ( 13 ) ) '146
Response.Write ( " <td height=""1"" colspan=""5"" background=""../blogimages/dotbg.gif""><spacer height=""1"" type=""block""></td>" & Chr ( 13 ) ) '147
Response.Write ( " </tr>" & Chr ( 13 ) ) '148
Response.Write ( " " ) '149
rs.MoveNext ( ) '150
Next '151
rs.Close ( ) '152
rs = Nothing '153
Response.Write ( vbCrLf )
Response.Write ( " <tr bgcolor=""#F8F8F8""> " & Chr ( 13 ) ) '155
Response.Write ( " <td height=""28"" colspan=""5""> <input name=""button"" type=""button"" onclick=""selectAll()"" value=""全选""> " & Chr ( 13 ) ) '156
Response.Write ( " <input name=""button"" type=""button"" onclick=""selectRev()"" value=""反选""> " & Chr ( 13 ) ) '157
Response.Write ( " <input name=""button"" type=""button"" onclick=""selectAll();selectRev()"" value=""全不选""> " & Chr ( 13 ) ) '158
Response.Write ( " <input name=""button"" type=""button"" onclick=""select_pl_submit('选择删除')"" value=""将所选删除"" " ) '159
If AspToAspX_CheckDBNull ( InStr ( Session ( "admin_qs" ) , 3 ) ) < = 0 Then '159
Response.Write ( "disabled" ) '159
End If '159
Response.Write ( "> " & Chr ( 13 ) ) '159
Response.Write ( " <input name=""button"" type=""button"" onclick=""select_pl_submit('选择公开')"" value=""将所选公开"" " ) '160
If AspToAspX_CheckDBNull ( InStr ( Session ( "admin_qs" ) , 3 ) ) < = 0 Then '160
Response.Write ( "disabled" ) '160
End If '160
Response.Write ( ">" & Chr ( 13 ) ) '160
Response.Write ( "" & Chr ( 9 ) & " <input name=""button"" type=""button"" onclick=""select_pl_submit('选择隐藏')"" value=""将所选隐藏"" " ) '161
If AspToAspX_CheckDBNull ( InStr ( Session ( "admin_qs" ) , 3 ) ) < = 0 Then '161
Response.Write ( "disabled" ) '161
End If '161
Response.Write ( ">" & Chr ( 13 ) ) '161
Response.Write ( "" & Chr ( 9 ) & " </td>" & Chr ( 13 ) ) '162
Response.Write ( " </tr>" & Chr ( 13 ) ) '163
Response.Write ( " <tr> " & Chr ( 13 ) ) '164
Response.Write ( " <td height=""1"" colspan=""5"" background=""../blogimages/dotbg.gif""><spacer height=""1"" type=""block""></td>" & Chr ( 13 ) ) '165
Response.Write ( " </tr>" & Chr ( 13 ) ) '166
Response.Write ( " </form>" & Chr ( 13 ) ) '167
Response.Write ( " <tr class=""f12""> " & Chr ( 13 ) ) '168
Response.Write ( " <td height=""30"" colspan=""5"" align=""left"">" ) '169
Response.Write ( pageclass ( wzpagecount , wzcount , wzrep , pagestr , root ) ) '169
Response.Write ( "</td>" & Chr ( 13 ) ) '169
Response.Write ( " </tr>" & Chr ( 13 ) ) '170
Else '171
Response.Write ( vbCrLf )
Response.Write ( " <tr class=""f12""> " & Chr ( 13 ) ) '172
Response.Write ( " <td height=""30"" colspan=""5"" align=""left"">记录为空</td>" & Chr ( 13 ) ) '173
Response.Write ( " </tr>" & Chr ( 13 ) ) '174
End If '175
Response.Write ( vbCrLf )
Response.Write ( "</table>" & Chr ( 13 ) ) '176
Response.Write ( "</body>" & Chr ( 13 ) ) '177
Response.Write ( "</html>" & Chr ( 13 ) ) '178
AspToAspX_UnloadIncludeFiles()
Exit Sub
_AspToAspX_Err:
AspToAspX_WriteLog ("manage_blogtype_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
Public Function FTBBS_HTML_MB(ByRef ft )
Return ASPX_CONN.FTBBS_HTML_MB( ft )
End Function
Public Function FTBBS_BZ_NAME(ByRef BoardID_1,ByRef ft )
Return ASPX_CONN.FTBBS_BZ_NAME( BoardID_1,ft )
End Function
Public Function FTBBS_BZ_NAME2(ByRef BoardID_1,ByRef BoardID_2,ByRef ft )
Return ASPX_CONN.FTBBS_BZ_NAME2( BoardID_1,BoardID_2,ft )
End Function
Public Function makefilename(ByRef fname )
Return ASPX_CONN.makefilename( fname )
End Function
Public Function GetExtendName(ByRef FileName )
Return ASPX_CONN.GetExtendName( FileName )
End Function
Public Function IsObjInstalled(ByRef strClassString )
Return ASPX_CONN.IsObjInstalled( strClassString )
End Function
Public Function ChkMapPath( ByVal strPath )
Return ASPX_CONN.ChkMapPath( strPath )
End Function
Public Function userlogin(ByRef ft )
Return ASPX_CONN.userlogin( ft )
End Function
Public Function headhtml
Return ASPX_CONN.headhtml
End Function
Public Function GetOpInfo(ByRef AspToAspX_Str,ByRef Flag )
Return ASPX_CONN.GetOpInfo( AspToAspX_Str,Flag )
End Function
Public Function getcode
Return ASPX_CONN.getcode
End Function
Public Function codepass
Return ASPX_CONN.codepass
End Function
Public Function Ftbbs_Time
Return ASPX_CONN.Ftbbs_Time
End Function
Public Function ft_home(ByRef defaulthome )
Return ASPX_CONN.ft_home( defaulthome )
End Function
Public Function chkpost
Return ASPX_CONN.chkpost
End Function
Public Function CodeCookie(ByRef AspToAspX_Str )
Return ASPX_CONN.CodeCookie( AspToAspX_Str )
End Function
Public Function DecodeCookie(ByRef AspToAspX_Str )
Return ASPX_CONN.DecodeCookie( AspToAspX_Str )
End Function
Public Function setcookie(ByRef cookexpires,ByRef cookdomain,ByRef cookneme,ByRef cookvalue )
Return ASPX_CONN.setcookie( cookexpires,cookdomain,cookneme,cookvalue )
End Function
Public Function getcookie(ByRef ckname )
Return ASPX_CONN.getcookie( ckname )
End Function
Public Function clearcookie(ByRef cookdomain,ByRef cookneme )
Return ASPX_CONN.clearcookie( cookdomain,cookneme )
End Function
Public Function LoadFile( ByVal File )
Return ASPX_CONN.ASPX_ADOSTREAM.LoadFile( File )
End Function
Public Function adminlogin(ByRef ft )
Return ASPX_ADMIN_CHECK_MASTER.adminlogin( ft )
End Function
Public Function pageclass(ByRef totalpage,ByRef wzcount,ByRef wzrep,ByRef pagestr,ByRef root )
Return ASPX_PAGEFUN.pageclass( totalpage,wzcount,wzrep,pagestr,root )
End Function
#End Region
End Class
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -