cpass.asp

asp与MYSQL的源码

<%
Response.Buffer = true
%>
<!--#include file="top.asp"-->
<TABLE WIDTH=750 bgcolor=#E7F1EC cellspacing=1 cellpadding=0 border=0>
	<TR>
		<TD width=200 valign=top><!--#include file="left.asp"--></TD>
		<TD width=550 valign=top>
			<TABLE WIDTH=100% cellpadding=5 cellspacing=0>
				<TR>
					<TD bgcolor="#339999" align=center width=550 class=celltitle>Change Password</TD>
				</TR>
				<TR>
					<TD class=cellsmallcontent>
						<%
						if len(request("go")) = 0 then
							%>
							<FORM ACTION="cpass.asp?go=y&user=<%=request("user")%>&host=<%=server.URLEncode(request("host"))%>" method=post id=form1 name=form1>
							<TABLE cellpadding=2 cellspacing=1 width=300 border=0 style="border:solid black 1pt;">	
								<TR>
									<TD bgcolor=#339999 class=cellsmalltitle align=center>Change Password for <%=request("user") & "@" & request("host")%></TD>
								</TR>	
								<TR>
									<TD class=cellsmallcontent>
										<BR>
										Enter the new password for <%=request("user") & "@" & request("host")%>:
										<BR><BR>  
									</TD>
								</TR>
								<TR>
									<TD class=smallcellcontent>
										<INPUT TYPE=TEXT NAME=newpwd>
									</TD>
								</TR>
								<TR>
									<TD><INPUT TYPE=SUBMIT VALUE="Change Password" id=SUBMIT1 name=SUBMIT1></TD>
								</TR>
							</TABLE>
							</FORM>
						<%
						else
							set cn = server.CreateObject("ADODB.COnnection")
							cn.Open dsn
							
							sql = "update mysql.user set password = password('" & request("newpwd") & "') where user = '" & request("user") & "' and host = '" & request("host") & "'"
							
							cn.Execute sql 
							
							sql = "flush PRIVILEGES"
							
							cn.Execute sql
							
							set cn = nothing
							Response.Clear
							Response.Redirect "users.asp"
						end if
						%>
					</TD>
				</TR>
			</TABLE>
		</TD>
	</TR>
</TABLE>
<!--#include file="bottom.asp"-->