<%
dim id,contentIDs,i
contentIDs=""
if SafeRequest("subjectID")<>"" then
id=SafeRequest("subjectID")
else
id="1039204"
end if
i=0
Set rs= server.CreateObject("adodb.recordset")
strSql="select * from ContentBaseInfo where ChannelId in ( "
strSql =strSql +" select ColumnId from FeatureColumns where FeatureId in ( "
strSql =strSql +" select FeatureId from Features where FeatureNo=" & id & " ))"
rs.open strSql,sqlConn1,1,1
do while not rs.eof
i=i+1
if i=1 then
contentIDs=rs("docid")
else
contentIDs= contentIDs &","& rs("docid")
end if
rs.movenext
loop
%>
<%
set Counter=server.CreateObject("adodb.recordset")
Countersql = "select top 9 ContentID from gov_counter where contentid in ("&contentIDs&") and siteName='无锡市政协委员会' order by Clicks desc"
Counter.open Countersql,sqlConn,1,1
Do While Not Counter.EOF
Set rs1= server.CreateObject("adodb.recordset")
strSql1="select title,longtitle,url from ContentBaseInfo where Docid="& Counter("ContentID")
rs1.open strSql1,sqlConn1,1,1
strtitle=rs1("title")
if strtitle <> rs1("longtitle") and Trim(rs1("longtitle")) <> "" then
strtitle=rs1("longtitle")
'去摘要样式
Set reS = New RegExp
reS.Pattern = "<[^<]+>"
reS.Global = True
reS.IgnoreCase = True
reS.MultiLine = True
strtitle= reS.Replace(strtitle,"")
end if
%>
| ·" href="<%=rs1("url")%>" target="_blank"><%=left(strtitle,18)%>
|
<%
Counter.MoveNext
Loop
%>
|
