dbprivs.asp

asp与MYSQL的源码

<!--#include file="dsn.asp"-->
<%
'first, make sure person granting change has privs to grant change...
if len(request("priv")) > 0 then
	sql = "update mysql.db set " & request("priv") & " = '" & request("setting") & "' where user = '" & request("user") & "' and host = '" & request("host") & "' and db = '" & request("db") & "'"

	set cn = server.CreateObject("ADODB.Connection")
	cn.open dsn
	cn.Execute sql

	cn.Execute "flush privileges"

	Response.Redirect "dbprivs.asp?db=" & request("db")
end if
%>

<!--#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>Database Privileges</TD>
				</TR>
				<TR>
					<TD>
						<TABLE cellpadding=2 cellspacing=1 style="border:solid black 1pt;">
							
							<%
						
							set rsUsers = server.CreateObject("ADODB.Recordset")
							rsUsers.CursorLocation = 3
							rsUsers.open "select * from mysql.db where db = '" & request("db") & "' order by user asc", dsn, 2, 3
							
							%>
							<TR>
								<TD colspan=13 align=center bgcolor=#339999 class=cellsmalltitle><%=request("db")%></TD>
							</TR>
							<TR>
								<TD colspan=3 class=cellsmallcontent align=center><B>User</B></TD>
								<TD colspan=10 class=cellsmallcontent align=center><B>Privileges</B></TD>
							</TR>
							<%
							if rsUsers.eof then
							%>
							<TR>
								<TD colspan=13 class=cellsmallcontent>
									No Privileges Exist at this time.
								</TD>
							</TR>
							<%
							else
								%>
								<TR>
									<TD class=cellsmallcontent>Host</TD>
									<TD class=cellsmallcontent>Database</TD>
									<TD class=cellsmallcontent>User</TD>
									<TD class=tinytitle bgcolor=#339999>Select</TD>
									<TD class=tinytitle bgcolor=#339999>Insert</TD>
									<TD class=tinytitle bgcolor=#339999>Update</TD>
									<TD class=tinytitle bgcolor=#339999>Delete</TD>
									<TD class=tinytitle bgcolor=#339999>Create</TD>
									<TD class=tinytitle bgcolor=#339999>Drop</TD>
									<TD class=tinytitle bgcolor=#339999>Grant</TD>
									<TD class=tinytitle bgcolor=#339999>References</TD>
									<TD class=tinytitle bgcolor=#339999>Index</TD>
									<TD class=tinytitle bgcolor=#339999>Alter</TD>
								</TR>
								<%
									for i = 1 to rsUsers.RecordCount 
									%>
									<TR>
										<TD class=cellsmallcontent><%=rsUsers("host")%></TD>
										<TD class=cellsmallcontent><%=rsUsers("db")%></TD>
										<TD class=cellsmallcontent><%=rsUsers("user")%></TD>
										<TD class=cellsmallcontent><A href="dbprivs.asp?priv=select_priv&setting=<%if rsUsers("select_priv") = "Y" then%>N<%else%>Y<%end if%>&user=<%=rsUsers("user")%>&host=<%=server.urlEncode(rsUsers("host"))%>&db=<%=rsUsers("db")%>" class=navlink><%=rsUsers("select_priv")%></A></TD>
										<TD class=cellsmallcontent><A href="dbprivs.asp?priv=insert_priv&setting=<%if rsUsers("insert_priv") = "Y" then%>N<%else%>Y<%end if%>&user=<%=rsUsers("user")%>&host=<%=server.urlEncode(rsUsers("host"))%>&db=<%=rsUsers("db")%>" class=navlink><%=rsUsers("insert_priv")%></A></TD>
										<TD class=cellsmallcontent><A href="dbprivs.asp?priv=update_priv&setting=<%if rsUsers("update_priv") = "Y" then%>N<%else%>Y<%end if%>&user=<%=rsUsers("user")%>&host=<%=server.urlEncode(rsUsers("host"))%>&db=<%=rsUsers("db")%>" class=navlink><%=rsUsers("update_priv")%></A></TD>
										<TD class=cellsmallcontent><A href="dbprivs.asp?priv=delete_priv&setting=<%if rsUsers("delete_priv") = "Y" then%>N<%else%>Y<%end if%>&user=<%=rsUsers("user")%>&host=<%=server.urlEncode(rsUsers("host"))%>&db=<%=rsUsers("db")%>" class=navlink><%=rsUsers("delete_priv")%></A></TD>
										<TD class=cellsmallcontent><A href="dbprivs.asp?priv=create_priv&setting=<%if rsUsers("create_priv") = "Y" then%>N<%else%>Y<%end if%>&user=<%=rsUsers("user")%>&host=<%=server.urlEncode(rsUsers("host"))%>&db=<%=rsUsers("db")%>" class=navlink><%=rsUsers("create_priv")%></A></TD>
										<TD class=cellsmallcontent><A href="dbprivs.asp?priv=drop_priv&setting=<%if rsUsers("drop_priv") = "Y" then%>N<%else%>Y<%end if%>&user=<%=rsUsers("user")%>&host=<%=server.urlEncode(rsUsers("host"))%>&db=<%=rsUsers("db")%>" class=navlink><%=rsUsers("drop_priv")%></A></TD>
										<TD class=cellsmallcontent><A href="dbprivs.asp?priv=grant_priv&setting=<%if rsUsers("grant_priv") = "Y" then%>N<%else%>Y<%end if%>&user=<%=rsUsers("user")%>&host=<%=server.urlEncode(rsUsers("host"))%>&db=<%=rsUsers("db")%>" class=navlink><%=rsUsers("grant_priv")%></A></TD>
										<TD class=cellsmallcontent><A href="dbprivs.asp?priv=references_priv&setting=<%if rsUsers("references_priv") = "Y" then%>N<%else%>Y<%end if%>&user=<%=rsUsers("user")%>&host=<%=server.urlEncode(rsUsers("host"))%>&db=<%=rsUsers("db")%>" class=navlink><%=rsUsers("references_priv")%></A></TD>
										<TD class=cellsmallcontent><A href="dbprivs.asp?priv=index_priv&setting=<%if rsUsers("index_priv") = "Y" then%>N<%else%>Y<%end if%>&user=<%=rsUsers("user")%>&host=<%=server.urlEncode(rsUsers("host"))%>&db=<%=rsUsers("db")%>" class=navlink><%=rsUsers("index_priv")%></A></TD>
										<TD class=cellsmallcontent><A href="dbprivs.asp?priv=alter_priv&setting=<%if rsUsers("alter_priv") = "Y" then%>N<%else%>Y<%end if%>&user=<%=rsUsers("user")%>&host=<%=server.urlEncode(rsUsers("host"))%>&db=<%=rsUsers("db")%>" class=navlink><%=rsUsers("alter_priv")%></A></TD>
									</TR>
									<%
									rsUsers.MoveNext
								next
							end if
							%>