ASPÒÆ³ýËùÓÐHTML´úÂëµÄº¯Êý
´úÂëÈçÏ£º
Function RemoveHTML(strText)
Dim RegEx
Set RegEx = New RegExp
RegEx.Pattern = "<[^>]*>"
RegEx.Global = True
RemoveHTML = RegEx.Replace(strText, "")
RemoveHTML = replace(RemoveHTML," "," ")
End Function
ÕâÊÇ×î»ù±¾µÄÕýÔòÌæ»»£¬ÓÐÄ³Ð©ÌØÊâ×Ö·û»¹Ã»¹ýÂË£¬¿É×ÔÐÐÌí¼Ó£¡
È磺
RemoveHTML = Replace(RemoveHTML," ","")
Ïà¹ØÎĵµ£º
ASPÀà
£½£½£½£½£½£½£½£½£½
ʹÓÃVBSµÄASPÒ²Äܶ¨ÒåÀàµÄ£¡±¾ÎĽ«½éÉܶ¨Ò塢ʹÓÃÀàµÄ»ù±¾·½·¨¡£
ÔÚASP£¨ÌØÖ¸Ê¹ÓÃVBSµÄASP£¬ÏÂͬ£©ÀʹÓÃClassÓï¾äÀ´ÉùÃ÷Ò»¸öÀà¡£Óï·¨ÈçÏ£º
Class ˈ̞
End Class
ÀàµÄ¶¨Òå¡¢±äÁ¿¡¢ÊôÐԺͷ½·¨µÈ¶¼°üº¬ÔÚClass...End Class¿éÖС£
ÏÂÃæ¾Í¿ÉÒÔ¶¨ÒåÀàµÄÊôÐԺͷ½·¨ÁË¡£Õýʽ½²ÊôÐÔ¡¢·½·¨µ ......
ASPÈçºÎÁ¬½ÓÊý¾ÝÔ´£¿(ϵͳDSN)Öн¨Á¢µÄÊý¾ÝÔ´£¿
ASPÔõô½¨Á¢Á¬½Ó£¬²»ÊÇOLEDB·½Ê½£¬ÓÃODBCÖеēÓû§DSN”½¨Á¢µÄÊý¾ÝÔ´½øÐÐÁ¬½Ó£¿ÈçºÎ²Ù×÷£¿
ÎÊÌâ²¹³ä£ºÎÒµÄÊÇODBCÖеēÓû§DSN”²»ÊǓϵͳDSN”£¬“Óû§DSN”ÔõôÁ¬½Ó£¿¶øÇÒÎÒµÄÊý¾Ý¿âÓÐÃÜÂë¡£
ÌáÎÊÕߣºÄäÃû
×î¼Ñ´ð°¸
Set co ......
aspÁ¬½ÓaccessºÍmssqlµÄÍòÄÜ´úÂ룺
'½â¾öÁËACCESSÊý¾Ý¿â·¾¶µÄÎÊÌ⣡
'²ÉÓÃDBType=0»òDBType=1À´Çø·ÖAC¿â»¹ÊÇMSSQL¿â
'¾ßÌå²ÉÓÃAC¿âʱӦעÒâµÄÊÂÏÇë¿´³ÌÐò˵Ã÷
-----------------------------------------------
Dim DBType,Conn,StrConn
DBType=0 '0ΪAccessÊý¾Ý¿â£¬1ΪMSSQLÊý¾Ý¿â
If(DBType=0) Then
......
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
if Request("MailtoAddress") <> "" then
¡¡¡¡¡¡¡¡msg = SendMail
(Request("SMTPServer"),Request("SMTPServerUserName"),Request("SMTPServerPassword"),
Request("MailDom ......
http://www.w3school.com.cn/asp/met_mappath.asp
¶¨ÒåºÍÓ÷¨
MapPath ·½·¨¿É°ÑÖ¸¶¨µÄ·¾¶Ó°Éäµ½·þÎñÆ÷ÉÏÏàÓ¦µÄÎïÀí·¾¶ÉÏ¡£
×¢ÊÍ£º´Ë·½·¨²»ÄÜÓÃÓÚ Session.OnEnd ºÍ Application.OnEnd ÖС£
ʵÀý
ʵÀý 1
¾ÙÀý£¬Îļþ test.asp λÓÚ C:\Inetpub\wwwroot\Script¡£
Îļþ Test.asp (λÓÚ C:\Inetpub\wwwroot\Script) °üº ......