需要改代码，具体文件在

plus/tags.asp

   Select Case  KS.C_S(SQL(0,K),6)

    Case 1

   SqlStr=SqlStr & "select ID,Title,Tid,ReadPoint,InfoPurview,Fname,Changes,AddDate,Popular," & SQL(0,K) & " as ChannelID,hits,Inputer As username,photourl,intro From " & SQL(1,K)

    case 2

    SqlStr=SqlStr & "select ID,Title,Tid,ReadPoint,InfoPurview,Fname,0 as Changes,AddDate,Popular," & SQL(0,K) & " as ChannelID,Hits,Inputer As username,photourl,picturecontent as intro From " & SQL(1,K)

    case 3

    SqlStr=SqlStr & "select ID,Title,Tid,ReadPoint,InfoPurview,Fname,0 as Changes,AddDate,Popular," & SQL(0,K) & " as ChannelID,Hits,Inputer As username,photourl,downcontent as intro From " & SQL(1,K)

    case 4

    SqlStr=SqlStr & "select ID,Title,Tid,ReadPoint,InfoPurview,Fname,0 as Changes,AddDate,Popular," & SQL(0,K) & " as ChannelID,Hits,Inputer As username,photourl,flashcontent as intro From " & SQL(1,K)

    Case 5

    SqlStr=SqlStr & "select ID,Title,Tid,0 as ReadPoint,0 as InfoPurview,Fname,0 as Changes,AddDate,Popular," & SQL(0,K) & " as ChannelID,Hits,Inputer As username,photourl,prointro as intro From " & SQL(1,K)

    Case 7

    SqlStr=SqlStr & "select ID,Title,Tid,0 as ReadPoint,0 as InfoPurview,Fname,0 as Changes,AddDate,Popular," & SQL(0,K) & " as ChannelID,Hits,Inputer As username,photourl,moviecontent as intro From " & SQL(1,K)

   End Select

  SqlStr=SqlStr & " Where DelTF=0 And Verific=1 And keywords like '%" & TagsName & "%'"

增加上面红色的代码。

继续再往下找到，并增加红色的

     LC=replace(LC,"{$Hits}",rs(10))

     LC=replace(LC,"{$Intro}",KS.Gottopic(KS.LoseHtml(rs(13)),100))



     LC=replace(LC,"{$AddDate}",formatdatetime(rs(7),2))

然后用{$Intro}标签在tags.html模板里就可以调用了。其它的字段类似。

天津废油