www.gusucode.com > 盐城分类信息网asp源码程序 > admin/user_edithbchk.asp
<!--#include file=conn.asp--> <!--#include file=cookies.asp--> <link href="inc_style.css" rel="stylesheet" type="text/css"> <% dim rs,sql,id,username,email,hb,jf id=trim(request("id")) hb=trim(request("hb")) jf=trim(request("jf")) if not isnumeric(jf) or jf="" then response.write "<li>积分只能为数字!" cl response.end end if if not isnumeric(hb) or hb="" then response.write "<li>货币只能为数字!" cl response.end end if if not isnumeric(id) or id="" then response.write "<li>参数错误!" cl response.end end if set rs=server.createobject("adodb.recordset") sql="select hb,jf from [user] where id="&id rs.open sql,conn,1,3 if rs.eof or rs.bof then response.write "<li>参数错误!" cl response.end end if rs("jf")=jf rs("hb")=hb rs.update rs.close set rs=nothing closedb response.write "<li>修改积分成功!" call cl() %> <%sub cl()%> <body onLoad="setTimeout(window.close, 2000)"> <%end sub%>