asp——奇思妙想 & 困惑
asp——奇思妙想 & 困惑 这几天为学校做了几个网站，发现一个问题，有一些数据库(大部分是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://depart.sjzu.edu.cn/depart/xuesheng/xsc1/manage/data/news.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
%>
