求一個去掉html代碼的asp函數

2006-09-08 10:36:08 169 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

RHCE 第二周作业 RHCE 第二周作业1.创建一个目录 /data2. 创建 user1，user2，user3 三个用户，要求如下：1）user1 家目录在 /data 目录下，该用户的描述为 testuser；2）user2 用户的 uid 应当为 2000 ；3）user3 用户应该使用 /sbin/nologin 这个登陆 shell功能快捷键合理的创建标题，有助于目录的生成如何改变文本的样式插入链接与图片如何插入一段漂亮的代码片生成一个适合你的列表创建一个表格设定内容居中、居左、居右SmartyPants创建阅读详情

使用<a href="mailto:">將一段包含html代碼的網頁內容調到outlook裡去，但在outlook裡顯示的不是網頁中的效果，而是直接顯示html代碼，都無法看，
不知用mailto怎麼可以在outlook裡顯示象網頁中的效果？如果不能,想求一去掉所有html代碼的asp函數？謝謝

...全文

吴恩达第二周编程作业及总结代码查看并处理数据 import numpy as np import matplotlib.pyplot as plt from lr_utils import load_dataset # lr_utils 是能加载下载好的数据集 datasets 的python文件 def get_data(): # 将数据加载 train_set_x_orig, train_set_y... 阅读详情

BILLSJONE

ASP 28,401 成员 356,940 内容

+ 关注 + 加入社区

切换为时间正序

BILLSJONE 2006-09-08

打赏
举报

<a href="mailto:sdf@sd.com?body=dfdsfs sdfsdfsdf">
有这样写代码的? 我还是闪人吧...
==============================================
有這樣寫的啊，
<a href="mailto:sdf@sd.com?body=dfdsfs sdfsdfsdf">發送郵件</a>
body的內容是從數據庫出讀取的，裡面包含html代碼，就是要在調用到outlook裡時去掉body的html代碼，

flyingsnowy 2006-09-08

打赏
举报

给我分。

BILLSJONE 2006-09-08

打赏
举报

謝謝，兩個函數都行，等一下結帖

zhangjincheng88 2006-09-08

打赏
举报

'--------------------------------------------------------------------
'去掉html标签，去掉换行
'--------------------------------------------------------------------
Function DropHtml(ByVal str1)
Dim regEx
Set regEx = New RegExp
regEx.Global = True
regEx.IgnoreCase = True
regEx.Pattern = "\n"
str1 = regEx.Replace(str1,"")
regEx.Pattern = "\r"
str1 = regEx.Replace(str1,"")
regEx.Pattern = "<script(.*?)>(.*?)<\/script>"
str1 = regEx.Replace(str1,"")
regEx.Pattern = "<(.+?)>"
str1 = regEx.Replace(str1,"")

DropHtml = str1
End Function

btbtd 2006-09-08

打赏
举报

<a href="mailto:sdf@sd.com?body=dfdsfs sdfsdfsdf">
有这样写代码的? 我还是闪人吧...

btbtd 2006-09-08

打赏
举报

要是以纯文本发送, 还得改一改

'显示纯文本内容(只提取 HTML 中的文本, 不提取标签)
function fPlainText(content)
if isNull(content) then exit function
set re1 = New regExp
re1.Global = true
re1.IgnoreCase = true

re1.Pattern = "<.*?>"
content = re1.Replace(content,"")

'if len(content)>200 then content=left(content,200)+"......"

re1.Pattern = "\r\n\s*"
content = re1.Replace(content,vbNewLine)
set re1=nothing
fPlainText=content
end function 'shawl.qiu'

BILLSJONE 2006-09-08

打赏
举报

郵件格式是設成html格式的，直接copy網頁內容到outlook裡去就會是網頁中的效果，
但是用mailto調用outlook就會直接顯示html代碼，沒有了網頁中的效果，
如:
<a href="mailto:sdf@sd.com?body=dfdsfs sdfsdfsdf">
這樣在outlook中會直接顯示html代碼，不能夠顯示粗體和換行

btbtd 2006-09-08

打赏
举报

对呀, 设置成 HTML 不就成了?

'显示纯文本内容(只提取 HTML 中的文本, 不提取标签)
function fPlainText(content)
if isNull(content) then exit function
set re1 = New regExp
re1.Global = true
re1.IgnoreCase = true

re1.Pattern = "<.*?>"
content = re1.Replace(content,"")

'if len(content)>200 then content=left(content,200)+"......"

re1.Pattern = "\r\n\s*"
content = re1.Replace(content," ")
set re1=nothing
fPlainText=content
end function 'shawl.qiu'

canning92 2006-09-08

打赏
举报

不知道你说什么，mailto可以这样，怎么说也应该是发送邮件啊

如是是发送邮件，你将邮件格式设为html不就OK了吗

求一個去掉html代碼的asp函數

相关推荐