asp¸ñʽ»¯ÈÕÆÚº¯Êý
·½·¨Ò»£º
<%
' ============================================
' ¸ñʽ»¯Ê±¼ä(ÏÔʾ)
' ²ÎÊý£ºn_Flag
' 1:"yyyy-mm-dd hh:mm:ss"
' 2:"yyyy-mm-dd"
' 3:"hh:mm:ss"
' 4:"yyyyÄêmmÔÂddÈÕ"
' 5:"yyyymmdd"
' 6:"mm-dd"
' ============================================
Function Format_Time(s_Time, n_Flag)
Dim y, m, d, h, mi, s
Format_Time = ""
If IsDate(s_Time) = False Then Exit Function
y = cstr(year(s_Time))
m = cstr(month(s_Time))
If len(m) = 1 Then m = "0" & m
d = cstr(day(s_Time))
If len(d) = 1 Then d = "0" & d
h = cstr(hour(s_Time))
If len(h) = 1 Then h = "0" & h
mi = cstr(minute(s_Time))
If len(mi) = 1 Then mi = "0" & mi
s = cstr(second(s_Time))
If len(s) = 1 Then s = "0" & s
Select Case n_Flag
Case 1
' yyyy-mm-dd hh:mm:ss
Format_Time = y & "-" & m & "-" & d & " " & h & ":" & mi & ":" & s
Case 2
' yyyy-mm-dd
Format_Time = y & "-" & m & "-" & d
Case 3
' hh:mm:ss
Format_Time = h & ":" & mi & ":" & s
Case 4
' yyyyÄêmmÔÂddÈÕ
Format_Time = y & "Äê" & m & "ÔÂ" & d & "ÈÕ"
Case 5
Ïà¹ØÎĵµ£º
ÏÖÔÚÖ÷Á÷µÄÍøÕ¾¿ª·¢ÓïÑÔÎÞÍâºõasp¡¢php¡¢asp.net¡¢jspµÈ¡£
ÍøÒ³´Ó¿ªÊ¼¼òµ¥µÄhmtlµ½¸´ÔӵķþÎñÓïÑÔ£¬×ß¹ýÁË10¶à¸öÄêÍ·£¬¸÷ÖÖ¼¼Êõ²ã³ö²»Çµ¥¸öµÄÖ÷Á÷¼¼ÊõÒ²ÔÚ²»¶Ï·Ðµİ汾£¬ÏÖÔÚ·ÖÎöϸ÷ÖÖÓïÑÔµÄÇø±ð¡¢ÓÅÊÆ¡¢ÁÓÊÆ¡¢¿ª·¢×¢ÒâÊÂÏ
HTML:µ±È»ÕâÊÇÍøÒ³×î»ù±¾µÄÓïÑÔ,ÿһ¸ö·þÎñÆ÷ÓïÑÔ¶¼ÐèÒªËüµÄÖ§³Ö,Ҫѧϰ,Õâ¸ö¿Ï¶¨ÊÇ¿ª ......
µ±´íÎóÐÅÏ¢³öÏÖÔÚÒ³ÉÏʱ£¬Ëü³ÉΪҳ²¼¾ÖµÄÒ»²¿·Ö¡£ÄúÐèÒªÉè¼ÆÒ³µÄ²¼¾ÖÒÔ·ÅÖÿÉÄܳöÏÖµÄÈκδíÎóÎı¾¡£
Èç¹ûÑéÖ¤ÔÚ·þÎñÆ÷ÉÏÖ´ÐУ¬Ôò³ý·Ç³öÏÖ´íÎ󣬷ñÔòÑéÖ¤¿Ø¼þ²»»á³ÊÏÖµ½Ò³£¬²¢Òò´Ë²»»áÕ¼ÓÃÈκοռ䡣Èç¹û³öÏÖ´íÎó£¬Ò³½«ÔÚÍù·µÆÚ¼äÖØÐ´´½¨£¬²¢½«´íÎóÎı¾Ìí¼Óµ½Ò³¡£
Èç¹ûÓû§¾ßÓÐÖ§³Ö¶¯Ì ......
ĬÈÏÇé¿öÏ£¬ÔÚÒ³»Ø·¢µ½·þÎñÆ÷ʱ¡¢Ò³³õʼ»¯Ö®ºó£¨¼´ÊÓͼ״̬ºÍ»Ø·¢Êý¾ÝÒÑ´¦ÀíÖ®ºó£©ºÍµ÷ÓÃʼþ´¦Àí´úÂë֮ǰ£¬ASP.NET ÑéÖ¤¿Ø¼þ½«×Ô¶¯Ö´ÐÐÑéÖ¤¡£Èç¹ûä¯ÀÀÆ÷Ö§³Ö¿Í»§¶Ë½Å±¾£¬¿Ø¼þÒ²¿ÉÒÔÔÚä¯ÀÀÆ÷ÖÐÖ´ÐÐÑéÖ¤¡£
µ«ÊÇ£¬ÓÐʱÄú¿ÉÄÜÐèÒªÒÔ±à³Ì·½Ê½Ö´ÐÐÑéÖ¤¡£ÔÚÒÔÏÂÇé¿öÏ£¬Äú¿ÉÄÜÐèҪͨ¹ý±à³ÌÀ´½ ......
dataurl=Server.MapPath("menutree.mdb")'Êý¾Ý¿âµØÖ·
dim conn,strQuery,rs
set conn = server.CreateObject("adodb.connection")
conn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE="&dataurl
strQuery="select * from menufun"
set rs=server.createobject("adodb.recordset")
rs.open strQuery,conn,1 ......
»¨ÁËÁ½¸öÍíÉϰïÅóÓѽ«Ò»¸öasp¿ª·¢µÄÍøÕ¾´ÓACCESSÊý¾Ý¿âתÏòSQL SERVER 2000. ÍøÉϲéÁËЩ×ÊÁÏ£¬¼ÓÉÏ×Ô¼ºµÄ¾Àú£¬×ܽ᣺
1¡¢Ê×ÏÈ¿´asp µÄ³ÌÐòÖÐÊÇ·ñÓÐ on error resume next; Èç¹ûÓÐ,ÏÈ×¢Ê͵ô¡£·ñÔòºÜ¶à´íÎóÎÞ·¨±©Â¶³öÀ´
2¡¢´´½¨SQL SERVER Êý¾Ý±í¡£ ʹÓÃSQL SERVER 2000×Ô´øµÄÊý¾Ýµ¼ÈëÏòµ¼£¬½«ACCESSÊý¾Ý¿âÖеıí½á¹¹£¬ÒÔ¼ ......