¼òÒ×ASPÎļþ»º´æ¼¼Êõ
×¢Ò⣺ϵͳÐèÒªFSOȨÏÞ¡¢XMLHTTPȨÏÞ
ϵͳ°üÀ¨Á½¸öÎļþ£¬Æäʵ¿ÉÒԺϲ¢ÎªÒ»¸ö¡£Ö®ËùÒÔ·ÖΪÁ½¸öÊÇÒòΪ²¿·Öɱ¶¾Èí¼þ»áÒòΪÀï±ßº¬ÓÐFSO¡¢XMLHTTP²Ù×÷¶ø±»ÈÏΪÊǽű¾Ä¾Âí¡£
µ÷ÓÃʱ£¬ÐèÒªÔÚASPÒ³ÃæµÄ×îÉϱ߰üº¬Ö÷Îļþ£¬È»ºóÔÚϱßдÏÂÒÔÏ´úÂë
Set MyCatch=new CatchFile
MyCatch.Overdue=60*5 'Ð޸ĹýÆÚʱ¼äÉèÖÃΪ5¸öСʱ
if MyCatch.CatchNow(Rev) then
response.write MyCatch.CatchData
response.end
end if
set MyCatch=nothing
¸´ÖÆ´úÂë
ÎļþÒ»£ºFileCatch.asp µÄ´úÂë
<!--#include file="FileCatch-Inc.asp"-->
<%
'---- ±¾ÎļþÓÃÓÚÇ©ÈëÔʼÎļþ£¬ÊµÏÖ¶ÔÒ³ÃæµÄÎļþCatch
'---- 1¡¢Èç¹ûÎļþÇëÇóΪPOST·½Ê½£¬ÔòÈ¡Ïû´Ë¹¦ÄÜ
'---- 2¡¢ÎļþµÄÇëÇó²»Äܰüº¬ÏµÍ³µÄʶ±ð¹Ø¼ü×Ö
'---- 3¡¢×÷Õß ºÎֱȺ (www.wozhai.com)
Class CatchFile
Public Overdue,Mark,CFolder,CFile '¶¨Òåϵͳ²ÎÊý
Private ScriptName,ScriptPath,ServerHost '¶¨Òå·þÎñÆ÷/Ò³Ãæ²ÎÊý±äÁ¿
Public CatchData 'Êä³öµÄÊý¾Ý
Private Sub Class_Initialize '³õʼ»¯º¯Êý
'»ñµÃ·þÎñÆ÷¼°½Å±¾Êý¾Ý
ScriptName=Request.Servervariables("Script_Name") 'ʶ±ð³öµ±Ç°½Å±¾µÄÐéÄâµØÖ·
ScriptPath=GetScriptPath(false) 'ʶ±ð³ö½Å±¾µÄÍêÕûGETµØÖ·
ServerHost=Request.Servervariables("Server_Name") 'ʶ±ð³öµ±Ç°·þÎñÆ÷µÄµØÖ·
'³õʼ»¯ÏµÍ³²ÎÊý
Overdue=30 'ĬÈÏ30·ÖÖÓ¹ýÆÚ
Mark="NoCatch" 'ÎÞCatchÇëÇó²ÎÊýΪ NoCatch
CF
Ïà¹ØÎĵµ£º
aspÖвåÈëÓëÐÞ¸ÄÊý¾ÝµÄ¼¸ÖÖ·½Ê½¡£ÎªÁË·½±ã½â˵£¬ÎÒÃÇÏȽ¨Á¢Ò»¸öÃûΪtestµÄ±í£¬±íÄÚÖ»ÓÐÁ½¸öÊý¾Ý
Ïî:usernameºÍemail,·Ö±ðÓÃÀ´´æ´¢Óû§ÃûÓëÓÊÏ䵨ַ¡£
1.ÀûÓÃinsertÓï¾ä²åÈëÊý¾Ý£º
insertÊÇsqlÓï¾äµÄ»ù±¾Ö¸ÁîÖ®Ò»£¬ Ó÷¨ºÜ¼òµ¥£¬ÕâÀïÎÒÖ»½«Æä»ù±¾¸ñʽÁгö.
´úÂëÈçÏ£º
set conn=s ......
·Ï»°ÉÙ˵,¼û´úÂë
<%=request.ServerVariables("LOGON_USER")%>
Ê×ÏÈIISËùÔڵķþÎñÆ÷Òª¼ÓÈëÓò,Æä´ÎÊÇIIS·þÎñÆ÷µÄÉèÖÃ.¼ûͼ1
ͼ2
·þÎñÆ÷ÉèÖúúó, IISËùÔڵķþÎñÆ÷ʹÓÃ
<%=request.ServerVariables("LOGON_USER")%>
¾ÍÄÜ»ñÈ¡µ½ÓòÃû³ÆºÍÓû§ÃûÁË.
Èç¹û·ÃÎÊÕßûÓмÓÈëÓò,»áÌáʾµÇ¼,ÈçÏÂͼ.Ê ......
Ò»¡¢Ð޸ĸñʽ£ºµ÷Õû±íÍ·¾Ó×ó£»
<!--ÔÀ´¸ñʽ-->
/*˵Ã÷£º°ÑÕû¸ö±íÍ·ºÍÒ³ÃæÄÚÈݾÓÖУ¬µ±Ò³ÃæÄÚÈݽϳ¤Ê±£¬±íÍ·Ò²¾ÓÖУ¬¿´ÆðÀ´Ïñ±íÍ·´íλ¡£*/
<div style="position: absolute;top:3px;">
<center>
<!--#include file="inc/glfcd.inc"-->
<br>
±êÌâ
</br& ......
ASPµ¼³öExcelÊý¾ÝµÄËÄÖÖ·½·¨
À´Ô´£º aspsky ×÷Õߣº tonny
¡¡¡¡Ò»¡¢Ê¹ÓÃOWC
¡¡¡¡Ê²Ã´ÊÇOWC£¿
¡¡¡¡OWCÊÇOffice Web CompentµÄËõд£¬¼´MicrosoftµÄOffice Web×é¼þ£¬ËüΪÔÚWebÖлæÖÆÍ¼ÐÎÌṩÁËÁé»îµÄͬʱҲÊÇ×î»ù±¾µÄ»úÖÆ¡£ÔÚÒ»¸öintranet»·¾³ÖУ¬Èç¹û¿ÉÒÔ¼ÙÉè¿Í»§»úÉÏ´æÔÚÌØ¶¨µÄä¯ÀÀÆ÷ºÍһЩ¹ ......
<%
'//////////// GPS£ºGet Picture Size //////////////
'//////////////ÀûÓÃADODB.stream»ñȡͼƬ³ß´ç//////////////
Class GPS
Dim aso
Private Sub Class_Initialize
Set aso=CreateObject("Adodb.Stream")
aso.Mode=3
aso.Type=1
aso.Open
End Sub
Private Sub Class_Terminate
set aso=nothing
En ......