imports system.data
imports system.text.regularexpressions
imports system.data.oledb
public class showarticle
inherits system.web.ui.page
#region " web 窗體設計器生成的** "
'該呼叫是 web 窗體設計器所必需的。
private sub initializecomponent()
end sub
protected withevents lbltitle as system.web.ui.webcontrols.label
protected withevents lblcontent as system.web.ui.webcontrols.label
'注意: 以下佔位符宣告是 web 窗體設計器所必需的。
'不要刪除或移動它。
private designerplaceholderdeclaration as system.object
private sub page_init(byval sender as system.object, byval e as system.eventargs) handles mybase.init
'codegen: 此方法呼叫是 web 窗體設計器所必需的
'不要使用**編輯器修改它。
initializecomponent()
end sub
#end region
private sub page_load(byval sender as system.object, byval e as system.eventargs) handles mybase.load
'在此處放置初始化頁的使用者**
dim strarticleid as string
strarticleid = request("articleid")
dim myarticle as new accessdb
dim myreader as oledbdatareader
dim mystrtitle as string
myreader = myarticle.executesqlstrdetails("select * from portal_articles where articleid=" + strarticleid + ";")
if myreader.read then
mystrtitle = myreader("title")
if strlen(mystrtitle) > 20 then
mystrtitle = gottopic(mystrtitle, 20)
end if
lbltitle.text = mystrtitle
lblcontent.text = htmlencode(myreader("content"))
end if
end sub
function htmlencode(byval restring as string) '轉換html**
dim str as string = restring
if str.length > 0 then
str = replace(str, ">", ">")
str = replace(str, "<", "<")
str = replace(str, chr(9), " ")
str = replace(str, chr(39), "'")
str = replace(str, chr(34), """)
str = replace(str, chr(13), "")
str = replace(str, chr(10), "
")htmlencode = str
end if
end function
'得到字串長度
function strlen(byval str as string) as integer
dim p_len as integer
dim xx as integer
p_len = 0
strlen = 0
if trim(str) <> "" then '去掉空格
p_len = len(trim(str))
for xx = 1 to p_len
if asc(mid(str, xx, 1)) < 0 then
strlen = int(strlen) + 2
else
strlen = int(strlen) + 1
end if
next
end if
end function
'得到標題,如果多於strlen寬度,則以...顯示
function gottopic(byval str as string, byval strlen1 as string) as string
dim l, t, c, i as integer
l = len(str)
t = 0
for i = 1 to l
c = math.abs(asc(mid(str, i, 1)))
if c > 255 then
t = t + 2
else
t = t + 1
end if
if t >= strlen1 then
gottopic = left(str, i) & "..."
exit for
else
gottopic = str & " "
end if
next
end function
function removehtml(byval str) as string '過濾html格式
dim re as regex
str = re.match(str, "(\<.[^\<]*\>)")
str = re.replace(str, " ")
str = re.match(str, "(\<\/[^\<]*\>")
str = re.replace(str, "")
removehtml = str
re = nothing
end function
end class
今天的學習內容摘要
最近在學習vpf6版本比較低.不過我這裡都是用的這個版本.要寫乙個採購系統,今天才寫到 請購 這一塊.dodefault if enpty this.value return f.endif 自動生成當天日期 由當天日期生成請購單號 local old old alias ddd thisform....
如何擷取html的子字串作為內容摘要
在一些web應用中，如新聞 日誌等需要在其列表中提供摘要資訊，有些cms系統中提供了摘要字段，在新聞發布時手動填寫，但更為便捷的方式是直接擷取內容的前面一段作為摘要資訊。如果內容為純字元型，不帶任何格式，那便好辦，直接取其前n個字元即可，但如果內容為html 且不一定能保證html 一定符合規範，那...
PHPCMS內容頁文章標題新增頁碼的方法教程
如何讓phpcms的內容頁標題顯示頁碼呢？形如 引用內容第一頁 phpcms教程中心 給phpcms內容頁新增頁碼 第二頁 phpcms教程中心 給phpcms內容頁新增頁碼 2 第三頁 phpcms教程中心 給phpcms內容頁新增頁碼 3 第四頁 phpcms教程中心 給phpcms內容頁新增頁...