<% '显示文头文号 if StrShowTT = "1" then Dim TrHeight, StrAlign select case strDocType case "U" TrHeight = 100 StrAlign = "right" case "M" TrHeight = 200 StrAlign = "Center" case "D" TrHeight = 300 StrAlign = "left" end select %> valign="Bottom"> <%end if%>

<%if strDocType = "U" then%> <%else%> <%end if%>

<% 'response.Write(StrCateId) 'response.End() '//读取正文文件内容 dim fso,file,StrFilePath set fso = Server.CreateObject("Scripting.FileSystemObject") if StrInfoDoc <> "" then 'StrFilePath = Server.mapPath(".") & "\" & StrInfoDoc 'if fso.FileExists(StrFilePath) then 'set file = fso.OpenTextFile(StrFilePath, 1, false) 'file.readall() %> <%=StrInfoCont%> <% 'else %> <% 'end if else %> 信息内容为空。 <% end if '//读取附件文件内容 dim i,StrAttCont, strAttTitle arrAttName = split(arrAttName,chr(5)) arrAttTitle= split(arrAttTitle,chr(5)) for i = 0 to ubound(arrAttName) 'StrFilePath = Server.mapPath(".") & "\" & arrAttName(i) StrFilePath = arrAttName(i) strAttTitle = arrAttTitle(i) if strAttTitle = "附件" then strAttTitle="" strAttTitle = "附件"&(i+1)&" "&strAttTitle if strAttTitle = "" then strAttTitle = arrAttName 'if fso.FileExists(StrFilePath) then ' set file = fso.OpenTextFile(StrFilePath, 1, false) ' StrAttCont=file.readall() ' file.close %> <%if i=0 then%> <%end if%> > <%=strAttTitle%> <% 'end if next set fso = nothing set file = nothing %>