<% @ Language=VBScript CodePage=65001%> <% Session.CodePage = 65001 response.charset="utf-8"%> <% ID=ReqNum(Request("ID")) err=0'訊息先清空 set comm = Server.CreateObject("ADODB.Command") comm.activeConnection = conn comm.CommandType = 4 comm.CommandText = "CountDel_Banner" comm.Parameters.Append comm.CreateParameter("BannerID",19,1,4,ID) comm.Parameters.Append comm.CreateParameter("AdmName",202,1,20, "") comm.Parameters.Append comm.CreateParameter("B_type",130,1,1,"C") set rs_banner = comm.Execute() if err <> 0 then response.Write("發生錯誤!"&err&err.description) response.end else return=rs_banner("ret") message=rs_banner(1) rs_banner.close set rs_banner=nothing select case return case 1 response.Redirect reqdata2(message) response.end case -110 ShowMsgClose(message) case -100 ShowMsgClose(message) case else response.Write("發生例外狀況!"&return) response.end end select end if %>