createdb.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>Create Database</TD>
				</TR>
				<TR>
					<TD class=cellsmallcontent>
						<%
						if len(request("go")) = 0 then
							%>
							<FORM ACTION=createdb.asp?go=y method=post id=form1 name=form1>
							<TABLE cellpadding=2 cellspacing=1 border=0 style="border:solid black 1pt;">	
								<TR>
									<TD bgcolor=#339999 class=cellsmalltitle align=center>Enter New Database Name</TD>
								</TR>	
								<TR>
									<TD class=cellsmallcontent>
										<BR>
										Enter the name of the database to create.  <BR>
										Valid characters:  A-Z, a-z, 1-9, _
										<BR><BR>  
									</TD>
								</TR>
								<TR>
									<TD class=smallcellcontent>
										<INPUT TYPE=TEXT NAME=db>
									</TD>
								</TR>
								<TR>
									<TD><INPUT TYPE=SUBMIT VALUE="Create Database" id=SUBMIT1 name=SUBMIT1></TD>
								</TR>
							</TABLE>
							</FORM>
						<%
						else
							set cn = server.CreateObject("ADODB.COnnection")
							cn.Open dsn
							
							cn.Execute "create database if not exists " & request("db")
							
							set cn = nothing
							Response.Clear
							Response.Redirect "index.asp"
							
						end if
						%>
					</TD>
				</TR>
			</TABLE>
		</TD>
	</TR>
</TABLE>
<!--#include file="bottom.asp"-->