请高手帮忙解决个小问题
function ShowDoc(Channel)
intChannelID=Channel
'已经被采用的信息(不是公文的条目)
if intChannelID=0 then
chrSQL= "Select Top 5 intArticleID,intChannelID,chrTitle,datYear,datMonth,datDay,intPdfID From DOC where intChannelID <> 10 and intChannelID <> 8 and intChannelID <> 6 order by intArticleID Desc "
end if
if intChannelID=8 then
chrSQL= "Select Top 5 intArticleID,intChannelID,chrTitle,datYear,datMonth,datDay,intPdfID From DOC WHere intChannelID= "& intChannelID & " or intChannelID=10 order by intArticleID Desc "
end if
if intChannelID=6 then
chrSQL= "Select Top 5 intArticleID,intChannelID,chrTitle,datYear,datMonth,datDay,intPdfID From DOC WHere intChannelID= "& intChannelID & " order by intArticleID Desc "
end if
Set rsShow =conn.Execute(chrSQl)
if rsShow.EOF or rsShow.BOF then
enrr =enrr+ " ·相应栏目没找到信息; <br> "
enrr =enrr+ " ·请提交或者采用相关信息来显示该部分内容; <br> "
response.write enrr
else
do while not rsShow.EOF
response.write " <span class= 'style9 '> · </span> "
response.write " <span class= 'style3 '> <a Target= '_blank ' href= 'readfile.asp?File= "& rsShow( "intPdfID ") & " ' "
if Len(rsShow( "chrTitle "))> 18 then
response.Write "Title= ' "& rsShow( "chrTitle ") & " '> "& Left(rsShow( "chrTitle "),18) & "... </a> </span> "
else
response.Write "> "& rsShow( "chrTitle ") & " </a> </span> "
end if
response.write " <span class= 'style4 '> ( "& rsShow( "datYear ") & "- "& rsShow( "datMonth ") & "- "& rsShow( "datDay ") & ") </span> "
if blnHasPower( "公文签收 ") then
'写出针对个人的快捷签收信息
chrSQL= "Select intArticleID,chrReceive,BlnAuditing from Audit Where intArticleID= "& rsShow( "intArticleID ") & " and chrReceive= ' "& session( "intOrgID ") & " ' and BlnAuditing= "& False
Set rsAudit =conn.Execute(chrSQl)
if rsAudit.EOF and rsAudit.BOF then
response.write " "
else
response.write " <a title= '请点击并签收此公文。 ' href= 'ViewDOC.asp?blnSubmit=True&Audit=True&Article= "& rsShow( "intArticleID ") & " ' onClick= " "return confirm( '签收此条公文,确认么? '); " "> <img src= 'images/audit.gif ' border=0> </a> "