www.gusucode.com > 站长俱乐部新闻发布系统精简版 1.01源码程序 > admin/admin_users_edit_form2.asp

    <%
dim myParam
myParam = "1"
if (Request.Form("ID") <> "") then
  myParam = Request.Form("ID")
end if
%>
<%
Dim User
Dim User_numRows

Set User = Server.CreateObject("ADODB.Recordset")
User.ActiveConnection = MM_oConn_STRING
User.Source = "SELECT * FROM ac_user WHERE ID = "& Session("MM_UserID") &""
User.CursorType = 0
User.CursorLocation = 2
User.LockType = 1
User.Open()

User_numRows = 0
%>

<form method="post" action="admin_users_edit_post.asp" name="form1">
  <table border="0" padding="0">
    <tr valign="baseline"> 
      <td nowrap align="right" class="content_titles"><%= lang_admin_users_add_form_002 %></td>
      <td class="content_right"> <%=(User.Fields.Item("Username").Value)%> 
      </td>
    </tr>
    <tr valign="baseline"> 
      <td nowrap align="right" class="content_titles"><%= lang_admin_users_018 %></td>
      <td class="content_right"> <input type="password" id="<%= lang_admin_users_add_form_003 %>" name="Password" value="" size="32"> 
      </td>
    </tr>
    <tr><td align="right" class="content_apply"><%= lang_admin_config_008 %></td><td bgcolor="#6E7B83" width="70%" colspan="1"><INPUT TYPE="image" SRC="images/save_out.gif" HEIGHT="39" WIDTH="39" BORDER="0" ALT="<%= lang_admin_config_009 %>" value="Update User" name="Submit" id="Image1" onMouseOver="MM_swapImage('Image1','','images/save_over.gif',1)" onMouseOut="MM_swapImgRestore()"></td></tr>
  </table>
  <input type="hidden" name="MM_update" value="form1">
  <input type="hidden" name="MM_recordId" value="<%= User.Fields.Item("ID").Value %>">
  <input type="hidden" name="Type" value="<%= User.Fields.Item("Type").Value %>">
  <input type="hidden" name="Username" value="<%=(User.Fields.Item("Username").Value)%>">
</form>
<%
User.Close()
Set User = Nothing
%>