"
end if
else
TempString = ""
end if
end select
OutString = OutString & TempString
if TempString<>"" then
i = i + 1
end if
rs.MoveNext()
wend
rs.close
if OutString<>"" then
select case MyStyle
case 1,11,111,129,139,110,166
OutString = OutString & "
"
case 201
if (i mod 2)=0 then
else
OutString = OutString & "
"
end if
case 205,206
if (i mod 2)=0 then
else
OutString = OutString & "
"
end if
end select
end if
MyCommand.Parameters.Delete "SubjectId"
MyCommand.Parameters.Delete "Num"
ViewBlock = OutString
end function
function ViewBlockZhxxASC(MyCommand,MySubjectId,MyStyle,MyNum,MyClassName,MyPrefix,picw,pich)
dim OutString,i,TempString
OutString = ""
i = 0
set para1 = MyCommand.CreateParameter ("SubjectId",3,&H0001)
set para2 = MyCommand.CreateParameter ("Num",2,&H0001)
MyCommand.Parameters.Append (para1)
MyCommand.Parameters.Append (para2)
MyCommand.Parameters ("SubjectId") = MySubjectId
MyCommand.Parameters ("Num") = 99
MyCommand.CommandText = "Ext_ViewBlo"
set rs = MyCommand.Execute ()
while not rs.eof and i"" then
viewTitle2 = "(" & Title2 & ")"
end if
SendDate = rs(5)
OutSendDate = replace(SendDate,"2002年","")
DocFrom = rs(6)
PicNum = rs(7)
if PicNum>0 then
PicNum = "（图）"
else
PicNum = " "
end if
DocSort = rs(8)
SignDate = rs(9)
FilePath = rs(10)
select case MyStyle
case 601
if len(Title)>23 then
Title = mid(Title,1,23) & "…"
end if
TempString = "
"
end select
OutString = OutString & TempString
if TempString<>"" then
i = i + 1
end if
rs.MoveNext()
wend
rs.close
if OutString<>"" then
select case MyStyle
case 1
OutString = OutString & "
更多>>
