原主题：http://bbs.dvbbs.net/dispbbs.asp?boardID=13&ID=932082 (2楼)
第一：修改admin/boardsetting.asp,增加boardsetting(67)设置：
在贴子内容最小设置后面加入：
<tr>
<td colspan=2 class=ForumrowHighlight>
<U>贴子引用内容最大字节</U><BR>1024字节等于1K</td>
<td colspan=2 class=ForumrowHighlight>
<input type=text size=10 name="Board_Setting(67)" value="<%=Board_Setting(67)%>"> 字节数(Bytes)
</td>
<td class=Forumrow></td>
</tr>
<td colspan=2 class=ForumrowHighlight>
<U>贴子引用内容最大字节</U><BR>1024字节等于1K</td>
<td colspan=2 class=ForumrowHighlight>
<input type=text size=10 name="Board_Setting(67)" value="<%=Board_Setting(67)%>"> 字节数(Bytes)
</td>
<td class=Forumrow></td>
</tr>
67是动网保留的设置，大家也可以结合第三步，跳过这一步的设置。
第二：修改POST.asp，增加strLeft函数：
''引用回复外加函数(stardy add)
Function StrLeft(Str,L)
If (L+70)>=Dvbbs.strLength(Str) Then StrLeft=Str : Exit Function
Dim I,AscValue,s1
StrLeft=""
on error resume next
For I=1 To L
s1=Mid(Str,I,1)
AscValue=Asc(s1)
If Err or AscValue<32 and AscValue>0 Then
Err.clear : L = L + 1
Else
If AscValue<0 Or AscValue>255 Then L=L-1
End If
StrLeft=StrLeft&s1
Next
End Function
Function StrLeft(Str,L)
If (L+70)>=Dvbbs.strLength(Str) Then StrLeft=Str : Exit Function
Dim I,AscValue,s1
StrLeft=""
on error resume next
For I=1 To L
s1=Mid(Str,I,1)
AscValue=Asc(s1)
If Err or AscValue<32 and AscValue>0 Then
Err.clear : L = L + 1
Else
If AscValue<0 Or AscValue>255 Then L=L-1
End If
StrLeft=StrLeft&s1
Next
End Function
第三：修改Post.asp，在416行左右(If Dvbbs_Mode=2 Then)前面插入以下代码：
If Dvbbs.Board_Setting(67)="0" or not isNumeric(Dvbbs.Board_Setting(67)) Then Dvbbs.Board_Setting(67)=200 ''如果大家不想改后台的，可以用数字默认。
If Dvbbs.strLength(Content)>clng(Dvbbs.Board_Setting(67))+70 and clng(Dvbbs.Board_Setting(67))>0 Then
Content = Ubb2Html(strLeft(Content,clng(Dvbbs.Board_Setting(67))))&"<br>……<div style=''color:green''><i>---原文内容共 <b>"&Dvbbs.strLength(Content)&"</b> 字节，此处引用 <b>"&Dvbbs.Board_Setting(67)&"</b> 字节，其余省略</i></div>"
End If
If Dvbbs.strLength(Content)>clng(Dvbbs.Board_Setting(67))+70 and clng(Dvbbs.Board_Setting(67))>0 Then
Content = Ubb2Html(strLeft(Content,clng(Dvbbs.Board_Setting(67))))&"<br>……<div style=''color:green''><i>---原文内容共 <b>"&Dvbbs.strLength(Content)&"</b> 字节，此处引用 <b>"&Dvbbs.Board_Setting(67)&"</b> 字节，其余省略</i></div>"
End If
