admin_admin_editpass_save.asp 学校共青团组织网站源代码 - ASP源码程序

www.gusucode.com > 学校共青团组织网站源代码 > 学校共青团组织网站源代码/626/admin/admin_admin_editpass_save.asp

    

<!--#include file = admin_chk.asp -->
<!--#include file = admin_conn.asp -->
<!--#include file = md5.asp -->
<style>
<!--
a:link       { font-size: 9pt; font-family: 宋体; color: #000000;text-decoration: none; }
a:visited    { color: #000000; font-family: 宋体; font-size: 9pt;text-decoration: none; }
a:hover      { font-size: 9pt; font-family: 宋体; color: #000000;TEXT-DECORATION: underline; }
body         { font-family: 宋体; color: #000000; font-size: 9pt }
p            { color: #000000; font-family: 宋体; font-size: 9pt }
td           { font-size: 9pt; font-family: 宋体; color: #000000 }
input        { font-size: 9pt; font-family: 宋体; color: #000000 }

-->
</style>
<head>
<!--#include file = language.asp -->
</head>
<p>　</p>
<p align="center">　</p>

<%
id=trim(request("id"))
username=trim(request("username"))
password=md5(trim(request("password")))

if id<>"" then
sql = "select * from admin where id="&id
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,2
if rs.recordcount<>0 then
   rs("user")=username
   rs("pass")=password
   rs.update  
end if

rs.close
set rs=nothing

end if

conn.close
set conn=nothing

Response.Redirect "admin_admin.asp"
%>