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

aspÖдÓÊý¾Ý¿âµ¼³öEXCELʱ£¬EXCELºêÓ¦Óõı߿òÉèÖÃ

Set xlApp = CreateObject("Excel.Application")
xlApp.DisplayAlerts = false               '²»ÏÔʾ¾¯¸æ
   'xlApp.Application   = false               '²»ÏÔʾ½çÃæ
   xlapp.Workbooks.add
   set objExcelBook   = xlapp.ActiveWorkBook
   set objExcelSheets = objExcelBook.Worksheets
   set xlSheet = objExcelBook.Sheets(1)
 
EXCELÖÐÉèÖñ߿ò£¬Â¼ÖƵĺê
Sub Macro1()
'
' Macro1 Macro
' ºêÓÉ YlmF Â¼ÖÆ£¬Ê±¼ä: 2009-9-15 test
'
' ¿ì½Ý¼ü: Ctrl+q
'
    Range("A3:G32").Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
  


Ïà¹ØÎĵµ£º

ASP³£ÓÃÄÚÖú¯Êý

¡¡ÔÚASPÖУ¬°Ñ´øÓзµ»ØÖµµÄÕâÑùµÄÒ»¶Î´úÂë½Ð×öº¯Êý¡£ÀýÈçͨ¹ý±àдһ¶Î´úÂë¼ÆËã³öÒ»¸ö×ÔÈ»ÊýÊÇ·ñÊÇÖÊÊý£¬·µ»Ø¸øµ÷ÓóÌÐò£¬ÓÉÓÚµ÷ÓóÌÐòÐèÒªÖªµÀÄǸö×ÔÈ»ÊýÊÇ·ñÊÇÖÊÊý£¬ËùÒÔ±ØÐëÒª·µ»ØÒ»¸öÖµ¡£
¡¡¡¡1£¬ÈÕÆÚ/ʱ¼äº¯Êý
¡¡¡¡ÕâЩº¯Êý°üÀ¨¶Ô“Äꔡ¢“Ô”¡¢“ÈÕ”¡¢“ʱ”¡¢“·Ö ......

[ASPÖÐʹÓÃÈý²ã¼Ü¹¹] 7.DataÀà

    µÚÈý¸öÀà,ÊÇÊý¾Ý¿âÁ¬½ÓÀà,Õâ¸ö¿ÉÒÔ¿´×öÊǸºÔð×îµ×²ãµÄÊý¾Ý¿â·ÃÎʵÄÒ»¸ö¶ÔÏó,²¢²»ÊôÓÚÊý¾Ý²ã. ËüÖ»ÊÇÒ»¸ö¹¤¾ß,¶ø²»Éæ¼°µ½ÈκιØÓÚÊý¾Ý¿âÄÚÈݵÄÂß¼­.
   
   
    ÔÙ´ÎÖØÉêÒ»ÏÂ,ÕâÈý¸öÀà,Ö»ÊÇÔÚASPÈý²ã¼Ü¹¹ÖеÄÈý´ó»ù±¾¶ÔÏó,ÏóÕâÖÖ¶ÔÏó,ÎÒÔÚ¾ßÌåµÄÒµÎñ ......

Win2003ÏÂAsp¡¢IISÅäÖü¼ÇÉ

 Win2003ÏÂAsp¡¢IISÅäÖü¼ÇÉ 
 ¡¡¡¡windows 2003·ÛÄ«µÇ³¡£¬ºÜ¶à¸Ïʱ÷ÖµÄÓû§ÒѾ­Ôç¾ÍÊÔÓÃÁË£¬µ«¾¡¹Ü2003ºÅ³Æ°²È«ÐÔÓкܴóÍ»ÆÆ£¬µ«ÆäĬÈÏÖ§³Ö.net¼Ü¹¹£¬¶øÅׯúʹÓÃÁ˺ܾõĴóÖÚ»¯µÄAspµÄ·Ïßȱ±¥ÊÜÖÊÒÉ£¬ÐèÒªÎÒÃÇÊÖ¶¯È¥ÅäÖúܶණÎ÷¡£
¡¡¡¡ÔÚ IIS 6.0 ÖУ¬Ä¬ÈÏÉèÖÃÊÇÌØ±ðÑϸñºÍ°²È«µÄ£¬ÕâÑù¿ÉÒÔ×î´óÏ޶ȵ ......

ASPÒþ²ØÏÂÔØµØÖ·

<%
Response.Buffer = true
Response.Clear
dim url
Dim fso,fl,flsize
dim Dname
Dim objStream,ContentType,flName,isre,url1
Dim strFileName
strFileName=replace(replace(Request("file"),"\",""),"/","")  '´«²Î
strFileName="/files/"&strFileName    ' ¸Ä³ÉÄãÄãÎļþµÄ´æ ......

ASP ³£ÓÃÕýÔò±í±í´ïʾ

Ö»ÄÜÊäÈë1¸öÊý×Ö
 
±í´ïʽ ^\d$
ÃèÊö Æ¥ÅäÒ»¸öÊý×Ö
Æ¥ÅäµÄÀý×Ó 0,1,2,3
²»Æ¥ÅäµÄÀý×Ó
 
Ö»ÄÜÊäÈën¸öÊý×Ö
 
±í´ïʽ ^\d{n}$  ÀýÈç^\d{8}$
ÃèÊö Æ¥Åä8¸öÊý×Ö
Æ¥ÅäµÄÀý×Ó 12345678,22223334,12344321
²»Æ¥ÅäµÄÀý×Ó
 
Ö»ÄÜÊäÈëÖÁÉÙn¸öÊý×Ö
 
±í´ïʽ ^\d{n,}$ ÀýÈç^\d{8, ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ