dump.asp

asp与MYSQL的源码

<%
if len(request("dump")) = 0 then
%>
<!--#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 class=celltitle>Data Dump</TD>
				</TR>
				<TR>
					<TD>
						<TABLE cellpadding=2 cellspacing=1 border=0 style="border:solid black 1pt;">	
							<FORM ACTION=dump.asp?dump=y method=post>
							<TR>
								<TD bgcolor=#339999 class=cellsmalltitle align=center>Parameters</TD>
							</TR>
							<TR>
								<TD class=cellsmallcontent>
									<%
									
									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
									
									
									%>
									Select Database:
									<SELECT NAME=DB>
										<%
										for i = 1 to rsShowDB.recordcount
										%>
										<OPTION VALUE=<%=rsShowDB(0)%>><%=rsshowDB(0)%></OPTION>
										<%
										rsshowDB.movenext
										next
										set rsshowDB = nothing
										set rsPriv = nothing
										%>
									</SELECT>
								</TD>
							</TR>
							<TR>
								<TD class=cellsmallcontent>
									<INPUT TYPE=CHECKBOX NAME=Dump_structure Checked>Structure &nbsp;&nbsp; <INPUT TYPE=CHECKBOX NAME=Dump_Data Checked>Data
								</TD>
							</TR>
							<TR>
								<TD class=cellsmallcontent>
									<INPUT TYPE=SUBMIT VALUE="Dump Data">
								</TD>
							</TR>
							</FORM>
						</TABLE>
					</TD>
				</TR>
			</Table>
		</TD>
	</TR>
</TABLE>
<!--#include file="bottom.asp"-->
<%
else
%>
<!--#include file="dsn.asp"-->
<%
	Response.ContentType = "text/txt"

	set rsTables = server.CreateObject("ADODB.Recordset")
	rsTables.CursorLocation = 3
	
	set rsCreateTable = server.CreateObject("ADODB.REcordset")
	rsCreateTable.CursorLocation = 3
	
	set rsData = server.CreateObject("ADODB.Recordset")
	rsData.CursorLocation = 3

	set cn = server.CreateObject("ADODB.Connection")
	cn.open dsn
	
	cn.Execute "use " & request("db")
	
	set cn = nothing
	
	rsTables.Open "show tables from " & request("db"), dsn, 2, 3

	Response.Write "-- MySQLAdmin Data Dump --" & vbCrLf
	Response.Write "-- Date: " & date() & vbCrLf
	Response.Write "-- Database: " & request("db") & vbCrLf
	Response.Write "-- www.mysqladmin.biz --" & vbCrLf & vbCrLf & vbCrLf
	for i = 1 to rsTables.RecordCount 
		if len(request("dump_structure")) > 0 then
			rsCreateTable.Open "show create table " & request("db") & "." & rsTables(0), dsn, 2, 3
			Response.Write replace(rsCreateTable(1), vbLF, vbCrLf)
			rsCreateTable.close
			Response.Write vbCrLf & vbCrLf
		end if
		
		if len(request("dump_data")) > 0 then
			
			rsCreateTable.Open "desc " & request("db") & "." & rsTables(0), dsn, 2, 3
			columns = "" 
			for j = 1 to rsCreateTable.RecordCount 
				columns = columns & rsCreateTable(0)
				if j < rsCreateTable.RecordCount then
					columns = columns & ", " 
				end if
				rsCreateTable.movenext 
			next
		
			rsCreateTable.Close
			sql = "select " & columns & " from " & request("db") & "." & rsTables(0)
			rsData.Open sql, dsn, 2, 3
			'Response.Write sql & vbCrLf & vbCrLf
			for j = 1 to rsData.RecordCount 
				outline = "insert into " & request("db") & "." & rsTables(0) & " ("
				outline = outline & columns & ") values ("
				
				for k = 0 to rsData.Fields.count - 1
					outline = outline & "'" 
					if not isNull(rsData.Fields(k).Value) then
						outline = outline & replace(rsData.fields(k).Value, "'", "\'")
					else
						outline = outline & rsData.Fields(k).Value
					end if
					outline = outline & "'"
					if k < rsData.Fields.count - 1 then
						outline = outline & ", "
					end if
				next 	
				outline = outline & ");" & vbCrLf
				Response.Write outline
				rsData.MoveNext
			next
			Response.Write vbCrLf & vbCrLf
			rsData.Close 
		end if
		rsTables.MoveNext
	next
	
	set rsTables = nothing
	set rsCreateTable = nothing
	set rsData = nothing	
end if
%>