7k书城小偷程序。。。。。。。。。。。。。。。。。。。。。

				
				
				
				
				
				
								Server.ScriptTimeout=999
				dim id
				id=request("id")
				if IsEmpty(id) then
				response.redirect "site_manage.asp"
				end if	
				set objgbrs=Server.CreateObject("ADODB.Recordset")
				sql="select * from message Where msgid=" & id 
				objgbrs.open sql,conn,1,1
				%>
				
				
				标题：
				内容：
				当前状态：
				
				正常显示
				隐藏显示
				
				[确定更改]
				
				
				
				
				
				
				--------
				[删除此公告]
				
				[返回上页]
				
				[管理中心]
				[]
				[安全退出]
				
				
				
				
				
								objgbrs.close
				set objgbrs=nothing
				conn.close
				set conn=nothing
				%>