以下程序<%                                                                           
response.write objasperror.category                                                     
if objasperror.aspcode>""then                                                  
response.write","&objasperror.aspcade                                       
response.write"(0x"& hex(objasperror.number)&")"&"<br>"                                 
response.write"<br>"&objasperror.description&"</b><br>"                     
if objasperror.aspdescription>""then                                            
response.write objasperror.aspdescription&"<br>"                                       
blnerrorwritten=false                                                        
'only show the source if it is available and the request is from the same machine as IIS
if objasperror.source>""then                                                   
strservername=lcase(request.serverVariables("server_name"))                             
strserverip=request.servervariables("LOCAL_ADDR")                                       
strremoteip=request.servervariables("remote_addr")                                      
if(strservername="localhost"or strserverip=strremoteip) and_                           
objasperror.file<>"?" then                                                              
response.write objasperror.file                                                         
if objasperror line>0 then                                                              
response.write",line"&objasperror.line                                       
if objasperror.column>0 then                                                            
response.write",column"&objasperror.column                                   
response.write"<br>"                                                         
response.write"<font style=""color:000000;font:8pt/11pt courier new""><b>"              
response.write server.htmlencode(objasperror.source)&"<br>"                             
if objasperror.column>0 rhen                                                            
response.write"</b></font>"                                                  
blnerrorwritten=true                                                         
end if                                                                        
end if                                                               
if not blnerrorwriteen and objasperror.file<>"?" then                                   
response.write"<b>"&objasperror.file                                 
if objasperror.line>0 then                                                              
response.write",line"&objasperror.line                        
if objasperror.column>0 then                                                            
response.write",column"&objasperror.clumn                           
response.write"</b><br>"                                             
end if                                                            
%〉

错误提示是最后一个end if 那里出了问题。
请教高手究竟错在哪里呢？？？
恳请不吝赐教！！！

%〉 最后的大于号是全角的？

if整个语句如果不是写在一行，在结束时必须要有endif和它匹配。
上述程序，你应该是从大的程序中抽取出来的吧。
改后如下，自己对照一下，看哪个地方不一样。（objasperror自己去定义）
<%                                                                           
response.write objasperror.category                                                     
if objasperror.aspcode>""then                                                  
response.write","&objasperror.aspcade                                       
response.write"(0x"& hex(objasperror.number)&")"&"<br>"                                 
response.write"<br>"&objasperror.description&"</b><br>"                     
if objasperror.aspdescription>""then                                            
response.write objasperror.aspdescription&"<br>"                                       
blnerrorwritten=false                                                        
'only show the source if it is available and the request is from the same machine as IIS
if objasperror.source>""then                                                   
strservername=lcase(request.serverVariables("server_name"))                             
strserverip=request.servervariables("LOCAL_ADDR")                                       
strremoteip=request.servervariables("remote_addr")                                      
if(strservername="localhost"or strserverip=strremoteip) and objasperror.file<>"?" then
response.write objasperror.file   
if objasperror.line>0 then                                                              
response.write",line"&objasperror.line                                       
if objasperror.column>0 then                                                            
response.write",column"&objasperror.column                                   
response.write"<br>"                                                         
response.write"<font style=""color:000000;font:8pt/11pt courier new""><b>"              
response.write server.htmlencode(objasperror.source)&"<br>"                             
if objasperror.column>0 then                                                            
response.write"</b></font>"                                                  
blnerrorwritten=true                                                         
end if               
end if
end if
end if
end if
end if
end if                                                            
if not blnerrorwriteen and objasperror.file<>"?" then                                   
response.write"<b>"&objasperror.file                                 
if objasperror.line>0 then                                                              
response.write",line"&objasperror.line                        
if objasperror.column>0 then                                                            
response.write",column"&objasperror.clumn                           
response.write"</b><br>"                                             
end if   
end if
end if                                                         
%>

可是第一句就有错误阿

Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242

Microsoft VBScript 运行时错误 错误 '800a01a8'

缺少对象: ''

/if.asp，行1

是第二行Response.write obnasperror.category