我要做文章阅读网站。用asp+access来做。怎样截取文章的文字？请指教。谢谢了！

Question

我要做文章阅读网站。用asp+access来做。现在我想截取每篇文章的前面30个字符串来简介每篇文章。然后在第30个字后加上“阅读全文”做链接从而阅读全篇文章。要怎样的代码。而且要能遇到数字或字母时要能自动截取两个数字或两个字母作为一个字符串。而遇到中文时自动截取一个文字作为一个字符串。请各位热心人、好心人、内行人给出详细的代码。谢谢了！

Answer 1

function sc_left(str,strlen) ‘str是你要截取的文章，strlen是你要的长度，比如30
if str="" then
sc_left=""
exit function ’如果为空退出
end if
dim l,t,c, i
l=len(str)
t=0
for i=1 to l ‘从第一个字符开始循环到你文章结。
c=Abs(Asc(Mid(str,i,1))) ’这是返回ascII码，大于255的就计算为2
if c>255 then ‘这是非字母数字，加2
t=t+2
else
t=t+1 ‘字母数字
end if
if t>=strlen*2 then ’30*2=60，因为你要30个字，我理解为汉字，那么字母就数字就要加倍。
sc_left=left(str,i) & "…"
exit for
else
sc_left=str
end if
next
end function
ps: 如果你的文章里面有空格什么的，请转换 ,如replace(str," "," ")

Answer 2

死神