databases.asp

asp与MYSQL的源码

<TABLE CELLPADDING=2 CELLSPACING=0 BORDER=0>
	<TR>
		<TD>
			<%

			set rsPriv = server.createobject("ADODB.Recordset")
			rsPriv.CursorLocation = 3
			rsPriv.Open "select * from mysql.user where user = '" & session("username") & "'", dsn, 2, 3

			if rsPriv("select_priv") = "Y" then
				sql = "show databases"
			else
				sql = "select db from mysql.db where user = '" & session("username") & "'"
			end if

			set rsShowDB = server.createobject("ADODB.Recordset")
			rsShowDB.cursorlocation = 3
			rsShowDB.open sql, dsn, 2, 3

			for i = 1 to rsShowDB.recordcount
				if rsPriv("select_priv") = "Y" then
					response.write "<A href=showdb.asp?db=" & rsShowDB("database") & " class=navlink>" & rsShowDB("database") & "</A><BR>"
				else
					response.write "<A href=showdb.asp?db=" & rsShowDB("db") & " class=navlink>" & rsShowDB("db") & "</A><BR>"
				end if
				rsShowDB.movenext
			next

			set rsShowDB = nothing
			set rsPriv = nothing
			%>
		</TD>
	</TR>
</TABLE>