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

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

    <!--#include file = admin_chk.asp -->
<head>
<!--#include file = language.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 = admin_conn.asp -->
<!--#include file = md5.asp -->

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

if username<>"" or password<>"" then

 sql = "select * from admin where id="&id
 Set rs = Server.CreateObject("ADODB.RecordSet")
 rs.Open sql,conn,1,2
 rs("user")=username
 rs("pass")=password
 
 rs.update
 rs.close
 set rs=nothing
 
end if

conn.close
set conn=nothing
response.write "<BR><BR><BR><Center><a href=admin_admin.asp>修改成功！返回</a>"
%>