?? query.asp
字號:
<%
dim conn
dim connstr
on error resume next
if request("dbname")<>"" then
connstr="DBQ="+server.mappath(request("dbname"))+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
'修改這里，把這里改成你的鏈接字符
set conn=server.createobject("ADODB.CONNECTION")
if err.number<>0 then
err.clear
set conn=nothing
response.write "數據庫連接出錯！"
'Response.End
else
conn.open connstr
if err then
'err.clear
set conn=nothing
response.write "數據庫連接出錯！！！<br>" + err.description
err.clear
'Response.End
end if
end if
end if
sub endConnection()
conn.close
set conn=nothing
end sub
%>
<HTML>
<HEAD>
<TITLE>Query Analyzer</TITLE>
<style>
TD {
FONT-SIZE: 9pt
}
</style>
</HEAD>
<BODY BGCOLOR="#FFFFFF">
<table border=0 cellpadding=0 width=520 align="center">
<tr>
<td align=left valign=top width=520>
<script language=JavaScript>
function setWB(x) {
document.main.whichbutton.value = x;
document.main.submit();
}
function showSQL(x) {
// <option>Pick SQL</option>
// <option>Select</option>
// <option>Insert</option>
// <option>Update</option>
// <option>Delete</option>
// <option>Create Table</option>
// <option>Simple Join</option>
sqlvalue = document.main.sql.value;
if (x == 0) {
smsg = "\n怎樣使用sql語句幫助：\n\n";
smsg = smsg + "1. 在選擇框里選一個命令\n";
smsg = smsg + "2. 點擊[顯示]按鈕\n";
smsg = smsg + "3. sql語句會顯示在左邊的文本框里面\n\n";
smsg = smsg + "4. 修改此語句來適合你數據庫結構\n\n";
smsg = smsg + "5. 根據語句查詢結果或執行命令\n\n";
alert(smsg); }
else if (x == 1) {
smsg = "SELECT columnName, columnName\n";
smsg = smsg + " FROM tableName\n";
smsg = smsg + " WHERE columnName = 'value'\n\n";
document.main.sql.value = smsg;
}
else if (x == 2) {
smsg = "INSERT INTO tableName\n";
smsg = smsg + " (columnName, IntegerColumnName)\n";
smsg = smsg + " VALUES ('value', numericValue)\n\n";
document.main.sql.value = smsg;
}
else if (x == 3) {
smsg = "UPDATE tableName\n";
smsg = smsg + " SET columnName = 'value'\n";
smsg = smsg + " WHERE columnName = 'value'\n\n";
document.main.sql.value = smsg;
}
else if (x == 4) {
smsg = "DELETE columnName\n";
smsg = smsg + " FROM tableName\n";
smsg = smsg + " WHERE columnName = 'value'\n\n";
document.main.sql.value = smsg;
}
else if (x == 5) {
smsg = "CREATE TABLE tableName\n";
smsg = smsg + " (columnName varchar(20),\n";
smsg = smsg + " columnName char(20),\n";
smsg = smsg + " columnName integer)\n\n";
document.main.sql.value = smsg;
}
else if (x == 6) {
smsg = "DROP TABLE tableName\n\n";
document.main.sql.value = smsg;
}
else if (x == 7) {
smsg = "SELECT a.columnName, b.columnName\n";
smsg = smsg + " FROM tableName a, tableName b\n";
smsg = smsg + " WHERE a.columnName = b.columnName\n\n";
document.main.sql.value = smsg;
}
}
function helpme(){
helpmsg="在上面的那個文本框輸入一句sql語句，例如：\n\n";
helpmsg+="select * from table\n\n";
helpmsg+="如果需要查詢結果，則按[查詢結果]，如果只\n";
helpmsg+="需執行一句sql語句，則按[執行sql語句]，一\n";
helpmsg+="般select是用于查詢的，update、delete、\n";
helpmsg+="create table等是用于執行的。\n\n";
helpmsg+="在sql語句幫助表里可以獲得一些基本sql語句\n";
helpmsg+="的語法。";
alert(helpmsg);}
</script>
<form action="query.asp" method=post name=main>
數據庫文件名：
<input type="text" name="dbname" value="<%=request("dbname")%>">
例如：test.mdb,或dir/test.mdb
<table border=0 cellpadding=2 cellspacing=2 width=100%>
<tr>
<td width="357"> <font size="-1">SQL Query : </font><br>
<textarea cols=45 name=sql rows=12 wrap=hard></textarea>
</td>
<td width="194">
<table bgcolor=#999999 border=0 cellpadding=2
cellspacing=2 width="100%">
<tbody>
<tr>
<td>
<table border=0 cellpadding=2 cellspacing=2
width="100%">
<tbody>
<tr>
<td align=middle bgcolor=#cccccc
valign=top>
<div align="center">SQL語句幫助</div>
</td>
</tr>
<tr>
<td align=left bgcolor=#cccccc noWrap
valign=top>
<table border=0 cellpadding=2 cellspacing=2
width="100%">
<tbody>
<tr>
<td align=left bgcolor=#cccccc
valign=center>
<div align="center">
<select
name=sqlsyntax size=5>
<option selected>Choose SQL</option>
<option>Select</option>
<option>Insert</option>
<option>Update</option>
<option>Delete</option>
<option>Create Table</option>
<option>Drop Table</option>
<option>Simple Join</option>
</select>
</div>
</td>
</tr>
<tr>
<td align=left bgcolor=#cccccc
valign=center>
<div align="center">
<input name=sqlasst1 onClick=showSQL(document.main.sqlsyntax.selectedIndex); type=button value="顯示">
<input name=sqlasst2 onClick="document.main.sql.value='';" type=button value="清除">
</div>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<br>
<input
name=whichbutton type=hidden value="NORS">
<input name=action2 type=hidden value=exec>
<input name=selindex type=hidden>
<b>
<input name=b1 onClick="setWB('GetRS');" type=button value="查詢結果(rs)">
<input name=b2 onClick="setWB('NORS');" type=button value="執行SQL語句(no rs)">
<input name=b3 onClick="helpme();" type="button" value="幫助(help)">
</b>
</form>
<b>
<script language=JavaScript>
document.main.sql.focus();
if (document.main.selindex.value != "") { document.main.db.options[document.main.selindex.value].selected = true; }
</script>
</b></td>
</tr>
</table>
<p>
<%
dim sql,rs
ifrs=request("whichbutton")
sql=request("sql")
if sql<>"" then
select case ifrs
case "NORS"
conn.execute sql
if err then
response.write "這句sql語句有錯誤，沒有完全執行。<br>"&err.description&"<br>"&sql
else
response.write "執行成功！"
end if
case "GetRS"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if err then
response.write "這句查詢sql語句有錯誤，沒有完全執行。<br>"&err.description&"<br>"&sql
else
%><table border="1" cellpadding="0" cellspacing="0" bordercolordark="#FFFFFF" bordercolorlight="#000000" align="center">
<tr bgcolor="#009900">
<%
colnum=rs.fields.count
for i=0 to rs.fields.count-1
response.write "<td><font color='#FFFFFF'>"&rs(i).name&"</font></td>"
next
%></tr><%
do while not rs.eof
k=0
response.write "<tr>"
for k=0 to colnum-1
response.write "<td>"&rs(rs(k).name)&"</td>"&chr(13)
next
response.write "</tr>"
rs.movenext
loop
%></table><%
rs.close
set rs=Nothing
end if
end select
end if
endconnection
%>
<hr>
<div align="center"><br>
<a href="http://www.qbtrade.com">Qbtrade.com</a> All Rights Reserved <br>
coded by ayeah(OICQ:549052) 2001.1.2</div>
</BODY>
</HTML>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -