% NetsysID=Response.Cookies("Netsys")("NetsysID") if NetsysID=0 or not isnumeric(NetsysID) then response.Write "" response.End end if sql="select * from Netsys_Manage where NetsysID="&NetsysID if request.Form("modify")="yes" then NetsysPass=Trim(Request.Form("NetsysPass")) set rs=createobject("adodb.recordset") rs.open sql,conn,1,3 rs("NetsysPass")=MD5(NetsysPass) rs.update rs.close set rs=nothing response.Write "" Response.end end if set rspro=createobject("adodb.recordset") rspro.open sql,conn,1,1 %>
|
|