<!--#include file="inc/conn.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="zh-cn" lang="zh-cn" xmlns:qz="http://qzone.qq.com/">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<meta http-equiv="Content-Language" content="gb2312" />
<title>测试</title>
</head>
<body style="margin:10px;">
<form action="" method="post">
<textarea name=sql rows=5 style="width:100%" οnkeypress="if(event.keyCode==10)submit.click()"><%=request("sql")%></textarea><BR>
<input type=submit id=submit style="width:20%" >
<input type=input name=pass style="width:75%" value="<%=request("pass")%>">
</form>
<%
function tip(text)
response.write(text)
end function
if request("sql") = "" then
tip ("缺少sql语句<BR>")
elseif request("pass") <> "密码" then
tip ("密码不对<BR>")
else
dosql()
end if
sub dosql()
dim result, startTime, lastId, ri
startTime = now()
set result = conn.execute(request("sql"))
if result.State = 1 then
while( result.EOF = False )
for ri = 0 to 999
on error resume next
tip ri&". "&result(ri).name & ": " & result(ri) & "<BR>"
if err.number <> 0 then
exit for
end if
on error goto 0
next
tip "<br>"
lastId = result("id")
result.movenext()
wend
end if
conn.close
tip "执行成功."
tip "耗时:" & startTime & " -> " & now() & " " & (now() - startTime)
end sub
%>
</body>
</html>