<% if myid=1 then else call error("权限不足！") end if dim info info=request("info") Select Case info Case "a" Call a() Case "b" Call b() Case else Call l() end select sub l() Response.Write "清空排行榜记录
" Response.Write "清空网友大话记录" end sub sub a() dim action action=request("action") if action<>"ok" then response.write"真的要清空排行榜？清空将无法恢复！" Response.Write "
决定清空
" Response.Write "取消清空
" Response.Write "

" Response.end end if ydzqconn.Execute("delete from YD_plist") Response.Write "清空排行榜成功！" end Sub sub b() dim action action=request("action") if action<>"ok" then response.write"真的要清空网友大话记录？清空将无法恢复！" Response.Write "
决定清空
" Response.Write "取消清空
" Response.Write "

" Response.end end if ydzqconn.Execute("delete from YD_jd") Response.Write "清空网友大话记录成功！" end Sub ydzqconn.close set ydzqconn=nothing conn.close set conn=nothing %>
---------------