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

ASPʵÏÖÓïÒô·ÖʱÎʺò


<bgsound src="wen.mid" loop="0">
  <% dim weh
  If Time >=#1:00:00 AM# And Time < #6:00:00 PM# Then
   weh = "<bgsound src="1.mid" loop="0">"
  Else If Time >#6:00:00 AM# And Time < #9:00:00 PM#
   weh = "<bgsound src="2.mid" loop="0">"
   Else If Time >#9:00:00 AM# And Time < #12:00:00 PM#
   weh = "<bgsound src="3.mid" loop="0">"
  Else If Time >#12:00:00 AM# And Time < #14:00:00 PM#
   weh = "<bgsound src="4.mid" loop="0">"
  Else If Time >=#14:00:00 AM# And Time < #17:00:00 PM#
   weh = "<bgsound src="4.mid" loop="0">"
  Else If Time >=#17:00:00 AM# And Time < #19:00:00 PM#
   weh = "<bgsound src="5.mid" loop="0">"
  Else If Time >=#19:00:00 AM# And Time < #24:00:00 PM#
   weh = "<bgsound src="6.mid" loop="0">"
  End If
  %>
  <%=wen %>
  
  ÉÏÃæµÄ X.MID ÊǵÄÎʺòÓïÒô 


Ïà¹ØÎĵµ£º

ASPµÄDES¼ÓÃܽâÃÜ

ASPµÄDES¼ÓÃܽâÃÜ
2007-05-18 09:49
Ô­ÎÄ£ºhttp://hi.baidu.com/myfav/blog/item/3ebc58828edd79a30cf4d290.html
ǰÁ½Ììѧµ½¶Ô³ÆÃÜÂëDESËã·¨£¬È»ºó¾Í×Ô¼ºÇ×ÊÖдÁ˸öʵÏÖ³ÌÐò³öÀ´£¬ºÃ¶àµØ·½ÓõÃ×ÅÄÅ¡£ÕâÀïÊÇÓÃASPʵÏÖ£¬µ±È»Ò²¾ÍÊÇ¿ÉÒÔÒÆµ½VBÀ²¡£¶®µÃÔõÑùдºóд³ÉʲôÓïÑÔ¶¼ÐÐÀ²£¬Ö»Òª¶®µÃÄÇÃÅÓïÑÔ¡£Èç¹ûÓÐÅóÓÑÏëÖªµÀ¾ßÌåD ......

ASP ÏÞÖÆ·¢Ìûʱ¼ä ºÍ µÇ½ÏÞÖÆ


н¨Á¢Ò»¸öASPÎļþ °Ñ ÒÔÏ´úÂë¸´ÖÆ½øÈ¥
<%
ip=request.ServerVariables("REMOTE_ADDR") '»ñÈ¡À´·ÃµÄIPµØÖ·
dim conn
set conn=server.CreateObject("ADODB.connection")
conn.open "Dbq="&server.MapPath("yb/dat/data.mdb")&";Driver={Microsoft Access Driver (*.mdb)}" '½¨Á¢Êý¾Ý¿âÁ¬½Ó ÕâÀïÄã¿ ......

½â¾öASP²»ÄܸüÐÂ,Êý¾Ý¿â»ò¶ÔÏóΪֻ¶ÁµÄÎÊÌâ

×î½ü°ï±ðÈË´¦ÀíÏÂÊý¾Ý,·¢ÏÖÌí¼ÓÊý¾Ýʱ,¾ÍÌáʾ"ASP ²»ÄܸüС£Êý¾Ý¿â»ò¶ÔÏóΪֻ¶Á¡£",´ÓÍøÉÏÕÒÁË,ҲûÓнâ¾öÎÒµÄÎÊÌâ.
1¡¢·þÎñÆ÷µÄÊý¾ÝĿ¼mdbÎļþËùÔÚµÄĿ¼£¬ÊÇÖ»¶ÁµÄ
2¡¢Êý¾Ý¿âÔÚ±¾µØµÄȨÏÞ£¬È¥Ö»¶ÁȨÏÞ£¬ÔÙÉÏ´«
3¡¢ÓпÉÄÜÄãÊÇ´ÓÖ»¶ÁÄ¿Â¼ÒÆ¶¯µ½¿É¶ÁĿ¼µÄ£¬ËùÒÔÒ»¶¨²»ÄÜÕâôÓã¬ÏÈϵ½±¾µØ£¬ÔÙÉÏ´«£¬¿É½â¾ö´ËÀàÎÊ ......

ASP VB.NET ÏÂÔØ·þÎñÆ÷Îļþµ½¿Í»§¶Ë


      Try
            Dim Path As String = Server.MapPath("~/Download/") 'Îļþ·¾¶
            Path = Path & "file.txt" 'ÎļþµÄÃû³Æ
     ......

asp²É¼¯³ÌÐò

<%
Function getHTTPPage(url)
On Error Resume Next
dim http
set http=Server.createobject("Microsoft.XMLHTTP")
Http.open "GET",url,false
Http.send()
if Http.readystate<>4 then
exit function
end if
getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
set http=not ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ