脚本如下:<% dimRs_code,Sql_code,Rs_date,Sql_date IfRequest("Op")="Show"Then sborder="0" sbg1="bgcolor=Black" sbg2="bgcolor=White" Else sborder="1" sbg1="" sbg2="" IfRequest("Op")="Excel"Then Response.ContentType="application/msexcel" Response.AddHeader"Content-disposition","inline;filename=1.xls" ElseIfRequest("Op")="DownL...