Ò׽ؽØͼÈí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

Ò»¸öASPÌæ»»º¯ÊýimgÀïÃæ¶àÓàµÄ´úÂë

Ò»¸öASPÌæ»»º¯ÊýimgÀïÃæ¶àÓàµÄ´úÂë
 
<%
Response.Write(Server.HTMLEncode(FixImg("<img onclick=""if(this.width>screen.width-461) window.open('qq/20082181405371.jpg');"" alt="""" border=""0"" src=""qq/20082181405371.jpg"" />")))
%>
<%
'¹¦ÄÜ:½«IMG´úÂë¸ñʽ»¯Îª<img src="XXX" />¸ñʽ.
Function FixImg(sString)
Dim sReallyDo, regEx, iReallyDo
Dim oMatches, cMatch
Dim tStartTime, tEndTime
If IsNull(sString) Then
FixImg = ""
Exit Function
End If
sReallyDo = sString
On Error Resume Next
sReallyDo = Replace(sReallyDo, vbCr, " ")
sReallyDo = Replace(sReallyDo, vbLf, " ")
sReallyDo = Replace(sReallyDo, vbTab, " ")
sReallyDo = Replace(sReallyDo, "<img ", vbCrLf & "<img ", 1, -1, 1)
sReallyDo = Replace(sReallyDo, "/>", " />", 1, -1, 1)
sReallyDo = ReplaceAll(sReallyDo, "= ", "=", True)
sReallyDo = ReplaceAll(sReallyDo, "> ", ">", True)
sReallyDo = Replace(sReallyDo, "><", ">" & vbCrLf & "<")
sReallyDo = Trim(sReallyDo)
On Error GoTo 0
Set regEx = New RegExp
regEx.IgnoreCase = True
regEx.Global = True
'//È¥³ýonclick,onloadµÈ½Å±¾
regEx.Pattern = "\s[on].+?=([\""|\'])(.*?)\1"
sReallyDo = regEx.Replace(sReallyDo, "")
'//½«SRC²»´øÒýºÅµÄͼƬµØÖ·¼ÓÉÏÒýºÅ
regEx.Pattern = "<img.*?\ssrc=([^\""\'\s][^\""\'\s>]*).*?>"
sReallyDo = regEx.Replace(sReallyDo, "<img src=""$1"" />")
'//ÕýÔòÆ¥ÅäͼƬSRCµØÖ·
regEx.Pattern = "<img.*?\ssrc=([\""\'])([^\""\']+?)\1.*?>"
sReallyDo = regEx.Replace(sReallyDo, "<img src=""$2"" />")
FixImg = sReallyDo
End Function
%>
<%
'¹¦ÄÜ£º·µ»Ø×Ö·û´®£¬ÆäÖÐÖ¸¶¨ÊýÄ¿µÄij×Ó×Ö·û´® È«²¿ ±»Ì滻ΪÁíÒ»¸ö×Ó×Ö·û´®¡£
'À´Ô´£ºhttp://jorkin.reallydo.com/article.ASP?id=406
'ÐèÒªBintº¯Êý:http://jorkin.reallydo.com/article.ASP?id=395
Function ReplaceAll(sExpression, sFind, sReplaceWith, bAll)
If IsNull(sExpression) Then ReplaceAll = "" : Exit Function
If (StrComp(bAll, "True", 1) = 0) Or (CBool(Bint(


Ïà¹ØÎĵµ£º

²¿ÊðASPÍøÕ¾Åöµ½µÄÎÊÌⱸÍü


ÔÚ ¼ÆËã»ú¹ÜÀí->InterNetÐÅÏ¢·þÎñ -> ĬÈÏÍøÕ¾ -> ÓÒ¼ü -> н¨ -> ÐéÄâĿ¼ £¨±ðÃû£ºÏ൱ÓÚÎļþ¼Ð£©-> Ñ¡ÔñÔ´ÎļþµÄ·¾¶£¬Ð½¨Íê³É
ÓÒ¼üµã»÷¸Õ¸Õн¨µÄÐéÄâĿ¼£º
ÐéÄâĿ¼£º¹´Ñ¡ ¶ÁÈ¡¡£Ö´ÐÐȨÏÞ£º´¿½Å±¾¡£ºóÀ´ÓÖÓöµ½ÁËÕâÑùµÄ´íÎó£º ÔÚ
Ó¦ÓóÌÐò¼¶±ðÖ®ÍâʹÓÃ×¢²áΪ allowDefinition='MachineToAppl ......

301Öض¨ÏòÉèÖü°³ÌÐò´úÂëʵÏÖÈ«¼¯(ASP|.NET|PHP|JSP)

Ê×ÏÈÉêÃ÷£ºÕâ¸öÊÇÎÒתÔصģ¬ÖÂÁ¦ÓÚΪÏñÎÒÒ»ÑùµÄÐÂÊÖÌṩ°ïÖú£¡
1¡¢IISÏÂ301ÉèÖà InternetÐÅÏ¢·þÎñ¹ÜÀíÆ÷ -> ÐéÄâĿ¼ -> Öض¨Ïòµ½URL£¬ÊäÈëÐèҪתÏòµÄÄ¿±êURL£¬²¢Ñ¡Ôñ“×ÊÔ´µÄÓÀ¾ÃÖض¨Ïò”¡£
2¡¢ASPϵÄ301תÏò´úÂë
<%@ Language=VBScript %>
<%
Response.Status=”301 Moved Permanent ......

asp/asp.netÁ¬½Ósql anywhereÊý¾Ý¿â


<%
set conn= server.createobject("ADODB.connection")
conn.open "driver={sybase driver 10};"
"srvr=SYBASE;"
"UID=sa;"
"pwd=sybase;"
sql="select no from tab_st ......

ÔÚ·ÃÎÊASPÍøÕ¾Ò³Ãæʱµ÷ÓÃÁíÒ»¸öÍøÕ¾Ò³ÃæÄÚÈÝ


Èç¹ûÔÚÒ»¸öÍøÕ¾µÄÒ³ÃæÖÐÏëµ÷ÓÃÆäËûÍøÕ¾Ò³ÃæÄÚÈÝ£¬Ö±½ÓÓÃһϴúÂë¾Íok£¬http://www.wanyusoft.com/index.asp Õâ¸ö·¾¶¾ÍÊÇËùÒªµ÷ÓõÄÒ³Ãæ·¾¶¡£
<%
response.write(getHTTPPage("http://www.wanyusoft.com/index.asp"))
function getHTTPPage(url)
dim http
set http=createobject("MSXML2.XMLHTTP")
Http.o ......

windows server 2008 ÈÃIIS7Ö§³ÖASP Access


1. ÈÃIIS7Ö§³ÖASP
Windows VistaÖÐIIS7ÊÇĬÈϲ»°²×°µÄ£¬ËùÒÔÔÚ°²×°ÍêWindows VistaÖ®ºóÈç¹ûÐèÒª°²×°IIS7µÄ»°£¬¾ÍÒª×Ô¼º¶¯ÊÖÁË¡£°²×°µÄ²½ÖèΪ£º¿ªÊ¼¡·¿ØÖÆÃæ°å¡·³ÌÐò¡·´ò¿ª»ò¹Ø±ÕWindows¹¦ÄÜ¡·InternetÐÅÏ¢·þ Îñ(ÒÔÇ°²Ù×÷ϵͳ°æ±¾ÀïÃæµÄ"Windows components” ÔÚVistaÀïÃæ½Ð×ö"Programs and Features")¡£IIS7°²×°Ê±Ð ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ