aspα¾²Ì¬´úÂë
<%
DirName="html\" '¾²Ì¬Îļþ±£´æµÄĿ¼£¬½áβӦ´ø"\"
foxrax=Request("foxrax")
if foxrax="" then
FileName=GetStr()&".html"
FileName=replace(FileName,"/","")'Ìæ»»×Ö·û
FileName=replace(FileName,"?","")
FileName=replace(FileName,"\","")
FileName=DirName&FileName
if tesfold(DirName)=false then
createfold(Server.MapPath(".")&"\"&DirName)
end if
if ReportFileStatus(Server.MapPath(".")&"\"&FileName)=true then'Îļþ´æÔÚ
List=ReadFile(FileName)
else'Îļþ²»´æÔڵϰ
List=getHTTPPage(GetUrl())
WriteFile(FileName)
end if
'Lists=split(List,"!@#$%")
'Response.write Lists(0)
'Response.end
end if
'========================º¯ÊýÇø============================
'»ñÈ¡µ±Ç°Ò³Ãæurl
Function GetStr()
On Error Resume Next
Dim strTemps
strTemps = strTemps & Request.ServerVariables("URL")
If Trim(Request.QueryString) <> "" Then
strTemps = strTemps & "?" & Trim(Request.QueryString)
else
strTemps = strTemps
end if
GetStr = strTemps
End Function
'»ñÈ¡»º´æÒ³Ãæurl
Function GetUrl()
On Error Resume Next
Dim strTemp
If LCase(Request.ServerVariables("HTTPS")) = "off" Then
strTemp = "http://"
Else
strTemp = "https://"
End If
strTemp = strTemp & Request.ServerVariables("SERVER_NAME")
If Request.ServerVariables("SERVER_PORT") <> 80 Then
strTemp = strTemp & ":" & Request.ServerVariables("SERVER_PORT")
end if
strTemp = strTemp & Request.ServerVariables("URL")
If Trim(Request.QueryString) <> "" Then
strTemp = strTemp & "?" & Trim(Request.QueryString) & "&foxrax=foxrax"
else
strTemp = strTemp & "?" &
Ïà¹ØÎĵµ£º
ÏÖÔÚÖ÷Á÷µÄÍøÕ¾¿ª·¢ÓïÑÔÎÞÍâºõasp¡¢php¡¢asp.net¡¢jspµÈ¡£
ÍøÒ³´Ó¿ªÊ¼¼òµ¥µÄhmtlµ½¸´ÔӵķþÎñÓïÑÔ£¬×ß¹ýÁË10¶à¸öÄêÍ·£¬¸÷ÖÖ¼¼Êõ²ã³ö²»Çµ¥¸öµÄÖ÷Á÷¼¼ÊõÒ²ÔÚ²»¶Ï·Ðµİ汾£¬ÏÖÔÚ·ÖÎöϸ÷ÖÖÓïÑÔµÄÇø±ð¡¢ÓÅÊÆ¡¢ÁÓÊÆ¡¢¿ª·¢×¢ÒâÊÂÏ
......
Active Server Pages ÌṩÄÚ½¨¶ÔÏó£¬ÕâЩ¶ÔÏóʹÓû§¸üÈÝÒ×ÊÕ¼¯Í¨¹ýä¯ÀÀÆ÷ÇëÇó·¢Ë͵ÄÐÅÏ¢¡¢ÏìÓ¦ä¯ÀÀÆ÷ÒÔ¼°´æ´¢Óû§ÐÅÏ¢£¨ÈçÓû§Ê×Ñ¡Ï¡£±¾ÎļòҪ˵Ã÷ÿһ¸ö¶ÔÏó¡£
Application ¶ÔÏó
¿ÉÒÔʹÓà Application ¶ÔÏóʹ¸ø¶¨Ó¦ÓóÌÐòµÄËùÓÐÓû§¹²ÏíÐÅÏ¢¡£
Request ¶ÔÏó
¿ÉÒÔʹÓà Request ¶ÔÏó·ÃÎÊÈκÎÓà HTTP ÇëÇó ......
¡¡ 'º¯ÊýÃû£ºGetMyTimeNumber()
'×÷ ÓãºÉú³Éʱ¼äµÄÕûÊý
'²Î Êý£ºlx ---- ʱ¼äÕûÊýµÄÀàÐÍ
' lx=0 µ½·ÖÖÓ lx=1 µ½Ð¡Ê± lx=2 µ½Ìì lx=3 µ½ÔÂ
'·µ»ØÖµ£ºÉú³Éʱ¼äµÄÕûÊýÖµ(×îСµ½·ÖÖÓ)
'ʾ Àý£º
'********************************* ......
Ç°ÃæËµÁË.NETÈçºÎα¾²Ì¬»¯£¬ÆäʵAsp urlα¾²Ì¬»¯Ò²ºÜ¼òµ¥ÁË¡£ºÃµÄ¶«Î÷´ó¼Ò·ÖÏíÏ£¡
Óв»¶®µÄ¿ÉÒÔ¼ÓÎÒQQ 282116460
ÏêϸÄÚÈÝÈçÏ£º
IISϰ²×°ÅäÖÃISAPI Rewrite£¬ÊµÏÖaspµÄ¾²Ì¬»¯µÄ·½·¨£¡
×î½üÒ»Ö±Ôڸ㰳СվµÄËÑË÷ÒýÇæÓÅ»¯£¬Ð§¹û»¹¿ÉÒÔ£¬´Ó10Ôµ׵ÄÿÌì40IPÉÏÉýµ½ÏÖÔÚÿÌì200¶à¸ö¡£²»¹ýÁ÷Á¿»¹ÊÇÌ«ÉÙÁË¡£¾Ý˵°Ñ¶¯Ì¬µÄÒ ......