容易问题问答得分易
现在实现读出数据里的title文段(如:24行的 " title=""" )
问:如何可以在title前面读出同一个表里的bigclassname字段
也就是最后是这样的! bigclassname title
01 <%@ Language=VBScript %>
02 <!--#include file="conn.asp"-->
03 <!--#include file="const.asp"-->
04 <%
05 Dim i, strSubject, strTrueSubject, strNews
06 Dim strShowLen, strMaxLen, strTime, strClick, StrImg, strToday, strBigClassName, strSmallClassName, strSpecialName, strPath, strwhat, strDateType
07 Dim m_bOverFlow, strTip
........
08 if RS.EOF or RS.BOF then
09 Response.Write ("document.write('尚无新闻或该新闻不存在!');")
10 else
11 Response.Write ("document.write('<table width=100% border=0 cellspacing=0 cellpadding=0>');")
12 Do while Not RS.EOF
13 strSubject = HTMLDecode(rs("Title"))
14 strTrueSubject = GetTrueLength(strSubject, strMaxLen, strSpaceBar)
15 m_bOverFlow = checkOverFlow(strSubject, strMaxLen)
16 if m_bOverFlow = True then
17 strTip = strSubject
18 else
19 strTip = ""
20 end if
21 strTarget="_blank"
22 if strClass="" then strClass="MainContentS" '设置标题文字格式
23 strFaceURL = "◎"
24 strNews = strFaceURL & " <a class="&strClass&" href=" & strPath & "shownews.asp?id=" & RS("NewsID") & " title=""" & strTip & """ target=_blank>" & strTrueSubject & "</a>" & strSpaceBar
.........