asp»ù±¾
VBSCRIPT±ê¼ÇË÷Òý
»ù±¾ÔËËã
+ Êý×Ö¼Ó·¨¼°×Ö·û´®Á¬½Ó
- Êý×Ö¼õ·¨
* Êý×ֳ˷¨
/ Êý×Ö³ý·¨
Mod ÇóÓàÊý
\ ÇóÉÌÊý
& ×Ö·û´®Á¬½Ó
^ ´Î·½
= ÏàµÈ
£¼£¾ ²»ÏàµÈ
£¾= ´óÓÚ»òµÈÓÚ
£¾ ´óÓÚ
£¼= СÓÚ»òµÈÓÚ
£¼ СÓÚ
Not ·Ç
And ÇÒ
Or »ò
Xor Òì»ò
Ñ»·¼°¾ö²ß
if ....then Èô...Ôò...
if ...then...else Èô...Ôò...·Ç
else if... ·ÇÈô
select case... Ⱥ×éÑ¡ÔñÌõ¼þ
end select
for ... next ¼ÆÊýÑ»·
while...wend Ìõ¼þÑ»·(Ò»)
do while...loop Ìõ¼þÑ»·(¶þ)
do...loop while Ìõ¼þÑ»·(Èý)
do until...loop Ìõ¼þÑ»·(ËÄ)
do...loop until Ìõ¼þÑ»·(Îå)
Êýѧº¯Êý
Abs ¾ø¶ÔÖµ
Sgn Õý¸ººÅ
Hex ת»»³ÉÊ®Áù½øÖÆ
Oct ת»»³É°Ë½øÖÆ
Sqr ƽ·½¸ù
Int È¡ÕûÊý
Fix È¡ÕûÊý
Round È¡ÕûÊý
Log ÒÔeΪµ×µÄ¶ÔÊý
Sin ÕýÏÒº¯Êý
Cos ÓàÏÒº¯Êý
Tan ÕýÇк¯Êý
×Ö·û´®´¦Àíº¯Êý
Len ×Ö·û´®³¤¶È
Mid È¡²¿·Ö×Ö·û´®
Left ´Ó×Ö·û´®¿ªÍ·È¡²¿·Ö×Ö·û´®
Right ´Ó×Ö·û´®½áβȡ²¿·Ö×Ö·û´®
Lcase ת»»³ÉСд
Ucase ת»»³É´óд
Trim Çå³ý×Ö·û´®¿ªÍ·¼°½áβµÄ¿Õ¸ñ·û
Ltrim Çå³ý×Ö·û´®¿ªÍ·¿Õ¸ñ·û
Rtrim Çå³ý×Ö·û´®½áβ¿Õ¸ñ·û
Replace Ìæ»»×Ö·û´®²¿·Ö×Ö·û
Instr ÅжÏÊÇ·ñ°üº¬ÓÚÁíÒ»¸ö×Ö·û´®(´ÓÆðʼËÑÑ°)
InstrRev ÅжÏÊÇ·ñ°üº¬ÓÚÁíÒ»¸ö×Ö·û´®(´Ó½áβËÑÑ°)
Space ÈÎÒâ×Ö·ûÊýµÄ¿Õ¸ñ·û
String ÈÎÒâ×Ö·ûÊýµÄÈÎÒ»×Ö·û
StrReverse ·´×ª×Ö·û´®
Split ÒÔij×Ö·û·Ö¸î×Ö·û´®
Êý¾ÝÀàÐÍת»»º¯Êý
Cint ת»»³ÉÕûÐÎ
Cstr ת»»³É×Ö·û´®
Clng ת»»³É³£ÕûÊý
Cbool ת»»³É²¼¶ûº¯Êý
Cdate ת»»³ÉÈÕÆÚº¯Êý
CSng ת»»³Éµ¥¾«¶È
CDbl ת»»³ÉË«¾«¶È
ÈÕÆÚʱ¼äº¯Êý
Date ÏÖÔÚÈÕÆÚ
Time ÏÖÔÚʱ¼ä
NOw ÏÖÔÚÈÕÆÚʱ¼ä
DateAdd Ôö¼ÓÈÕÆÚ
DateDiff Á½ÈÕÆÚ²î
DateSerial ÈÕÆÚÉ趨
DateValue ÈÕÆÚÉ趨
Year ÏÖÔÚÄê·Ý
Month ÏÖÔÚÔ·Ý
Day ÏÖ
Ïà¹ØÎĵµ£º
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%response.ContentType ="application/vnd.ms-excel"
%>
<%
Set xlApplication = Server.CreateObject("Excel.Application") 'µ÷ÓÃexcel¶ÔÏó
xlApplication.Visible = False 'ÎÞÐè´ò¿ªexcel
xlApplication.SheetsInN ......
´úÂëÈçÏ£º
Function RemoveHTML(strText)
Dim RegEx
Set RegEx = New RegExp
RegEx.Pattern = "<[^>]*>"
RegEx.Global = True
RemoveHTML = RegEx.Replace(strText, "")
RemoveHTML = replace(RemoveHTML," "," ")
End Function
ÕâÊÇ×î»ù±¾µÄÕýÔòÌæ»»£¬ÓÐijЩÌØÊâ×Ö·û»¹Ã»¹ýÂË£¬¿É×ÔÐÐÌí¼Ó ......
¡¡¡¡ J2MEÊÇÀûÓÃHttpConnection½¨Á¢HTTPÁ¬½Ó£¬È»ºó»ñÈ¡Êý¾Ý£¬ASPÒ²ÊÇÀûÓÃHTTPÐÒ飬Òò¶ø¿ÉÒÔÀûÓÃJ2MEÓëASP½¨Á¢Á¬½Ó£¬´Ó¶ø·ÃÎÊÊý¾Ý¿â¡£
¡¡¡¡ ASPÊÇMicroSoft¹«Ë¾µÄ·þÎñÆ÷¶Ë¶¯Ì¬Ò³Ãæ¼¼Êõ£¬¿ÉÒÔ¸ù¾ÝÇëÇóÔËÐзþÎñÆ÷¶Ë³ÌÐòÈ»ºó·µ»Ø½á¹û£¬ÕâÒ²¸øMIDPÌṩºÜ¶àÓÐÓõŦÄÜ¡£ÓÉÓÚMIDP¿Í»§¶Ë´¦ÀíÄÜÁ¦²»Ç¿£¬Òò´Ë¿ÉÒÔ°ÑһЩ´¦ÀíÈÎÎñ·ÅÔ ......
<%
'*******************************************************
'º¯ÊýÃû£ºCreateFolder(sPath)
'×÷ ÓÃ: ´´½¨Ä¿Â¼
'²Î Êý£ºsPath : ´´½¨µÄÏà¶ÔĿ¼·¾¶
& ......