主题:  "加"在何方

changxiang
职务：普通成员
等级：1
金币：0.0
发贴：19
注册：2001/8/9 20:51:15
#12001/8/12 14:58:11
朋友：
你好！
我现在有一个新闻发布系统，但是只能显示出[A]在[B]中发布了[C]信息，这样一条一条的；
我想在数据表中加一个字段[D]，（ABCD均为同一个Access表中的字段）D在浏览器上不显示，当单击[C]链接时，弹出显示D信息的另外一个窗口，基于这个系统，想用" >（向别人请教的）加到原来的代码中，但一看，它和一般的不同，我没法子了，下面是它的源码，请大家帮忙，应该对此作何修改，畅想在此先谢了！

<%
nowline=0
i=1
nowposition=1
do while (nowposition<=ALLRECORD) and (nowline news.AbsolutePosition=nowposition
nowposition=nowposition+1
thisdate=news("dates")
if left(thisdate,2)="00" then thisdate="20"&thisdate
thistitle=news("title")
thissays=news("says")

response.write ""&"  " & thisdate &"  在["&thistitle&"]栏中信息>>>"&"
"
nowline=nowline+1
response.write ""
tmpch=""
strpos=1
searchcomplet=FALSE
do while (nowline tmpstr=""
i=1
do while i<=MYWIDTH and nowline<=MYHEIGHT
tmpch=mid(thissays,strpos,1)
if tmpch="" then        '字符串搜索完毕则退出循环
searchcomplet=TRUE
exit do
end if
ascch=asc(tmpch)
i=i+1
if ascch<0 then        '是中文就计两个长度
i=i+1
end if
strpos=strpos+1
tmpstr=tmpstr+tmpch
loop
response.Write tmpstr & "
"
nowline=nowline+1
loop
if tmpch<>"" then response.write "   ……"
response.write ""
news.MoveNext
loop
nowposition=nowposition-1
if nowposition>ALLRECORD then nowposition=ALLRECORD
if ALLRECORD<1 then        '若数据库中没有记录
response.write "
数据库中无记录！
"
nowposition=0
ALLRECORD=0
end if
%>

你的朋友：畅想
2001.8.11 14：54