adminer_save.asp

吻宇考试管理系统源码 吻宇考试管理系统源码

<!--#include file="conn.asp"-->
<!--#include file="checkuser.asp"-->
<!--#include file="../inc/md5.asp"-->
<%
dim rs,sql
dim id,user,pass,ip,shijian
id=request.QueryString("id")
user=request.Form("user")
pass=md5(request.Form("pass"))
ip=request.Form("ip")
shijian=request.Form("shijian")
set rs=server.CreateObject("adodb.recordset")
sql="select * from admin where id="&id&""
rs.open sql,conn,2,3
rs("username")=user
rs("password")=pass
rs("ip")=ip
rs("time")=shijian
rs.update
rs.close
set rs=nothing
set conn=nothing
%>
<script language="vbscript">
msgbox("恭喜你修改管理的操作成功~!")
window.location.href"adminer_gl.asp"
</script>