?? 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 + -