上一篇
下一篇
在线批量修改Access数据库的ASP代码
作者:cnfgg 日期:2011-07-21
复制内容到剪贴板
程序代码
程序代码1.<%这里加入你网站管理员的验证信息%>
2.<HTML><HEAD><TITLE>数据库批量修改</TITLE>
3.<META http-equiv=Content-Type content="text/html; charset=gb2312">
4.
5.<style>
6.* {
7. font-family: "宋体";
8.}
9.Body {
10. font-size: 9pt;
11. line-height: 12pt;
12. scrollbar-face-color: #DEE3E7;
13. scrollbar-highlight-color: #FFFFFF;
14. scrollbar-shadow-color: #DEE3E7;
15. scrollbar-3dlight-color: #D1D7DC;
16. scrollbar-arrow-color: #006699;
17. scrollbar-track-color: #EFEFEF;
18. scrollbar-darkshadow-color: #98AAB1;
19.}
20.Table,Td,form {
21. font-size: 9pt;
22. line-height: 12pt;
23.}
24.input,select,option,textarea {
25. font-size: 9pt;
26. /**border: 1px solid #CCCCCC;**/
27. color: #000033;
28.
29.}
30..b1 {
31. border: 1px solid #CCCCCC;
32.}
33..tdbg1 {
34. background-color: #D7D7D7;
35.}
36..tdbg2 {
37. background-color: #F6F6F6;
38.}
39..tdbgleft {
40. background-color: #F9F9F9;
41.}
42.
43..max1{
44.height:300px;
45.width:500px;
46.}
47.
48..max{
49.Z-INDEX: 1; LEFT: 0px; POSITION: absolute; TOP: 0px;height:expression(body.offsetHeight);width:expression(body.offsetWidth)
50.}
51.a:link {
52. color: #000066;
53. text-decoration: none;
54.}
55.a:visited {
56. text-decoration: none;
57. color: #000066;
58.
59.}
60.a:hover {
61. color: #FF0000;
62. text-decoration: underline;
63.}
64.a:active {
65. text-decoration: underline;
66.}
67.</style>
68.<Script Language=Javascript>
69.function check(){
70.var f=document.myform
71.if(f.oSoftLink.value.length==0){alert("要查找的字符不能为空");f.oSoftLink.focus();return false}
72.}
73.</script>
74.<Script Language=Javascript>
75.function check1(){
76.var f=document.myform1
77.if(f.mdbname.value.length==0){alert("数据库地址不能为空");f.mdbname.focus();return false}
78.}
79.</script>
80.</HEAD>
81.<BODY leftMargin=0 topMargin=0>
82.
83.<table width="100%" border="0" cellspacing="2">
84. <tr>
85. <td class="b1" valign="top">
86.<% sub Sysmsg(msgtitle,msginfo) %>
87.<table width="100%" border="0" cellpadding="5">
88. <tr>
89. <td class="tdbg1"><strong><%= msgtitle %></strong></td>
90. </tr>
91. <tr>
92. <td class="tdbg2"><%= msginfo %></td>
93. </tr>
94. <tr>
95. <td class="tdbg2"><a href="javascript:history.go(-1)" ><< 返回上一页</a></td>
96. </tr>
97.</table>
98.<% end sub %>
99.<%
100.function checkStr(str)
101. if isnull(str) then
102. checkStr = ""
103. exit function
104. end if
105. checkStr=replace(str,"'","''")
106.end function
107.select case Trim(Request.Form("action"))
108. case "replace"
109. call replacelink()
110. case "search"
111. call searchlink()
112. case "biao"
113. call biao()
114. case "ziduan"
115. call ziduan()
116. case else
117. call main()
118. end select
119.sub replacelink()
120.set conn=server.createobject("ADODB.CONNECTION")
121.connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath(""&Session("mdbname")"")
122.conn.open connstr
123.oSoftLink=checkStr(Trim(Session("oSoftLink")))
124.nSoftLink=checkStr(Trim(Request.Form("nSoftLink")))
125.biaoname=checkStr(Trim(Session("biaoname")))
126.ziduanname=checkStr(Trim(Session("ziduanname")))
127.set rs=server.createobject("adodb.recordset")
128.set uprs=server.createobject("adodb.recordset")
129.haveid=Session("haveid")
130.if haveid=1 then
131.'response.write "快"
132.sql="select id," & Session("ziduanname") & " from " & Session("biaoname") & " where " & Session("ziduanname") & " like '%"&Trim(Session("oSoftLink"))"%'"
133.rs.open sql,conn,1,1
134.if not(rs.eof and rs.bof) then
135.i=rs.recordcount
136.do while not rs.eof
137. newAddress=replace(rs(1),""&oSoftLink"",""&nSoftLink"")
138.
139. sql="select * from " & biaoname & " where ID="&rs(0)
140. uprs.open sql,conn,1,3
141. uprs(""&ziduanname"")=newAddress
142. uprs.update
143. uprs.close
144.
145. rs.MoveNext
146. Loop
147.end if
148.else
149.'response.write "不快"
150.sql="select " & Session("ziduanname") & " from " & Session("biaoname") & " where " & Session("ziduanname") & " like '%"&Trim(Session("oSoftLink"))"%'"
151.rs.open sql,conn,1,1
152.if not(rs.eof and rs.bof) then
153.i=rs.recordcount
154.do while not rs.eof
155. newAddress=replace(rs(0),""&oSoftLink"",""&nSoftLink"")
156.
157. sql="select * from " & biaoname & " where " & ziduanname & "='"&rs(0)"'"
158. uprs.open sql,conn,1,3
159. uprs(""&ziduanname"")=newAddress
160. uprs.update
161. uprs.close
162.
163. rs.MoveNext
164. Loop
165.end if
166.end if
167.rs.close
168.set uprs=nothing
169.set rs=nothing
170.msgtitle="批量管理"
171.msginfo="<li>操作成功，共更新了 "&i" 条信息！</li>"
172.call Sysmsg(msgtitle,msginfo)
173.Conn.close
174.Set conn = Nothing
175.end sub
176.
177.sub searchlink()
178.%>
179. <form name="myform" action="" method="post">
180. <table cellpadding="3" cellspacing="1" border="0" width="100%" class="tableBorder" align=center>
181. <tr>
182. <th height="22" class="tdbg1">替换
183.<input name="action" type="hidden" value="replace"></th>
184. </tr>
185. <tr>
186. <td height="25" align="center" class="tdbg2">
187.<%
188. Session("ziduanname")=checkStr(Trim(Request.Form("ziduanname")))
189. set conn=server.createobject("ADODB.CONNECTION")
190. connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath(""&Session("mdbname")"")
191. conn.open connstr
192. set rs=server.createobject("adodb.recordset")
193. sql="select count(" & Session("ziduanname") & ") from " & Session("biaoname") & " where " & Session("ziduanname") & " like '%"&checkStr(Trim(Request.Form("oSoftLink")))"%'"
194. rs.open sql,conn,1,1
195. if not(rs.eof and rs.bof) then
196. Session("oSoftLink")=checkStr(Trim(Request.Form("oSoftLink")))
197. Response.Write("本次搜索找到了 <b>"&rs(0)"</b> 个相关条目。")
198. else
199. Response.Write("没有找到相关信息")
200. end if
201. rs.close
202. set rs=nothing
203. Conn.close
204. Set conn = Nothing
205. %>
206. </td>
207. </tr>
208. <tr>
209. <td height="25" align="center" class="tdbg2">将字符
210. <input disabled name="oSoftLink" type="text" value="<%= Trim(Request.Form("oSoftLink")) %>" size="45" maxlength="50">
211. </td>
212. </tr>
213. <tr>
214. <td height="25" align="center" class="tdbg2">替换成
215. <input name="nSoftLink" type="text" value="" size="45" maxlength="50">
216.
217. </tr>
218. <tr>
219. <td height="25" align="center" class="tdbg2">
220.<input type="submit" name="Submit2" value="马上替换 "></td>
221. </tr>
222. <tr>
223. <td class="tdbg2" align="center"><a href="javascript:history.go(-1)" ><< 返回上一页</a></td>
224. </tr>
225. </table>
226. </form>
227.<%
228. end sub
229. sub biao()
230. Session("mdbname")=checkStr(Trim(Request.Form("mdbname")))
231. Set fso = CreateObject("Scripting.FileSystemObject")
232. filename=server.mappath(""&Session("mdbname")"")
233. if Not fso.FileExists(filename) then
234. msgtitle="批量管理"
235. msginfo="<li>你输入的数据库 "&filename" 不存在！</li><br><li>请输入<font color=#FF0000>正确</font>的数据库地址！</li>"
236. call Sysmsg(msgtitle,msginfo)
237. response.end
238. end if
239. Set fso = nothing
240. set conn=server.createobject("ADODB.CONNECTION")
241. connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath(""&Session("mdbname")"")
242. conn.open connstr
243.%>
244.<form name="myform" action="" method="post">
245. <table cellpadding="3" cellspacing="1" border="0" width="100%" class="tableBorder" align=center>
246. <tr>
247. <th height="22" class="tdbg1">选择表名</th>
248. </tr>
249. <tr>
250. <td height="25" align="center" class="tdbg2">数据库地址（相对地址）：
251. <input disabled name="mdbname" type="text" size="45" maxlength="50" value="<%= Trim(Request.Form("mdbname")) %>">
252. </td>
253. </tr>
254. <tr>
255. <td height="25" align="center" class="tdbg2">要操作的表名：
256. <input name="action" type="hidden" value="ziduan">
257. <select name="biaoname">
258. <%Set rs=Conn.OpenSchema(20)
259. While not rs.EOF
260. Response.Write("<option value='" & rs(2) & "'>" & rs(2) & "</option>")
261. rs.MoveNext
262. Wend%>
263. </select>
264. <input type="submit" name="Submit" value="下一步">
265. </td>
266. </tr>
267. <tr>
268. <td class="tdbg2" align="center"><a href="javascript:history.go(-1)" ><< 返回上一页</a></td>
269. </tr>
270. </table>
271. </form>
272.<% end sub
273.sub ziduan()
274. 'Session("mdbname")=checkStr(Trim(Request.Form("mdbname")))
275. Session("biaoname")=checkStr(Trim(Request.Form("biaoname")))
276. set conn=server.createobject("ADODB.CONNECTION")
277. connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath(""&Session("mdbname")"")
278. conn.open connstr
279.%>
280.<form name="myform" action="" method="post" onsubmit="return check()">
281. <table cellpadding="3" cellspacing="1" border="0" width="100%" class="tableBorder" align=center>
282. <tr>
283. <th height="22" class="tdbg1">选择字段名输入查找内容</th>
284. </tr>
285. <tr>
286. <td height="25" align="center" class="tdbg2">数据库地址（相对地址）：
287. <input disabled name="mdbname" type="text" size="45" maxlength="50" value="<%= Session("mdbname") %>">
288. </td>
289. </tr>
290. <tr>
291. <td height="25" align="center" class="tdbg2">要操作的表名：
292. <select name="biaoname">
293. <option value="<%= Session("biaoname") %>" selected><%=Session("biaoname")%></option>
294. </select>
295. </td>
296. </tr>
297. <tr>
298. <td height="25" align="center" class="tdbg2">要替换的字段名：
299. <select name="ziduanname">
300. <%
301. haveid=0
302. set rs=server.createobject("adodb.recordset")
303. sql="select * from [" & Session("biaoname") & "] where 1<>1"
304. rs.open sql,Conn,1,1
305. j=rs.Fields.count
306. For i=0 to (j-1)
307. 'Response.Write("第" & i+1 & "个字段名：" & rs.Fields(i).Name & "<br>")
308. Response.Write("<option value='" & rs.Fields(i).Name & "'>" & rs.Fields(i).Name & "</option>")
309. if LCase(rs.Fields(i).Name)="id" then
310. Session("haveid")=1
311. end if
312. Next
313. rs.close%>
314. </select>
315. </td>
316. </tr>
317. <tr>
318. <td height="25" align="center" class="tdbg2">内容中包含的字符：
319. <input name="action" type="hidden" value="search">
320. <input name="oSoftLink" type="text" size="45" maxlength="50">
321. <input type="submit" name="Submit" value="查找">
322. </td>
323. </tr>
324. <tr>
325. <td class="tdbg2" align="center"><a href="javascript:history.go(-1)" ><< 返回上一页</a></td>
326. </tr>
327. <tr>
328. <td height="25" align="center" class="tdbg2">注意：单引号“'”将被自动过滤掉</td>
329. </tr>
330. </table>
331. </form>
332.<% end sub
333.sub main()
334.%>
335.<form name="myform1" action="" method="post" onsubmit="return check1()">
336. <table cellpadding="3" cellspacing="1" border="0" width="100%" class="tableBorder" align=center>
337. <tr>
338. <th height="22" class="tdbg1">输入数据库名</th>
339. </tr>
340. <tr>
341. <td height="25" align="center" class="tdbg2">请输入数据库地址（相对地址）：
342. <input name="action" type="hidden" value="biao">
343. <input name="mdbname" type="text" size="45" maxlength="50">
344. <input type="submit" name="Submit" value="下一步"> </td>
345. </tr>
346. <tr>
347. <td height="25" align="center" class="tdbg2">注意：单引号“'”将被自动过滤掉</td>
348. </tr>
349. </table>
350. </form>
351.<center><script>var tc_user="addision";var tc_class="2";</script>
352.</center>
353.<% end sub %>
354. </td>
355. </tr>
356.</table>
357.</BODY>
358.</HTML>
文章来自: 
引用通告: 
Tags: 
相关日志:
评论: 0 | 引用: 0 | 查看次数: -
发表评论