Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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 ÏÞÖÆ·¢Ìûʱ¼ä ºÍ µÇ½ÏÞÖÆ


н¨Á¢Ò»¸ö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Ò³Ãæ×Ô¶¯Ìø×ª

×î¼òµ¥µÄ×ö·¨ÊÇÔÚÒ³ÃæµÄ<head></head>±êÇ©ÖмÓÈëÒÔÏ´úÂ룺
<meta http-equiv="Refresh" content="10;url='xxx.asp'">
ÕâÑù¾Í»áÔÚÒ³Ãæ´ò¿ªºó10ÃëÖÓÌø×ªµ½xxx.aspÁË¡£
Ò²¿ÉÒÔÓÃjavascriptµÄsettimeoutÀ´Íê³É£¬ÔÚÒ³ÃæÖмÓÈëÒÔÏ´úÂ룺
<script language=javascript>
var the_timeout = setTime ......

asp CintÒç³ö

VBSÀ³¬³öIntegerÀàÐ͵Äȡֵ·¶Î§£¬¸ÃÀàÐ͵Äȡֵ·¶Î§Îª-32,768 µ½ 32,767 Ö®¼äµÄÕûÊý¡£
³ö´íµÄ¸ùÔ´£º
ÔÚASPÀÓÐʱºòΪÁË·ÂÖ¹×¢È룬ËùÒÔÔÚ½ÓÊÕ²ÎÊýµÄʱºòÖ±½ÓʹÓÃCintº¯Êý°Ñ½Ó¹ýÀ´µÄ²ÎÊýת»»ÎªInteger£¨Êý×Ö£©ÀàÐÍ£¬Õâ¾Í´æÔÚÒ»¸öDZÔÚÎÊÌ⣬µ±Ò³Ãæ½ÓÊÕµÄij¸ö²ÎÊý£¨Request("xxx")£©³¬¹ýȡֵ·¶Î§Ê±£¨¿É¼òµ¥Àí½âΪ5λÊý×Ö£ ......

ÌÔÌØËÑË÷ÒýÇæÔÚÌÔÌØAsp CmsϵÄÓ¦ÓÃ


1¡¢Ê×ÏÈÏÂÔØÌÔÌØÕ¾ÄÚËÑË÷ÒýÇæ£¬Ê×ÏÈÒªµ¼ÈëCMSÖеÄÊý¾Ýµ½ËÑË÷ÒýÇæË÷ÒýÖУ¬Õâ¸ö¹¤×÷Äú¿ÉÒԷŵ½±¾µØÀ´×ö£¬Ë÷Òýºó£¬Ö±½Ó½«ÌÔÌØËÑË÷ÒýÇæÎļþ¼ÐѹËõºóÉÏ´«µ½ÄúµÄ¿Õ¼äÉϼ´¿É¡£
2¡¢Êý¾ÝË÷Òý˵Ã÷£º
3¡¢Ê×ÏÈÔÚ±¾µØ²¿ÊðÒ»¸öasp.net»·¾³£¬È»ºó°²×°ÌÔÌØÕ¾ÄÚËÑË÷ÒýÇæ£¬¼ÙÈç·ÃÎʵØÖ·ÊÇ:http://localhost¡£
4¡¢ÏÂÃæÊäÈëµØÖ·£ºhttp://lo ......

aspÎļþÏÂÔØ

 <%
If Not IsNull(Request("fileName")) Then r = DownLoadFile(Request("fileName"))
Function DownLoadFile(fileName)
Dim s,fso,f,fLen
fileName = Server.MapPath(fileName)
'create stream
Set s = Server.CreateObject("ADODB.Stream")
s.Open()
s.Type = 1
Set fso = Server.CreateObject ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ