如需此页面完整的程序请登陆http://asp.1353.cn免费获取！联系QQ:36447876

-----------------------------------------
广告时间：

在本站购买100M以上空间(SOHU.COM主机空间)，赠送任意一套源码站，价值可达上千元，几百种网站源码任您选！
业务站：www.1353.cn
源码站：asp.1353.cn
(全部代码完整在线演示，让您看的更清楚！)
联系QQ:36447876
MSN:gjh098@hotmail.com

<% sub del_com(id) dim rs,sql set rs=server.createobject("adodb.recordset") sql="delete from [com_user] where com_id="&cstr(id) conn.execute sql if err.Number<>0 then err.clear response.write "删 除 失 败 !
" end if End sub sub pas_com(id) dim rs,sql set rs=server.createobject("adodb.recordset") sql="update com_user set pas=abs(abs(cint(pas))-1) where com_id="&cstr(id) conn.execute sql if err.Number<>0 then err.clear response.write "审 核 失 败 !
" end if End sub sub vip_com(id) dim rs,sql set rs=server.createobject("adodb.recordset") sql="update com_user set vip=abs(abs(cint(vip))-1) where com_id="&cstr(id) conn.execute sql if err.Number<>0 then err.clear response.write "设 置 VIP 失 败 !
" end if End sub %>