📄 admin_title.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<!--#include file="conn.asp"-->
<!--#include file="admin_xy.asp"-->
<!--#include file="md5.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>管理员设置-修改资料</title>
</head>
<body><%
'====================================================================
' 请你保留这段说明，这并不会影响你的速度. 交流QQ:31424717
' 程序制作：找北
' 升级时间： 2006-2-5
' E-Mail: g362hao@gmail.com
'====================================================================
%>
<!--#include file="i.asp"-->
<%
if request("k")=1 then
id=Request("id")
name=Request("name")
pass=md5(Request("pass"))
if name="" or pass="" then
response.write("帮不了你,你没填写好!")
response.write("<br/><a href='index.asp?xy="&xy&"'>返回后台管理</a><br/>")
response.end
end if
Set rs=Server.CreateObject("Adodb.Recordset")
Sql = "select * from admin where xy = '"&xy&"'"
rs.open sql,conn,1,3
rs("user")=name
rs("pass")=pass
rs.update
response.write("修改成功，请记住用户名和密码.")
rs.Close
Set rs = Nothing
end if
%>
<form id="form1" name="form1" method="post" action="admin_title.asp?k=1&id=<%=id%>&xy=<%=xy%>">
新用户名<br/>
<input name="name" emptyok="false" maxlength="40"/><br/>
新密码<br/>
<input name="pass" emptyok="false" maxlength="40"/><br/>
<input type="submit" name="Submit" value="提交" />
</form>
<a href="index.asp?xy=<%=xy%>">返回后台管理</a><br/>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -