pwd.asp

来自「使用源码注意项: 1、Windows2000 Professional SP3、」· ASP 代码 · 共 56 行

ASP
56
字号

<!--#include file="qx.asp"-->
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("date/user.asp")
%>
<%
exec="select * from reg"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1 
%>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<link href="style.css" rel="stylesheet" type="text/css" />
</head>

<table width="855" border="0" cellspacing="0" cellpadding="0">
<%do while not rs.eof%>

<tr>
<td width="329">
<td width="102">
<font class=main>用户名:</font>
<td width="98">
<form method="POST" action="pwdchange.asp">
<input type="text" name="name" size="20" value="<%=rs("name")%>">
<td width="327">
</tr>
<tr>
<td width="329">
<td width="102"><font class=main>
密码:</font>
<td width="98">
<input type="text" name="password" size="20" value="<%=rs("password")%>">
<td width="327">
</tr>
<tr>
<td width="329">
<td width="102">
<p align="right">
<input type="submit" value="提交" name="B1">
<td width="98">
&nbsp;&nbsp;&nbsp; <input type="reset" value="重写" name="B2">   
 <td width="327">
<input type="hidden" name="id" value="<%=rs("id")%>">   
</tr>
</table>

<%
rs.movenext
loop
%>

⌨️ 快捷键说明

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