<%@ LANGUAGE=VBScript%>
<!--#include file="check.asp"-->
<!--#include file="../include/conn.asp"-->
<%
sqlstr=Request.Form("sqlstr")
If sqlstr="" Then response.Write("<Script>alert('请输入语句！');window.location='sqlok.asp';</script>")
'fs=int(Request.form("sqlfs"))
'set conn=server.createobject("adodb.connection") 
set rs=server.CreateObject ("adodb.recordset")
Set Rs=conn.Execute(sqlstr)
'rs.close
'set rs=nothing
'set conn=nothing
response.Write("<Script>alert('操作成功！');window.location='sqlok.asp';</script>")
response.end
'商易仿淘宝4.0.1演示地址
'http://www.ftaobao.com
%>
