AspÌí¼ÓͼƬˮӡ
Asp´úÂ룺
<%
set obj=server.CreateObject("wsImage.Resize")
obj.LoadSoucePic server.mappath("25.jpg")
obj.LoadImgMarkPic server.mappath("blend.bmp")
obj.Quality=75
obj.AddImgMark server.mappath("imgMark.jpg"), 315, 220,&hFFFFFF, 70
strError=obj.errorinfo
if strError<>"" then
response.write obj.errorinfo
end if
obj.free
set obj=nothing
%>
Ïà¹ØÎĵµ£º
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Option Explicit
Response.Buffer = True '»º´æÍ¼Æ¬
Dim objXMLHTTP, XML
Set XML = Server.CreateObject("Microsoft.XMLHTTP") '½¨Á¢ÏÂÔØ¶ÔÏó
XML.Open "GET","http://www.google.cn/images/nav_logo7.png",False '¿ªÊ¼»ñȡͼƬ,http://xxx/pngÕâ½Ú¿ÉÒԸijÉ× ......
ÔÚasp¿ª·¢Öо³£ÐèÒªÓõ½µ±Ç°Ò³ÃæµÄ·¾¶£¬Ïà¶ÔµÄ£¬¾ø¶ÔµÄ£¬ÓвÎÊýµÄ£¬Ã»ÓвÎÊýµÄ£¬ÕâÀïÕûÀíһϣ¬¸öÈ˸оõºÜÈ«µÄasp»ñÈ¡Ò³ÃæÂ·¾¶Óï¾ä´óÈ«£¬ÀýÈ磺request.servervariables script_name SERVER_SOFTWARE
Îļþip·¾¶£º<%="http://" & request.servervariables("server_name")& request.servervariables("script_ ......
±¾ÎÄÁ´½Ó£ºhttp://www.oversteper.com/wprogram/asp/829.html
Ñ»·Óï¾äµÄ¸ÅÄî
Ñ»·Óï¾äÊÇÖ¸ÖØ¸´Ö´ÐеÄÓï¾ä£¬¿É·ÖΪÈýÀࣺ
1£¬µ±Ìõ¼þ±äΪ¼ÙÖ®Ç°ÖØ¸´Ö´ÐÐÓï¾ä£»
2£¬µ±Ìõ¼þ±äÎªÕæÖ®Ç°ÖØ¸´Ö´ÐÐÓï¾ä£»
3£¬°´ÕÕÖ¸¶¨µÄ´ÎÊýÖØ¸´Ö´ÐÐÓï¾ä¡£
VBscript µÄÑ»·Óï¾ä
<1> do ... loop Ö±µ½Ìõ¼þÎªÕæÊ±Ö´ÐÐÑ»·£»
< ......
<%
'==================================================
'º¯ÊýÃû£ºGetHttpPage
'×÷ Ó㺻ñÈ¡ÍøÒ³Ô´Âë
'²Î Êý£ºHttpUrl ------ÍøÒ³µØÖ·
'==================================================
Function GetHttpPage(HttpUrl)
If IsNull(HttpUrl)=True or Len(HttpUrl)<18 or HttpUrl="$False$" Then
GetHttp ......
ת×Ô: http://www.cnblogs.com/rentj1/archive/2009/02/23/1396187.html
1 н¨Àà¿âMyTestDLL
2 ÓÒ»÷ÏîÄ¿“MyTestDLL”-¡·ÊôÐÔ-¡·Éú³É-¡·¹´Ñ¡“ΪCOM»¥²Ù×÷×¢²á”
3 ´ò¿ª AssemblyInfo.cs Îļþ ÐÞ¸Ä [assembly: ComVisible(true)]
4 ´ò¿ªVisual Sutdio 2008 µÄÃüÁîÌáʾÐй¤¾ßÊäÈëguidgen.exe Ñ¡ÔñD ......