?? sql2.asp
字號:
<%
'////////////////////////////////////////////////////////////////
'/////文 件 名：/user/save.asp
'/////程序名稱：數(shù)據(jù)特權(quán)訪問
'/////所屬模塊：系統(tǒng)管理
'/////創(chuàng)建日期：2002-6-19
'/////創(chuàng) 建 人：羅向東
'/////修改記錄：
'///// 2002-7-25 羅向東 代碼歸整
'////////////////////////////////////////////////////////////////
%>
<html>
<head>
<title>數(shù)據(jù)特權(quán)訪問</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<%
'打開系統(tǒng)數(shù)據(jù)庫
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標(biāo)準(zhǔn)命令： </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="執(zhí)行(R)" accesskey='r'>
</td>
<td> </td>
</tr>
</table>
<textarea style="display:none" name="his" cols=1 rows=1><%=his%></textarea>
</form>
<%
for i=11 to 50
for j=1 to 16
'con.execute "insert into funs (vnumber,vname,vurl,vimage,vstyle,vid,vshow,venabled) values(" & (i-1) *16+j-1 & ",'','','','f" & i & "','f" & i & "f" & j & "','t','f')"
next
next
%>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -