救命呀！救命呀！救命呀！

syh555999 2003-10-22 02:33:05
我用asp编写了一个新闻发布系统如http://www.north-century.com/dhximeng.asp
当点击第一幅图（58新贵系列）时。名称、规格，里面的内容太多，我想做个限制让他门实现10个汉字。
可我就是实现不了着这效果。
谢谢！<!-- #include file="conn.asp" -->
<%
' 分页显示
set adorst=server.createobject("adodb.recordset")
dim lngwhichpage
dim lngpagecount
dim lngpreviouspage
dim lngnextpage
dim adoprovider
id_type=request("id_type")
lngwhichpage=request("whichpage")

'若为空，则转换为1
if lngwhichpage="" then
lngwhichpage=1
end if

'若输入的为非字数，则转换为1
if not isnumeric(lngwhichpage) then
lngwhichpage=1
end if

lngwhichpage=cint(lngwhichpage)

if lngwhichpage<1 then
lngwhichpage=1
end if

strsql="select * from news13 order by datetime desc"
Adorst.open strsql, conn, 1 ,3

%>
<HTML><HEAD><TITLE>世纪大和</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK href="images/style.css" type=text/css rel=stylesheet>
<META content="MSHTML 6.00.2600.0" name=GENERATOR>
<link href="1css.css" rel="stylesheet" type="text/css">
</HEAD>
<body background="images/didi.gif">
<div align="center"><span class="unnamed1">工业用灯具</span>
<table style="BORDER-COLLAPSE: collapse" bordercolor=#111111 height=180
cellspacing=0 cellpadding=0 width=500 align=center bgcolor=#ffffff border=0>
<tbody>
<tr>
<td width=570 valign=bottom background="images/didi.gif" style="BORDER-LEFT: medium none">
<table width=500 cellpadding=0
cellspacing=0 bordercolor=#111111 class="unnamed1" style="BORDER-COLLAPSE: collapse">
<tbody>
<tr class=9size valign=bottom bgcolor=#00ccff>
<td
style="BORDER-RIGHT: 1px solid; BORDER-TOP: 1px solid; BORDER-LEFT: 1px solid; BORDER-BOTTOM: 1px solid"
valign=center width="50" bgcolor=#99ccff height=18>
<div align="center">系列</div></td>
<td
style="BORDER-RIGHT: 1px solid; BORDER-TOP: 1px solid; BORDER-LEFT: 1px solid; BORDER-BOTTOM: 1px solid"
valign=center width="80" bgcolor=#99ccff>
<div align="center">编码</div></td>
<td
style="BORDER-RIGHT: 1px solid; BORDER-TOP: 1px solid; BORDER-LEFT: 1px solid; BORDER-BOTTOM: 1px solid"
valign=center width="165" bgcolor=#99ccff>
<div align="center">名称</div></td>
<td width="165" height=18
valign=center bgcolor=#99ccff
style="BORDER-RIGHT: 1px solid; BORDER-TOP: 1px solid; BORDER-LEFT: 1px solid; BORDER-BOTTOM: 1px solid">
<div align="center">规格</div></td>
<td width="40"
valign=center bgcolor=#99ccff
style="BORDER-RIGHT: 1px solid; BORDER-TOP: 1px solid; BORDER-LEFT: 1px solid; BORDER-BOTTOM: 1px solid">
<div align="center">图片</div></td>
</tr>
</tbody>
</table>
<div align="center"> <br>
<%
if (adorst.eof and adorst.bof) then
response.write ("没有符合条件的记录")
else
Adorst.pagesize=5
lngpagecount=Adorst.pagecount

if lngwhichpage>lngpagecount then
lngwhichpage=lngpagecount
end if
Adorst.absolutepage=lngwhichpage

lngpreviouspage=lngwhichpage-1
lngnextpage=lngwhichpage+1
if lngPreviousPage < 1 then
lngPreviousPage= 1
end if
if lngNextPage > lngPagecount then
lngNextPage= lngPagecount
end if
i=0
do while not Adorst.eof and i<Adorst.pagesize
%>
</div>
<table width=500 height=16 cellpadding=0
cellspacing=0 bordercolor=#111111 class="unnamed1" style="BORDER-COLLAPSE: collapse">
<tbody>
<tr bgcolor=#eaeaea>
<td
style="BORDER-RIGHT: 1px solid; BORDER-TOP: 1px solid; BORDER-LEFT: 1px solid; BORDER-BOTTOM: 1px solid"
valign=center width="50" height=19>
<div align="center"><span style="FONT-SIZE: 9pt">　</span><font
color=#0000ff><span style="FONT-SIZE: 9pt">
<%
if len(adorst("title"))>20 then
title=left(adorst("title"),20)+"..."
else
title=adorst("title")
end if
%>
<%=adorst("title")%></a> </span></font></div></td>
<td
style="BORDER-RIGHT: 1px solid; BORDER-TOP: 1px solid; BORDER-LEFT: 1px solid; BORDER-BOTTOM: 1px solid"
valign=center width="80">
<div align="center"><font
color=#0000ff><span style="FONT-SIZE: 9pt"><%=adorst("txt1")%></a></span></font></div></td>
<td
style="BORDER-RIGHT: 1px solid; BORDER-TOP: 1px solid; BORDER-LEFT: 1px solid; BORDER-BOTTOM: 1px solid"
valign=center width="165">
<div align="center"><font
color=#0000ff><span style="FONT-SIZE: 9pt"><%=adorst("txt2")%></span></font></div></td>
<td width="165" height=19
valign=center
style="BORDER-RIGHT: 1px solid; BORDER-TOP: 1px solid; BORDER-LEFT: 1px solid; BORDER-BOTTOM: 1px solid">
<div align="center"><%=adorst("content")%></div></td>
<td width="40"
valign=center
style="BORDER-RIGHT: 1px solid; BORDER-TOP: 1px solid; BORDER-LEFT: 1px solid; BORDER-BOTTOM: 1px solid">
<div align="center"><a href="xw_detail13.asp?id=<%=adorst("id")%>" target="_blank"><img src="admin/<%=adorst("pic1")%>" width="30" height="20"></div></td>
</tr>
</tbody>
</table>
<%
Adorst.movenext
i=i+1

loop
end if
%>
<div align="center"> </div>
<table width="500" border="0" cellspacing="0" cellpadding="0" height="23" align="left">
<tr>
<td> <table width="500" border="0" cellpadding="0" cellspacing="0" class="unnamed1">
<tr>
<td height="26" width="170" nowrap> <div align="center">第<font color="#FF0000">
<%=lngWhichpage%> </font>页/共<font color="#FF0000"> <%=lngpagecount%>
</font>页 </div></td>
<td height="26"> <table width="100%" border="0" cellpadding="0" cellspacing="0" class="unnamed1">
<tr>
<td width="70%" nowrap> <div align="center"><a href=<%="hyxw.asp?whichpage=" & 1%>>首页</a>　<a href=<%="hyxw.asp?whichpage=" & lngpreviouspage%>>上一页</a>　<a href=<%="hyxw.asp?whichpage=" & lngnextpage %>>下一页</a>
<a href=<%="hyxw.asp?whichpage=" & lngpagecount%>>末页</a></div></td>
<td width="30%" nowrap> <table width="100" border="0" align="center" cellpadding="0" cellspacing="0" class="unnamed1">
<tr>
<td width="55%" nowrap valign=top> <form name="form2" method="post" action="hyxw.asp">
<br>
<input type="text" name="whichpage" size="3" style="border: 1 solid #666633">
页 </form></td>
<td width="45%" nowrap> <input type="image" border="0" name="imageField2" src="images/to.gif" width="30" height="18" onClick="javascript:document.all.form2.submit();">
</td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</tbody>
</table>
</div>


</BODY></HTML>

...全文
58 8 打赏 收藏 转发到动态 举报
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
qdubit 2003-10-22
  • 打赏
  • 举报
 回复
if len(rs("字段名")) > 10 then
corp_corp=left(rs("字段名"),10)&"..."
else
corp_corp=rs("字段名")
end if
response.write corp_corp
coolboy0000love 2003-10-22
  • 打赏
  • 举报
 回复
楼上那些建议不知道你试了没有呢？
jgjgbb 2003-10-22
  • 打赏
  • 举报
 回复
你是想让们不管多少内容就显示10汉字吗:那就真么写吧.

假设你的标题有100个汉字,他的字段名是TITLE

<%IF LEN(RS("TITLE"))>10 THEN%>
<%=LEFT(RS("TITLE"),10)%>......
<%ELSE%>
<%=RS("TITLE")%>
<%END IF%>

不止到，是不是你需要的啊.:)我想也不用解释吧.
chenmei 2003-10-22
  • 打赏
  • 举报
 回复
if len(rs("字段名")) > 10 then
corp_corp=left(rs("字段名"),10)&"..."
else
corp_corp=rs("字段名")
end if
response.write corp_corp
N1rvana 2003-10-22
  • 打赏
  • 举报
 回复
而且
你在最后显示的时候仍然使用了这个：
<%=adorst("title")%>
这是处理前的数据啊，处理后的结果你不是保存在title这个变量里了吗？
应该是这样：<%=title%>
chenmei 2003-10-22
  • 打赏
  • 举报
 回复
if len(rs("字段名")) > 10 then
corp_corp=left(rs("字段名"),10)&"..."
else
corp_corp=rs("字段名")
response.write corp_corp
N1rvana 2003-10-22
  • 打赏
  • 举报
 回复
你的实现代码是这一段吧？
if len(adorst("title"))>20 then
title=left(adorst("title"),20)+"..."
else
title=adorst("title")
end if

ASP里面把一个汉字也看成是1个字符，长度为一个字节，这时用VBS自己的len，left函数是不行的，你可以用下面两个函数Strlength(str)和Strleft(Str,L)代替他们，就可以正确处理中文了。

Function Strlength(Str)
Temp_Str=Len(Str)
For I=1 To Temp_Str
Test_Str=(Mid(Str,I,1))
If Asc(Test_Str)>0 Then
Strlength=Strlength+1
Else
Strlength=Strlength+2
End If
Next
End Function

Function Strleft(Str,L)
Temp_Str=Len(Str)
For I=1 To Temp_Str
Test_Str=(Mid(Str,I,1))
Strleft=Strleft&Test_Str
If Asc(Test_Str)>0 Then
lens=lens+1
Else
lens=lens+2
End If
If lens>=L Then Exit For
Next
End Function
angelheavens 2003-10-22
  • 打赏
  • 举报
 回复
如果是纯汉字的话,你这个可以呀,有什么不对?
地震自救手册，关键时刻能救命！.docx
地震自救手册，关键时刻能救命！.docx
经济的救命稻草：上线！
经济的救命稻草：上线！
2019年12月大学英语六级救命词.pdf
六级最重要最高频的必背救命300词！！ 六级必过！！加油！！
2019大学英语四级300救命词.pdf
四级最重要最高频的必背救命300词！！ 六级也可以看看！！
四类儿童安全事故频发这些救命法则要牢记！.docx
四类儿童安全事故频发这些救命法则要牢记！.docx
ASP

28,391

社区成员

357,060

社区内容

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章