shopa_user_edit.asp

来自「ASP+SQL Server动态网站开发从基础到实践教程」· ASP 代码 · 共 50 行

<!--#include file="shop$db.asp"-->
<!--#include file="shopa_tools.asp"-->
<%ShopCheckAdmin
OpenDB con, Session("db")
If Request("change")<>"" Then
	For each item in request("Access")
	a = a & "," & item
	Next
	access = Right(a,Len(a)-1)
	SQL = "UPDATE tblUser SET fldUsername = '" & Request("UserName") & "', fldPassword='" & Request("Password") & "',fldAccess='" & access & "' WHERE fldAuto=" & cINT(Request("id"))
	con.Execute(SQL)
	response.redirect "shopa_user_control.asp"
End If
AdminPageHeader
SQL = "SELECT * FROM tblUser WHERE fldAuto=" & cINT(Request.QueryString("id"))
Set objRec = con.Execute(SQL)
%>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<form action="shopa_user_edit.asp" method="post">
</font></font></font><table>
<tr>
	<td colspan="2"><font face="arial"><center><b>更改用户权限</b></font><font face="Trebuchet MS, Arial, Helvetica"><br>
</center></font></td>
</tr>
<tr>
	<td><b><font face="arial" size="2" color="#000080">用户名</font></b><font face="arial" size=2 color=navy><b>:</b></font></td>
	<td><font face="Trebuchet MS, Arial, Helvetica"><font face="Arial, Arial, Helvetica"><font face="Arial, Arial, Helvetica"><input type="text" name="UserName" value="<%=objRec("fldUserName")%>"></font></font></font></td>
</tr>
<tr>
	<td>
	<p align="right"><b><font face="arial" size="2" color="#000080">密码</font></b><font face="arial" size=2 color=navy><b>:</b></font></td>
	<td><font face="Trebuchet MS, Arial, Helvetica"><font face="Arial, Arial, Helvetica"><font face="Arial, Arial, Helvetica"><input type="text" name="Password" value="<%=objRec("fldPassword")%>"></font></font></font></td>
</tr>
<tr>
	<td><font face="Trebuchet MS, Arial, Helvetica"><font face="Arial, Arial, Helvetica"><font face="Arial, Arial, Helvetica">&nbsp;</font></font></font></td>
	<td><b><font face="arial" size="2" color="#000080">权限</font></b><font face="Arial, Arial, Helvetica"><font face="arial" size=2 color=navy><b>:</b></font><br>
	<%BuildAccess Request.QueryString("id")%>
	</font></td>
</tr>
<tr>
	<td colspan="2"><font face="Trebuchet MS, Arial, Helvetica"><font face="Arial, Arial, Helvetica"><font face="Arial, Arial, Helvetica"><center>
	<input type="submit" value="更改用户权限" name="change"></center></font></font></font></td>
</tr>
</table><font face="Trebuchet MS, Arial, Helvetica"><font face="Arial, Arial, Helvetica"><font face="Arial, Arial, Helvetica">
<input type="hidden" name="id" value="<%=Request.QueryString("id")%>">
</form>
</table><font face="Trebuchet MS, Arial, Helvetica"><font face="Arial, Arial, Helvetica"><font face="Arial, Arial, Helvetica">
<%
AdminPageTrailer
%>