日期:2014-05-17  浏览次数:21056 次

请高手帮忙解决个小问题
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> "