<%dim TP,num TP=Request("TP") if TP<>"" then num=Request("num") if num="" or IsNumeric(num)=False then Call Error("数量无效！") end if conn.Execute("update Users set myjb=myjb+"&num) Response.Write num&getcent&"成功送给全部会员
" else Response.Write "赠送"&getcent&"给全部会员
" Response.Write "赠送数量：
" Response.Write "" Response.Write "
确认赠送" Response.Write "" Response.Write "" Response.Write "" Response.Write "
" end if conn.close set conn=nothing Response.write "
为了节省系统资源，只赠送但不发送内线通知"%>