Question

asp新闻发布系统中标题限制字数

<%
set rs = server.createobject("adodb.recordset")
sql="select ID,NewsName"&LangData&",SortID,AddTime from NwebCn_News where SortID=19 order by id desc"
rs.open sql,conn,1,1
response.write"<table width='100%' border='0' cellspacing='0' cellpadding='0'>"
response.write "<tr><td height='0'></td></tr>"
if rs.bof and rs.eof then
response.write "<tr><td align='center'>暂无相关信息</td></tr>"
else
for i=1 to 4
if rs.eof then exit for
if StrLen(rs("NewsName"&LangData))<=48 then
NewsName=rs("NewsName"&LangData)
else
NewsName=StrLeft(rs("NewsName"&LangData),46)
end if
if now()-rs("AddTime")<=2 then
NewFlag=" <img src='Images/New_01.gif'>"
else
NewFlag=""
end if
response.write"<tr ><td class='ListTitle' height=20>  <img border=0 src=Skins/images/ji01.gif width=3 height=3 align=absmiddle>  <a href='NewsView.asp?ID="&rs("id")&"&SortID="&rs("SortID")&"'>"&NewsName&"</a>"&NewFlag&"</td></tr>"
rs.movenext
next
end if
response.write "<tr><td height='0'></td></tr>"
response.write"</table>"
rs.close
set rs=nothing
%>
标题太长了,.如何来限制呢

Answer 1

if StrLen(rs("NewsName"&LangData))<=48 then
NewsName=rs("NewsName"&LangData)
else
NewsName=StrLeft(rs("NewsName"&LangData),46)
end if

修模腔改察备这断为：
if StrLen(rs("NewsName"&LangData))<=20 then
NewsName=rs("NewsName"&LangData)
else
NewsName=StrLeft(rs("NewsName"&LangData),18)
end if

主要是20 和 18 这两位置的数字来控制着

楼上的，你怎么知道人败码毁家StrLen函数和len函数是一样的嘛？ 猜的也要写个猜字嘛

Answer 2

if StrLen(rs("NewsName"&LangData))<=48 then '如果小洞信于48(24个汉字)
NewsName=rs("NewsName"纳团轮&LangData)
else
NewsName=StrLeft(rs("NewsName"&LangData),46) '左边开始46个字
end if

这已经限或轮制了

Answer 3

if len(标题内容变量)>50 then
response.write("<script>alert('标题内容不芦液燃能大于50个字符!'陪虚)</script>")
else
你要执行的效埋答果
end if