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 %>