|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
ASP是依赖组件的,能访问数据库的组件好多就有好多种,再有就是你微软的工具可是什么都要收钱的啊!access|数据|数据库|下载|实行思绪是来自:<%的利用,然后Asp实行的时分报错。
如今只是把他写成asp代码了,便利利用。
由于如许话能够间接实行就ok了,也不必下载数据库然后建表等。。。。然后再上传掩盖了。。。
偶的代码只是为了完成这个功效:考究有用。请列位多多指导。。。。
特地增补一下这代码发生的背景:我也是发起mdb映照的对照好,也作了录象了,厥后他硬要问:在没有做影射的假造主机上怎样办,以是就匆仓促写了这么段代码免除他下载然先手工拔出<%然后上传的贫苦。
1.加了具体的毛病形貌了。
2.我用随机表应当能够办理这个成绩的吧。
3.我到场多个<%也基础能够制止%>的成绩的吧。在复杂的其他中央不触及两进制数据的时分,我以为这个办法仍是不错。
同时感谢zhouzhen的品评。接待再次提出品评。。感谢
<%OPTIONEXPLICIT%>
<%
Dimstr_form,str_version,i
dimmdbfile,conn,rec,str_notdown,tabale_notdown
str_version="codeby喜好哀伤QQ:122545971<br>"
str_version=str_version&"本页代码感化:避免Access数据库被下载<br>"&"特性是:利用便利,间接上传到空间实行终了就能够了。<br>"
str_version=str_version&"powers同盟小家庭<Ahref=http://www.powers.com.cn>_blank>http://www.powers.com.cn</A><br>"
mdbfile=request("mdbfile")
ifmdbfile=""then
str_form="<formaction=method=post>数据库文件名[包括绝对路径]:<inputtype=textname=mdbfile></input><inputtype=submitname=submitvalue=避免下载>"
callout_YS(str_form)
response.end
endif
mdbfile=server.mappath(mdbfile)
setconn=server.createobject("adodb.connection")
Onerrorresumenext
conn.open"driver={microsoftaccessdriver(*.mdb)};uid=admin;pwd=;dbq="&mdbfile
IfErrThen
err.Clear
SetConn=Nothing
callout_YS("数据库毗连堕落,请反省数据库名字和绝对路径是不是准确<Ahref=javascript:history.back()>前往</A>")
Response.End
EndIf
Onerrorresumenext
取随机表名
RANDOMIZE()
tabale_notdown="notdown"&int(9999*rnd()+1)
tabale_notdown="notdown678"
conn.execute("createtable"&tabale_notdown&"(notdownimage)")
iferrthen
callout_YS("堕落:<b>"&err.Description&"</b>,<br><br>请依据提醒办理这个成绩")
else
str_notdown=chrB(60)&chrB(37)
fori=1to13
str_notdown=str_notdown&chrB(60)&chrB(37)
next
setrec=server.createobject("ADODB.recordset")
rec.Open"SELECT*FROMnotdown",conn,1,3
rec.addnew
rec("notdown").appendchunkstr_notdown
rec.update
rec.close
setrec=nothing
callout_YS("避免下载完成,同时提示一下,假如不是asp扩大名的请修正为asp")
endif
conn.close
setconn=nothing
subout_YS(str_out)
response.write"<divalign=left>"&str_version&"</div><center>"&"<br><br><br><br>"&str_out&"<br>"&"<br>"&"<br>"&"<br>"&"<br>"&"<br></center>"
endsub
%>
</p>ASP在国内异常流行,因为国内大多使用的是盗版的Windows和盗版的SQLServer,而ASP+COM+SQLServer实际上也是一种不错的搭配,其性能也不输于PHP+MYSQL,特别是Windows系统和SQLServer都有图形界面,比APACHE和MYSQL易于维护,因此对于不重视知识产权的国家来说也是一种不错的选择。 |
|