asp now() º¯Êý¸ñʽÎÊÌâ
±¾½â¾ö·½·¨Õª×ÔÍøÂçÎÄÕ£¬ÒѾÑéÖ¤¿ÉÐС£
ÐÂÉϵÄһ̨·þÎñÆ÷³öÏÖÁËÒ»¸öÏÖÏó£ºASP³ÌÐòÖУ¬µ÷Óú¯ÊýNow()£¬ÏÔʾµÄʱ¼ä×ÜÊÇÐÎÈç“2009-07-12 ÉÏÎç 08:12:56¡¡”ÕâÑùµÄ£¬×ÜÏÔʾ“ÉÏÎ町͓ÏÂÎ産¬µ¼ÖÂÊý¾Ý¿â²åÈë²Ù×÷Òì³££¬½â¾ö¹ý³Ì¼°×îÖÕ½â¾ö·½·¨ÈçÏ£º
ÕâôÏÔʾ£¬Ò»°ã¶¼ÊÇÒòΪ·þÎñÆ÷¾ÍÊÇÈç´ËÉèÖõģ¬ÏȲ鿴ʱ¼ä¸ñʽ£ºÖ±½ÓË«»÷ÈÎÎñÀ¸ÖÐʱ¼ä£¬ÔÚµ¯³öµÄ“ʱ¼äºÍÈÕÆÚ”ÖйûÈ»ÏÔʾÁËÉÏÎçÏÂÎçÕâÑùµÄ×ÖÑù£¬ÄǾͽøÈëÏÂÒ»²½ÉèÖã»
´ò¿ª¿ØÖÆÃæ°å£¬Ñ¡Ôñ“ÇøÓòºÍÓïÑÔÑ¡Ï¬ÔÚ“ÇøÓòÑ¡Ïî”ÖÐÑ¡Ôñ×Ô¶¨Ò壬ѡÔñ“ʱ¼ä”±êÇ©£¬½«Ê±¼ä¸ñʽÉèÖÃΪ“H:mm:ss¡¡”¼´24Ð¡Ê±ÖÆÊ±¼ä£¬½«ÏÂÃæµÄAM·ûºÅºÍPM·ûºÅºóµÄÖµÇå¿Õ£¬µ¥»÷“È·¶¨”±£´æÉèÖã»
´ËʱÔÙ´ò¿ª“ʱ¼äºÍÈÕÆÚ”£¬Ê±¼äÖÐÒѾ²»ÏÔʾÉÏÎçºÍÏÂÎçµÄ×ÖÑùÁË£¬½øÈëÏÂÒ»²½¼ìÑ飻
ÖØÆôIISºó£¬Ö´ÐÐASPº¯ÊýNow()£¬½á¹ûÈÃÎÒºÜʧÍû£¬»¹ÊÇÏÔʾÁË´ó´óµÄ“ÏÂÎç”Á½¸ö×Ö£¬ÄÇÏÖÔھͲ»ÊÇÕâ¸öÎÊÌâÁË£¬Ó¦¸Ã¾ÍÊÇûÓÐʹÓÃÏµÍ³ÇøÓòÉèÖõÄʱ¼ä£»
Ç¿ÖÆASPʱ¼äʹÓÃʹÓÃÇøÓòÉèÖÃÀïÃæµÄʱ¼ä¸ñʽ£¬·½·¨ÈçÏ£º´ò¿ª×¢²á±í±à¼Æ÷£¬½øÈëHKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\£¬½¨Á¢OLEAUTµÄÏÔÚ¸ÃÏîϽ¨Á¢Ãû³ÆÎª“VarConversionLocaleSetting”µÄDWORDÖµ£¬Êý¾ÝÉèÖÃΪ2£¬ÉèÖÃÍê³ÉºóÍ˳ö×¢²á±í±à¼Æ÷£»
ÖØÆôIISºó£¬ÔٴβâÊÔASPº¯ÊýNow()£¬ÏÖÔÚÒѾ³É¹¦µÄ²»ÔÙÏÔʾ¸ÃËÀµÄ“ÉÏÎ甓ÏÂÎç”×ÖÑùÁË¡£
Ïà¹ØÎĵµ£º
VBSÀ³¬³öIntegerÀàÐ͵Äȡֵ·¶Î§£¬¸ÃÀàÐ͵Äȡֵ·¶Î§Îª-32,768 µ½ 32,767 Ö®¼äµÄÕûÊý¡£
³ö´íµÄ¸ùÔ´£º
ÔÚASPÀÓÐʱºòΪÁË·ÂÖ¹×¢È룬ËùÒÔÔÚ½ÓÊÕ²ÎÊýµÄʱºòÖ±½ÓʹÓÃCintº¯Êý°Ñ½Ó¹ýÀ´µÄ²ÎÊýת»»ÎªInteger£¨Êý×Ö£©ÀàÐÍ£¬Õâ¾Í´æÔÚÒ»¸öDZÔÚÎÊÌ⣬µ±Ò³Ãæ½ÓÊÕµÄij¸ö²ÎÊý£¨Request("xxx")£©³¬¹ýȡֵ·¶Î§Ê±£¨¿É¼òµ¥Àí½âΪ5λÊý×Ö£ ......
Try
Dim Path As String = Server.MapPath("~/Download/") 'Îļþ·¾¶
Path = Path & "file.txt" 'ÎļþµÄÃû³Æ
......
½«ÒÔÏ´úÂë·Åµ½Ò»¸öµ¥¶ÀµÄÒ³Ãæcheckcode.asp
<%
Option Explicit
Response.buffer=true
Call Com_CreatValidCode("validateCode")
Sub Com_CreatValidCode(pSN)
' ½ûÖ¹»º´æ
Response.Expires = -9999
Response.AddHeader "Pragma","no-cache"
Response.AddHeader "cache-ctrol","no-cache"
Response.ContentTy ......
<%
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 ......
'ʹÓÃ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 ......