大家帮我改一下代码

2007-05-25 07:51:59 374 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

OpenSceneGraph编译、安装、开发环境详细描述WIndows 10下使用Visual Studio 2019编译OpenSceneGraph 3.6.5的操作流程阅读详情

功能是做一个排行榜，如果标题长度大于10就取子串，后面加…
我写的这个怎么去不准阿，而且都加…

<%
dim str
str=len(rs("softName"))
if str>10 then
response.Write left(rs("softName"),10)&"…"
else response.Write rs("softName")
end if
%>

谢谢各位啦

...全文

即梦 AI 全功能零基础详细教程（纯技术版）即梦 AI 是一款多模态 AI 生成工具，主打文本生成视频、图片生成视频、角色一致性生成、音画同步等核心功能，依托自研 AI 视觉模型，实现从文本 / 图片 / 音频素材输入，到高清视频、图像内容输出的全流程 AI 创作，支持短视频、短剧、创意素材等多场景创作，具备操作门槛低、生成效率高、画面可控性强的技术特点。@为工具内置引用指令，作用是锁定指定素材 / 角色，强制 AI 按照该素材的核心特征生成内容，无额外付费、解锁要求，免费使用。剧本拆分：将短剧拆分为单镜头（15 秒内 / 个）阅读详情

radiumwong

vbScript 4,008 成员 3,512 内容

+ 关注 + 加入社区

切换为时间正序

knowledge_Is_Life 2008-05-01

打赏
举报

关注接分

snlixing 2007-06-02

打赏
举报

<%if len(trim(rs("softName")))>10 then response.write left(rs("softName"),10)&"……"
else
response.write rs("softName")
end if

lovebaby 2007-06-02

打赏
举报

我也来一个：

'**************************************************
'函数名：gotTopic
'作用：截字符串，汉字一个算两个字符，英文算一个字符
'参数：str ----原字符串
' strlen ----截取长度
'返回值：截取后的字符串
'**************************************************
function gotTopic(str,strlen)
if str="" then
gotTopic=""
exit function
end if
dim l,t,c, i
str=replace(replace(replace(replace(str," "," "),""",chr(34)),">",">"),"<","<")
l=len(str)
t=0
for i=1 to l
c=Abs(Asc(Mid(str,i,1)))
if c>255 then
t=t+2
else
t=t+1
end if
if t>=strlen then
gotTopic=left(str,i) & "…"
exit for
else
gotTopic=str
end if
next
gotTopic=replace(replace(replace(replace(gotTopic," "," "),chr(34),"""),">",">"),"<","<")
end function

Mapleleaf123 2007-05-28

打赏
举报

Function InterceptString(txt,length)
dim x,ii,y
txt=trim(txt)
x = len(txt)
y = 0
if x >= 1 then
for ii = 1 to x
if asc(mid(txt,ii,1)) < 0 or asc(mid(txt,ii,1)) >255 then
y = y + 2
else
y = y + 1
end if
if y >= length then
txt = left(trim(txt),ii)&"..."
exit for
end if
next
InterceptString = txt
else
InterceptString = ""
end if
End Function

waitxing 2007-05-28

打赏
举报

str=len(rs("softName"))
----------------------
在这一句下面加上这句
response.write str
看看取的值是否正确。

Jinglecat 2007-05-25

打赏
举报

跟踪一下看看～

大家帮我改一下代码

相关推荐