📄 a_edit.asp

📁 java_blog是一个非常好的blog
💻 ASP
字号:
<%@LANGUAGE="VBScript" codepage="936"%>
<%
'**********************************************************
' zhuzhu 1.0 Free        Power by zgrq.com
' Email:ringsbot@163.com       OICQ：500985
' 网站: http://www.zgrq.com   演示：http://www.zgrq.com
'**********************************************************
if session("admin")<>"" then%>
<!--#include file="conn.asp"-->
<!--#include file="md5.asp"-->
<%
id=Request.QueryString("id")
%>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from [admin] where id="&id
rs.open sql,conn,1,1
%>
<html>
<head>
<meta http-equiv="Page-Exit" content="revealTrans(Duration=1.0,Transition=12)">
<link href="skin_1.css" rel="stylesheet" type="text/css">
<title>RanRan</title>
</head>
<body>
<form action="" method="post" name="form1">
  <p>&nbsp;</p>
  <table width="310" border="0" align="center" cellpadding="2" cellspacing="0">
    <tr> 
      <td width="36"><div align="right">帐号：</div></td>
      <td width="266"> <input name="admin" type="text" class=xndyk id="admin" value="<%=rs("admin")%>" size="20" maxlength="40"> 
        <font color="#FF0000">*</font></td>
    </tr>
    <tr> 
      <td><div align="right">密码：</div></td>
      <td> <input name="passwd" type="password"  class=xndyk id="title" value="<%=rs("passwd")%>" size="20" maxlength="40"> 
      </td>
    </tr>
    <tr align="center"> 
      <td>　</td>
      <td><div align="left"> 
          <input type="submit" name="ok" value="提 交 修 改"  class=xndyk>
          <input type="reset" name="Submit" value="重 填"  class=xndyk>
        </div></td>
    </tr>
  </table>
</form>
</body>
</html>
<%
set rs=server.createobject("adodb.recordset")

admin=request("admin")
passwd=md5(request.form("passwd"))
rs.open sql,conn,2,3
rs("admin")=admin
rs("passwd")=passwd
if request("ok")<>"" then
rs.update
rs.close
set rs=nothing
response.redirect "a_add.asp"
end if
%>

<%
else
response.Redirect("a_admin.asp")
end if
'**********************************************************
' zhuzhu 1.0 Free        Power by zgrq.com
' Email:ringsbot@163.com       OICQ：500985
' 网站: http://www.zgrq.com   演示：http://www.zgrq.com
'**********************************************************
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -