mod.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"><%=Request("db")%> -- <%=request("table")%></td>
				</tr>
				<tr>
					<td class="cellsmallcontent">
						<%
						select case request("action")
							case "edit"
								if len(request("confirm")) > 0 then
									
									set cn = server.CreateObject("ADODB.Connection")
									cn.open dsn
									
									sql = "update " & request("db") & "." & request("tb") & " set "
									
									set rsEditNow = server.CreateObject("ADODB.Recordset")
									rsEditNow.CursorLocation = 3
									
									rsEditNow.Open "show columns from " & request("db") & "." & request("tb"), dsn, 2, 3
									
									for i = 1 to rsEditNow.RecordCount 
									
										sql = sql & rsEditNow("field") & " = '" & replace(request(rsEditNow("field")), "'", "\'") & "'"
										if i < rsEditNow.RecordCount then
											sql = sql & ", "
										end if
										rsEditNow.MoveNext 
										
									next
									
									sql = sql & " Where " & request("whereClause")
									'Response.Write sql
									
									cn.execute sql
									
									set cn = nothing
									
									set rsEditNow = nothing
									
									Response.Redirect "runquery.asp?db=" & request("db") & "&tb=" & request("tb") & "&vQuery=" & server.URLEncode("select * from " & request("db") & "." & request("tb"))
									'response.redirect "showdb.asp?db=" & request("db")
								else
									'First we get the details of the table.
									set rsEdit = server.CreateObject("ADODB.Recordset")
									rsEdit.cursorlocation = 1
									rsEdit.Open "show columns from " & request("db") & "." & request("tb"), dsn, 2, 3
									
									set rsEditContent = server.CreateObject("ADODB.Recordset")
									rsEditContent.CursorLocation = 3
									sql = "select * from " & request("db") & "." & request("tb") & " where " & request("whereClause")
									
									rsEditContent.Open sql, dsn, 2, 3
									
									if err.number = 0 then
										%>
										<form ACTION="mod.asp?action=edit&confirm=y&db=<%=request("db")%>&tb=<%=request("tb")%>&whereclause=<%=request("whereClause")%>" method="post" id="form2" name="form2">
										<table cellpadding="2" cellspacing="1" border="0" style="border:solid black 1pt;">	
											<tr>
												<td bgcolor="#339999" colspan="3" class="cellsmalltitle" align="center">Update Row From <%=request("tb")%></td>
											</tr>	
											<tr>
												<td class="cellsmallcontent">Field</td>
												<td class="cellsmallcontent">Type</td>
												<td class="cellsmallcontent">Value</td>
											</tr>	
										<%
										counter = 0
										while not rsEdit.EOF  
											counter = counter + 1
											%>
											<tr>
												<td<%if counter mod 2="0" then%> bgcolor=white<%end if%> class=navcontent><%=rsEdit("field")%></td>
												<td<%if counter mod 2="0" then%> bgcolor=white<%end if%> class=navcontent><%if len(rsEdit("type")) > 25 then : Response.write left(rsEdit("type"), 25) : else Response.Write rsEdit("type") : end if%></td>
												<td<%if counter mod 2="0" then%> bgcolor=white<%end if%>>
													<%
													if instr(rsEdit("type"), "enum(") > 0 then
														%>
														<select style="width=255px;" name="<%=rsEdit("field")%>" id="select1">
														<%
														'Enum Datatype
														strOptions = replace(rsEdit("type"), "enum(", "")
														strOptions = replace(strOptions, ")", "")
														aryOptions = split(strOptions, ",", -1)
														thisfield = rsEdit("field")
														
														for each x in aryOptions
														%>
														<option VALUE="<%=replace(x, "'", "")%>"<%if rsEditContent(thisfield) = replace(x, "'", "") then : Response.Write " Selected" : end if%>><%=replace(x, "'", "")%></option>
														<%
														next
														%>
														</select>
													<%	
													elseif instr(rsEdit("type"), "text") > 0 then
														thisfield = rsEdit("field")
													%>
													<TEXTAREA Name=<%=rsEdit("field")%> style="width:255px;height:75px;"><%=rsEditContent(thisfield)%></TEXTAREA>
													<%
													else
														thisfield = rsEdit("field")
														if isDate(rsEditContent(thisfield)) then
															thisValue = cstr(year(rsEditContent(thisfield)) & "-" & right("0" & month(rsEditContent(thisfield)), 2) & "-" & day(rsEditContent(thisfield)))
														else
															thisvalue = rsEditContent(thisfield)
														end if
													%>
													<input TYPE="text" style="width=255px;" name="<%=rsEdit("field")%>"<%if rsEdit("extra") = "auto_increment" then%> readonly<%end if%> value="<%=thisvalue%>">
													<%
													end if
													%>
												</td>
											</tr>
											<%
											
											rsEdit.MoveNext
										wend				
										%>
											<tr>
												<td colspan="3"><input TYPE="SUBMIT" VALUE="Update Row" name="AnsolButton">&nbsp;&nbsp;<input TYPE="BUTTON" VALUE="Cancel" onclick="window.history.go(-1);" </TD>
											</tr>
										</table>
										</form>
										<%
										set rsEdit = nothing
										set rsEditContent = nothing
									else
									
									end if
								end if
							case "truncate"
								if request("confirm") = "Yes" then
									set cn = server.CreateObject("ADODB.connection")
									cn.Open dsn
									cn.Execute "use " & request("db")
									cn.Execute "truncate table " & request("table")
								
									set cn = nothing
									Response.Clear 
									Response.Redirect "showdb.asp?db=" & request("db")
								else
									%>
									<table cellpadding="2" width="250" cellspacing="1" border="0" style="border:solid black 1pt;">	
										<tr>
											<td bgcolor="#339999" class="cellsmalltitle" align="center">Truncate Table</td>
										</tr>	
										<tr>
											<td class="cellsmallcontent">
												<br>
													<b>You have chosen to truncate the table "<%=request("table")%>".  This operation cannot be undone.
													Are you sure you want to continue?<br>
											</td>
										</tr>
										<tr>
											<td>
												<form ACTION="mod.asp?action=truncate&db=<%=request("db")%>&table=<%=request("table")%>" METHOD="POST" id="form1" name="form1">
												<input TYPE="SUBMIT" VALUE="Yes" Name="confirm">&nbsp;&nbsp;&nbsp;<input TYPE="Button" Value="No" onclick="document.location.href='showdb.asp?db=<%=request("db")%>';" id="Button1" name="Button1">
												</form>
											</td>
										</tr>
									</table>
									<%
								end if
							case "drop"
								if request("confirm") = "Yes" then
									set cn = server.CreateObject("ADODB.connection")
									cn.Open dsn
									cn.Execute "use " & request("db")
									cn.Execute "drop table " & request("table")
								
									set cn = nothing
									Response.Clear 
									Response.Redirect "showdb.asp?db=" & request("db")
								else
									%>
									<table cellpadding="2" width="250" cellspacing="1" border="0" style="border:solid black 1pt;">	
										<tr>
											<td bgcolor="#339999" class="cellsmalltitle" align="center">Drop Table</td>
										</tr>	
										<tr>
											<td class="cellsmallcontent">
												<br>
													<b>You have chosen to drop the table "<%=request("table")%>".  This operation cannot be undone.
													Are you sure you want to continue?<br>
											</td>
										</tr>
										<tr>
											<td>
												<form ACTION="mod.asp?action=drop&db=<%=request("db")%>&table=<%=request("table")%>" METHOD="POST" id="form1" name="form1">
												<input TYPE="SUBMIT" VALUE="Yes" Name="confirm">&nbsp;&nbsp;&nbsp;<input TYPE="Button" Value="No" onclick="document.location.href='showdb.asp?db=<%=request("db")%>';" id="Button1" name="Button1">
												</form>
											</td>
										</tr>
									</table>
									<%
								end if
							case "browse"
								set cn = server.CreateObject("ADODB.connection")
								cn.Open dsn
								cn.Execute "use " & request("db")
								set rsQuery = server.CreateObject("ADODB.Recordset")
								rsQuery.CursorLocation = 3
								sql = "select * from " & request("table")
								rsQuery.Open sql, cn, 2, 3
								%>
								<table cellpadding="2" cellspacing="1" border="0" style="border:solid black 1pt;">	
								<tr>
									<td bgcolor="#339999" <%if err.number = 0 then%>colspan="<%=rsQuery.fields.count%><%end if%>" class="cellsmalltitle" align="center">SQL Query Results</td>
								</tr>
								<tr>
									<td class="cellsmallcontent" colspan="<%=rsQuery.fields.count%>"><b>Results for the query:</b>&nbsp;&nbsp;select * from <%=request("table")%></td>
								</tr>
								<%
								if err.number = 0 then
									%>
									<tr>
									<%
									for i = 0 to rsQuery.Fields.Count - 1
										%>
										<td class="cellsmallcontent" bgcolor="white"><b><%=rsQuery.Fields(i).Name%></b></td>
										<%
									next
									%>
									</tr>
									<%
									for q = 1 to rsQuery.RecordCount 
									%>
									<tr>
										<%
										for r = 0 to rsQuery.Fields.count - 1
										%>
										<td class="cellsmallcontent" nowrap<%if q mod 2 = 0 then%> bgcolor="white"<%end if%>><%if len(rsQuery(r)) > 30 then%><%=left(rsQuery(r), 30)%>...<%else%><%=rsQuery(r)%><%end if%></td>
										<%
										next
									rsQuery.MoveNext
									%>
									</tr>
									<%
									next
									%>
								</table>
								<a href="mod.asp?action=insert&db=<%=request("db")%>&table=<%=request("table")%>" class="navlink">Insert New Row</a>
								<%
								end if
							case "insert"
								if len(request("submitted")) = 0 then
									'First we get the details of the table.
									set rsInsert = server.CreateObject("ADODB.Recordset")
									rsInsert.cursorlocation = 1
									rsInsert.Open "show columns from " & request("db") & "." & request("table"), dsn, 2, 3
									
									if err.number = 0 then
										%>
										<form ACTION="mod.asp?action=insert&db=<%=request("db")%>&table=<%=request("table")%>&submitted=y" method="post">
										<table cellpadding="2" cellspacing="1" border="0" style="border:solid black 1pt;">	
											<tr>
												<td bgcolor="#339999" colspan="3" class="cellsmalltitle" align="center">Insert Row Into <%=request("table")%></td>