这几天为学校做了几个网站，发现一个问题，有一些数据库(大部分是Access的，还有一些MSql的)在设计时出现了问题，造成了数据库里面的很多内容是冗余的，所以需要对数据库进行清理。所以就开始写了一个asp的文件CleanData.asp(代码见后文）。
关键问题在于数据库的问题，我本来在我的机器上有测试的数据，但是我需要修改网络上的数据，而我们学校为了安全，校园网的ftp不开，要更新网络的跑道网络不去更新数据，很麻烦的。
所以我就想，能不能在我本地使用文件访问远程的数据库了，进行远程操作呢？
我开始没有注意，在写代码时发现了这个东西：
objConn.ConnectionString
其中我用"Provider=Microsoft.Jet.oledb.4.0;Data Source =" & DataSourcePath
来连接，写到这得时候，我突然想到DataSourcePath的问题，我可不可以设置为远程的地址呢？比如：http://www.xxx.com/data.mdb
我刚才测试了一下，失败了！但是我还是不甘心，感觉到好像可以？等明天再看看，今天记录以下！
源码：
<!--#include file="Common/WebConfig.asp" -->
<!--#include file="Common/clsmain.asp" -->
<%
dim action,datatype
action=lcase(trim(request.QueryString("action")))
datatype=lcase(trim(request.Form("datatype")))
if action="clear" then
call cleardata(datatype)
end if
%>
<form name="form1" method="post" action="?action=clear">
<table width="80%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><div align="right">选择清除对象: </div></td>
<td><label>
<div align="left">
<select name="datatype">
<option value="0">一级分类</option>
<option value="1">二级分类</option>
<option value="2">新闻内容</option>
<option value="3">全部</option>
</select>
</div>
</label></td>
<td> </td>
</tr>
<tr>
<td> </td>
<td> </td>
<td> </td>
</tr>
<tr>
<td colspan="2" rowspan="2"> </td>
<td> </td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td><label>
<div align="center">
<input type="submit" name="Submit" value="确定">
</div>
</label></td>
<td><label>
<div align="center">
<input type="reset" name="Submit2" value="取消">
</div>
</label></td>
<td> </td>
</tr>
</table>
</form>
<%sub cleardata(j)
Dim dsj
Set dsj=New clsDSJ
dsj.debug=true
IF NOT dsj.Debug Then ON ERROR RESUME NEXT
dsj.ClientConnected
dim str(3),msg
str(0)="DELETE dsj_catalog.* " & _
" FROM dsj_catalog " & _
" WHERE " & _
" catalogid NOT IN (SELECT parentid FROM dsj_class)"
str(1)="DELETE dsj_class.* " & _
" FROM dsj_class " & _
" WHERE " & _
" parentid NOT IN (SELECT catalogid FROM dsj_catalog)"
str(2)="DELETE dsj_news.* " & _
" FROM dsj_news " & _
" WHERE " & _
" classid NOT IN (SELECT classid FROM dsj_class)"
dim conn,cmd
set conn=server.CreateObject("adodb.Connection")
conn.ConnectionTimeOut=15
'conn.ConnectionString="Provider=Microsoft.Jet.oledb.4.0;data source=" & Server.MapPath(dbFolder & DataBase)
dim remoteDB
remoteDB="http://www.xxx.cn/database.mdb"
conn.ConnectionString="Provider=Microsoft.Jet.oledb.4.0;data source=" & remoteDB
conn.open()
conn.begintrans()
set cmd=server.CreateObject("ADODB.command")
cmd.commandtimeout=15
cmd.activeConnection=conn
cmd.commandtype=1
dim i
for i=0 to 2
if j=3 then j=i '保证全部执行
cmd.commandText=str(j)
cmd.execute()
if (j<>3 and j<>i) then exit for '确保这里只执行一次
next
if conn.errors.count=0 then
conn.committrans()
msg="成功执行"
else
conn.rallbacktrans()
msg="发生错误"
end if
dsj.alert(msg)
set dsj=nothing
end sub
%>
