asp 如何讀取文章的前 200 個單詞，然後自動新增固定簡訊

==按函式名稱：RemoveHTML

目的：從 HTML iframe 中刪除了有害字元。

引數：originstr（待處理的字串）removelevel（刪除級別 0：刪除所有 1：僅刪除 iframe，2：刪除 iframe，js 3：刪除有害字元）。

public function removehtml(byval originstr,byval removelevel)

dim str,reg

str=originstr

on error resume next

set reg=new regexp

select case removelevelcase 0

str = , "")

case 1

str = ,"")

case 2

str = , "")

str = ,"")

case 3

[^\s\w]"

str = ,"")

end select

set reg = nothing

removehtml=str

end function

====截斷字元大小***************==函式 cutstr（tempstr，tempwid）if len（tempstr）>tempwid thencutstr=left（tempstr，tempwid）&"..."

elsecutstr=tempstr

end if

end function

重複使用它。

if len(rs("title"))>200 thenleft(rs("title"),200)&rs("title")

end if

如果你想新增乙個來刪除html標籤，只需新增它。

losehtml(len(rs("title")))

如果你能確定你的文章內容只是。

這個標籤很容易做到，先按標籤作為分隔符，把文章的內容放到乙個陣列裡，然後檢查字數。

直接新增簡訊以執行此操作：

left(str,200)&"要新增的文字資訊"

我想知道是不是這樣？

dim txt

txt="SQL 表示式是構成全部或部分 SQL 語句的字串。

例如，FindFirst 方法對 RecordSet 物件使用乙個 SQL 表示式，該表示式由 SQLWHERE 子句中的選擇條件組成。 Microsoft Jet 資料庫引擎利用 Visual Basic for Applications （VBA） 執行簡單的算術和函式計算。

用於 Microsoft Jet SQL 表示式的所有運算子（Between、In 和 Like 除外）都由 VBA 表示式服務定義。

此外，VBA 表示式服務提供了 100 多個可在 SQL 表示式中使用的 VBA 函式。

例如，可以使用這些 VBA 函式在 Microsoft Access 查詢設計檢視中構造查詢，還可以將這些函式用於 DAO OpenRecordSet 方法、Microsoft Visual C++、Microsoft Visual Basic 和 Microsoft Excel 編碼。 Microsoft Visual Basic 和 Microsoft Excel**。 "

text=replace(txt,"跟"|"更換。

作為分隔符。

text=replace(replace(replace(replace(text,"chr（34）），替換了文字中的 HTML。

arr=split(text,"|按文字"|"分離後，放入陣列arr中。

for i=0 to ubound(arr) '遍歷 arr 陣列，陣列的第乙個數字是 arr（0）。

s=replace(replace(replace(replace(arr(i),"chr(34),"盲橋團"要加入的資訊。

還原替換的 HTML 並新增資訊。

s&"'輸出內容。 next

它能解決你的問題嗎？

如果你不需要br來獲得登山的果實，請用以下**覆蓋這部分。 儲存以重新整理並檢視：

function htmlencode(str)

dim result

dim lif isnull(str) then

htmlencode=""

exit function

end if

l=len(str)

result=""

dim ifor i = 1 to l

select case mid(str,i,1)

case "<

result=result+"<

case ">

result=result+">

case chr(13)

result=result

case chr(34)

result=result+""

case "&

result=result+"&

case chr(32)

result=result+"

if i+1<=l and i-1>0 then

if mid(str,i+1,1)=chr(32) or mid(str,i+1,1)=chr(9) or mid(str,i

1,1)=chr(32) or mid(str,i-1,1)=chr(9) then

result=result+"

elseresult=result+"笑哈哈。

end if

elseresult=result+"

end if

case chr(9)

result=result+"

case else

result=result+mid(str,i,1)

end select

next htmlencode=result

end function

function htmlencode2(fstring)

fstring = replace(fstring, "

fstring = replace(fstring, "

fstring = replace(fstring, "chr(13))

fstring = replace(fstring, "chr(34))

fstring = replace(fstring, "德賀&")

fstring = replace(fstring, "chr(32))

htmlencode2 = fstring

end function

k=trim(mid(k,1,400) )"……" &"[閱讀更多]。"

其中？ id="&id&"將其更改為顯示詳細資訊頁面的 asp 檔案和引數。

讀出文章的標題並新增它。

它可以替換為常規程式碼，例如下面的**可以替換乙個和所有後續字元<%。

str=""

dim regex

set regex=new regexp

a.*"false

str=,"00000")

aaa="&str

正文前後的內容是什麼？

您必須有乙個要過濾的模式，例如過濾空間。

如果存在模式，則可以使用正規表示式篩選。

**標籤一般是這樣的。

你可以根據正規表示式來匹配它，如果可以匹配，它會包含**，如果你不能匹配，那麼它就是文字新聞。

至於如何與正規表示式匹配，以及上面的正規表示式如何編寫，那麼請檢視相關資訊。

在提問者的要求下，我把程式寫成乙個函式，把這個函式放在需要識別書名的頁面上，在函式之後講解用法。

function booknamelink(ss)

dim ss2,ss2arr

刪除空標題。

ss = replace(ss,"《》","")

之所以將書名編號替換為相同的，方便使用split，而使用變數ss2，是因為在處理字串時不會破壞原來的sss

ss2 = replace(ss,"》","《")

將字串拆分成乙個陣列，根據字串，很容易看出陣列中書名的下標都是奇數。

ss2arr=split(ss2,"《")

ss2 為 null。

ss2 = ""

如果文章包含書名編號，則可以獲取書名。

if instr(ss,"《") >0 then

將書名儲存在 ss2 變數中，然後使用“||”。分開。

for i = 1 to ubound(ss2arr) step 2

if ss2 <>"" then ss2 = ss2 & "|||"

ss2 = ss2 & ss2arr(i)

nextend if

如果 SS2 不為空，則表示已成功獲取書名。

if ss2 <>"" then

ss2arr=split(ss2,"|||")

使用 for 迴圈逐個替換書名。

for i = 0 to ubound(ss2arr)

&ss2arr(i)&"》")

nextend if

booknamelink=ss

end function

以下是如何使用它。

testtext = "這本書叫做《蒼穹的昴宿星團》。 大家可以看一看，還有一本非常好的書，名字叫《老子》，寬廣而深刻。 "

執行此句子後，testtext 中的字串就是您需要的字串。

testtext =booknamelink(testtext)

replace"“天成八師和天龍八師'"> 天龍八部"

一樓只能換乙個天龍八部。 其餘的他都無法改變。 正確的方面是使用正規表示式！ 規律中有很多東西！ 你看，你不需要太多，你可以很快學會！

將書名編號替換為已取值！

舉個例子，更改 aa 變數以讀取資料庫中的變數：

aa="我最喜歡的是《龍八部》這本書！ 天龍八步， 天龍八步"

aa=replace(aa,"天龍八步， 天龍八步'> 天龍八部")aa%>

首先，統計文章中的字數，然後使用 loop 語句和 mid 函式來實現它。

看看你的資料庫是怎麼設計的，我覺得文章應該按頁儲存在資料庫裡，而不是把全文放在乙個條乙個條的記錄裡，這裡可以直接分頁，如果你把它放在乙個記錄的字段裡，就需要擷取字串來分頁。

使用 SQL 進行分頁速度更快。

拜託，有那麼複雜嗎？ 在。 net2005（或 2003）中沒有 datagird 或 girdview 控制項嗎？

這兩個控制項可以自動分頁，但您可以在沒有它的情況下進行優化以進行自定義分頁！ 如果您使用其自動分頁，則可以在頁面事件中設定當前頁面標籤！

至於樣式，可以是上下頁樣式，也可以是12345，也可以自定義！ 如果資料量大，可能會占用太多記憶體，所以建議與SQL分頁交錯使用！