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 ÊǵÄÎʺòÓïÒô
Ïà¹ØÎĵµ£º
Abs £¨ÊýÖµ£©
¾ø¶ÔÖµ¡£Ò»¸öÊý×ֵľø¶ÔÖµÊÇËüµÄÕýÖµ¡£¿Õ×Ö·û´® (null) µÄ¾ø¶ÔÖµ£¬Ò²ÊÇ¿Õ×Ö·û´®¡£Î´³õʼ»¯µÄ±äÊý£¬Æä¾ø¶ÔΪ 0
Àý×Ó£ºABS(-2000)
½á¹û£º2000
Array £¨ÒÔ¶ºµã·Ö¸ôµÄÊý×éÔªËØ£©
Array º¯Êý´«»ØÊý×éÔªËصÄÖµ¡£
Àý×Ó£º
A=Array(1,2,3)
B=A(2)
½á¹û£º 2
˵Ã÷£º±äÁ¿£ÂΪ£ÁÊý×éµÄµÚ¶þ¸öÔªËصÄÖµ¡£
£Ás ......
'ʹÓÃFSOÐÞ¸ÄÎļþÌض¨ÄÚÈݵĺ¯Êý
Function FSOchange(filename,Target,String)
Dim objFSO,objCountFile,FiletempData
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objCountFile = objFSO.OpenTextFile(Server.MapPath(filename),1,True)
FiletempData = objCountFile.ReadAll
objCountFi ......
ÔÚInterDevÖÐʵÏÖÍøÉϹºÎïÍƳµ(1)
¡¡±¾ÎĽ«½éÉÜÔÚInterDevÖÐʵÏÖÍøÉÏÉ̵깺Îï³µ¹¦Äܵķ½·¨£¬¾ßÌå²½ÖèÈçÏ£º
¡¡¡¡Ò»¡¢ Êý¾Ý¿â½á¹¹£º
¡¡¡¡²úÆ·Êý¾Ý±í(Products): ´æ·Å²úÆ·ÐÅÏ¢
²úÆ·Ãû ProductName
²úÆ·±àºÅ ProductID
µ¥¼Û Price
·ÖÀà±àºÅ CategoryID
¡¡¡¡ Cart£º¹ºÎï³µÊý¾Ý±í£¬ÁÙʱ´æ·Å¿Í»§µÄ¶ ......
ÓÃASPʵÏÖÖ§³Ö¸½¼þµÄEMailϵͳ(1)
¡¡¡¡´ó¼Ò¾³£Ì½ÌÖʹÓÃasp£¬¶ø²»Ê¹ÓÃÆäËû×齨ÄÜ·ñʵÏÖÎļþµÄÉÏ´«£¬´Ó¶ø¿ª·¢³öÖ§³ÖÓʼþ¸½¼þµÄÓʼþϵͳ£¬´ð°¸ÊÇ¿ÉÒԵġ£
¡¡¡¡ÒÔÏÂÊÇ·¢ËÍÓʼþµÄÒ³Ã棬ÓʼþµÄÕʺÅÊÇÔ±¹¤ºÅ£¬¼ÙÉèÊÇ5λµÄÊý×Ö£¬sendmail.aspµ±È»ÊÇÔںϷ¨µÇ½ºó²ÅÄܹ»¿´µ½µÄ
£¼html£¾
£¼head£¾
£¼meta http-eq ......
ÓÃASPʵÏÖÖ§³Ö¸½¼þµÄEMailϵͳ(2)
¡¡¡¡²»¹ýÕâ½ö½öÖ»Êǵõ½ÁË·¢ËÍÕßµÄipµØÖ·ºÍmacµØÖ·£¬¶øÇÒ½ûÖ¹Óû§×Ô¼º¸ü¸Ä×Ô¼ºipµØÖ·µÄ´úÂ룬ÒòΪÎÒÃǵÄϵͳÊÇÐèÒª¶Ô¸öÈËÐÞ¸ÄipµÄÐÐΪ½øÐнûÖ¹µÄ¡£
£¼%
strIP = Request.ServerVariables("REMOTE_ADDR")
Set net = Server.CreateObject("wscript.network")
Set sh = S ......