📄 sql.asp
字号:
<%
'////////////////////////////////////////////////////////////////
'/////文 件 名：/user/save.asp
'/////程序名称：数据特权访问
'/////所属模块：系统管理
'/////创建日期：2002-6-19
'/////创 建 人：罗向东
'/////修改记录：
'///// 2002-7-25 罗向东 代码归整
'////////////////////////////////////////////////////////////////
%>
<html>
<head>
<title>数据特权访问</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<%
'打开系统数据库
DBPath="../db"
set con=Server.CreateObject("ADODB.Connection")
ConnStr="DBQ="+server.mappath("../lrmis.mdb")+";DRIVER={Microsoft Access Driver (*.mdb)};"
'ConnStr= "driver={SQL Server};server=lr;uid=sa;pwd=;database=lrmis"
con.Open ConnStr
Server.ScriptTimeOut =1
if request("sql")<>"" then
his="<option value=" & chr(34) & replace(request("sql"),chr(34),"") & chr(34) & ">" & request("sql") & "</option>" + request("his")
session("his")=his
else
his=session("his")
end if
%>
<body leftmargin="0" topmargin="0">
<form name="form1" method="post" action="sql.asp">
<table width="95%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr bgcolor=ffffff>
<td width="50%">输入SQL标准命令： </td>
<td>历史记录： </td>
</tr>
<tr bgcolor=ffffff>
<td>
<textarea name="sql" cols="5" rows="10" style="width=100%;<%=Session("vinputtext")%>" ><%=request("sql")%></textarea>
</td>
<td>
<select name="sql2" style="width=100%;" size="10" onChange="javascript:document.all.sql.value=document.all.sql2.value">
<%=his%>
</select>
</td>
</tr>
<tr bgcolor=ffffff>
<td>
<input type="submit" name="Submit" value="执行(R)" accesskey='r'>
</td>
<td> </td>
</tr>
</table>
<textarea style="display:none" name="his" cols=1 rows=1><%=his%></textarea>
</form>
<%
if request("sql")<>"" then
dim t
t=split(request("sql"),"~~")
for i=0 to UBound(t)
con.execute(t(i))
next
end if
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -