<%@LANGUAGE="VBSCRIPT" CODEPAGE="950"%> <% 'if qualify("member","Search")<>"1" then HtmEnd "你沒有查詢【最新消息】的權限！",1,"" 'mids=Session("Id") mids=trim(Request("id")) 'if mids="" then HtmEnd "",2,"../means/login8.asp" 'if mids="" then HtmEnd "",2,"./member_01.asp" if mids="" then Response.redirect ("./member_01.asp") nos=trim(Request("nos")) ToPage=trim(Request("ToPage")) txt = trim(Request("txt")) select_type = trim(Request("select_type")) 'if txt<>"" then HtmEnd "請輸入要查詢的標題",1,"" sql = "SELECT * from maners where id = "&mids&"" set rs=server.createobject("AdoDb.recordset") rs.open sql,conn,3 %>

親愛的 參賽者 您好： 您的作品目前 已上傳成功

<% rs.close'釋放暫存檔 set rs = nothing %>