求一段Asp多附件上传到oracle数据库里面的代码，删除代码
[问题点数：100分，结帖人mmnan]
求一段Asp多附件上传到oracle数据库里面的代码，删除代码
[问题点数：100分，结帖人mmnan]
不显示删除回复
显示所有回复
显示星级回复
显示得分回复
只显示楼主
相关帖子推荐：
2012年5月 Oracle大版内专家分月排行榜第二2012年4月 Oracle大版内专家分月排行榜第二
匿名用户不能发表回复！|
每天回帖即可获得10分可用分！小技巧：
你还可以输入10000个字符
(Ctrl+Enter)
请遵守CSDN，不得违反国家法律法规。
转载文章请注明出自“CSDN（www.csdn.net）”。如是商业用途请联系原作者。蓝色博客网站源码 asp.net版 v2013
蓝色博客网站源码 asp.net版 v2013 源码简介：
服务承诺：我们更用心、让您更省心，对商业版用户我们将提供全程技术支持，协助客户进行网站的本地化处理及完成网站布署操作，指导进行安装调试。对客户使用中遇到的问题，您可以随时联系非凡建站系统的客服，我们会实时为您提供帮助！ 个性化定制服务：如果您对本站制作好的成品网站模板不是很满意，需要有独特风格或功能的网站模板，我们可以为您提供全面的定制服务。我们的网站定制服务本着双方公平对等的原则，在专业的流程上使合作更为流畅，科学的规划也为您节省每一分钱，让您轻松拥有理想的网站模板系统。个性化定制费用最低从100元起,根据你的具体定制需求我们给出具体费用及工期。具体定制内容包括：网站BANNER定制、网站首页布局定制、网站整体色调定制、网站整体风格定制、功能模块定制、统计功能模块定制及其它功能需求的网站模块定制等&& 基本功能特色 全站采用DIV+CSS布局，符合WEB2.0标准，您自己设计独特风格非常方便。 兼容IE、火狐各大常用浏览器，打开网页不变形。 采用UTF-8编码，全球打开网站不乱码。 所有信息内容在线完成编辑，就象WORD一样简单、可视而又功能完善，几乎能完成你想要的所有效果。 网站导航实现自主管理，可自由添加、删除、隐藏栏目。 使用多层开发模式开发，更灵活的构架，理论上支持所有.net支持的数据库。 多重缓存机制，让网民超快地打开您的网站，让人觉得打开您的网站很&爽！&。 不会像生成静态网页那样产生大量垃圾文件占用空间。 采用防止外部提交和防刷新机制，有效防止各种攻击行为。 在线制作略图功能，让图片显示更快。 图片添加水印文字，防止盗图。 详细介绍可传附件，方便供客户下载PDF，DOC，XLS，RAR，ZIP等文件。 记录点击数，方便了解客户关注内容。 独创可视模板编辑功能，轻松拖拽鼠标即可实现布局的修改。 独创模块编辑功能，可自己设计独特的模块（包括但不限于：脚本代码、ASP.NET代码、图片、文字等等，只要你想得到的任何网页元素）供设计模板时使用。 独创全站图片即时替换功能，方便地替换网站中任何位置的图片（包括背景图片），再也不用找不到图片路径而发愁了。 采用AJAX技术，性能与效果得到极大提高。 前台内容栏目结构清晰，易于访问者查看想要的内容。 后台管理同样结构清晰，便于管理提高效率。 可后台更换FLASH轮显广告图片，可指定图片链接。 支持无限级分类，无论您的分类有多复杂，都可以轻松实现。 信息暂存功能，即对于某些临时不需要发布的内容暂存起来，不用删除，以后重新开放即可。 下载防盗链功能。 可以上传2G以内容的单个超大文件。再也不用为上传视频烦恼了。 即时信息编辑功能，登陆后台后访问网站时，可以直接编辑当前内容。 内容复制功能，可在列表中复制一条内容，添加类似内容时更方便。 内容另存功能，可以将内容编辑后另存为一条新内容。 内容排序功能，可以自由设置内容显示的前后顺序。 任意设置的会员级别和浏览权限精确到每条记录，这对于那些希望不同内容针对不同查看对象开放来讲，无疑是最佳解决方案。 会员分组功能，可以设置不同的分员组别。 注册可发送邮件，宣传公司信息。 忘记密码可通过邮件取回。 可以查看自己的订单。 可以在线提交简历。 可以添加任意张大图，相册展示。 大图自动生成略图功能，让您的产品以最快的速度展示在客户眼前。 可自定义产品列表小图显示尺寸。 可在任意页面调用产品显示模块，设置显示数量和类别以及显示方式。 如果用户登录，订购产品时自动使用用户的联系方式，不需要再填写。 在线支付功能，目前支持财付通。 社会化书签功能，方便用户收藏以及搜索引擎SEO收录。 相关记录功能，浏览时方便前后导航，也利于搜索引擎收录。 有些分类和菜单暂时不用，又不想删除怎么办？其实它们均可实现显示与隐藏功能。 查找不包含特定文字的内容？试试&NOT 关键词&的查找方式。 列表显示无规则？点击表头就可排序，AJAX的哦。 自主开发的客户端采集软件，不占服务器资源。 一集采集远程图片，不用担心盗链或服务器稳定靠成图片无法显示的问题。 非凡建站系统让您网站成功运营的三大技术方面： 完全从网络营销的角度出发制作： 可自定义网站任何页面的title，keywords，description，tags 完全符合SEO的优化标准； 每个产品，每篇文章都可以进行详细的SEO优化！再也不需要花大价钱请SEOer了，你甚至可以做得比某些专业的SEOer更专业！ 让您的网站在搜索引擎中免费获得好排名！让客户直接通过网站找到您，与您做生意！ 网络营销和跟踪服务类软件的集成： 客户看您的网站时，如果您的业务员能在线及时地解答客户的疑惑，那该有多好！在线客服系统帮您实现！ 想知道今天都有那些地区的网民浏览过您的网站吗？ 想知道今天访问您网站的网民从哪里知道您网站的吗？ 想知道访问您网站的网民对您网站中哪些页面最有兴趣吗？ 这些功能我们都为您全面考虑并实现了！ 后台可添加第三方网站统计代码，方便了解网站访问详情！ 系统模块的超强灵活性： 能给网站换个我想要的界面吗？可以！ 能给网站添加个我需要的新功能吗？可以！ 能随意修改网站的模块，按我的意愿做吗？可以，如果您怕麻烦我们还可以帮您做！ 您想过自己也可以做个网站吗？告诉您，只要会打字，轻松的个性网站就会顷刻显现！ 全站采用DIV+CSS布局，符合WEB2.0标准，您自己设计独特风格非常方便。 兼容IE、火狐各大常用浏览器，打开网页不变形。 采用UTF-8编码，全球打开网站不乱码。 所有信息内容在线完成编辑，就象WORD一样简单、可视而又功能完善，几乎能完成你想要的所有效果。 网站导航实现自主管理，可自由添加、删除、隐藏栏目。 使用多层开发模式开发，更灵活的构架，理论上支持所有.net支持的数据库。 多重缓存机制，让网民超快地打开您的网站，让人觉得打开您的网站很&爽！&。 不会像生成静态网页那样产生大量垃圾文件占用空间。 采用防止外部提交和防刷新机制，有效防止各种攻击行为。 在线制作略图功能，让图片显示更快。 图片添加水印文字，防止盗图。 详细介绍可传附件，方便供客户下载PDF，DOC，XLS，RAR，ZIP等文件。 记录点击数，方便了解客户关注内容。 独创可视模板编辑功能，轻松拖拽鼠标即可实现布局的修改。 独创模块编辑功能，可自己设计独特的模块（包括但不限于：脚本代码、ASP.NET代码、图片、文字等等，只要你想得到的任何网页元素）供设计模板时使用。 独创全站图片即时替换功能，方便地替换网站中任何位置的图片（包括背景图片），再也不用找不到图片路径而发愁了。 采用AJAX技术，性能与效果得到极大提高。 前台内容栏目结构清晰，易于访问者查看想要的内容。 后台管理同样结构清晰，便于管理提高效率。 可后台更换FLASH轮显广告图片，可指定图片链接。 支持无限级分类，无论您的分类有多复杂，都可以轻松实现。 信息暂存功能，即对于某些临时不需要发布的内容暂存起来，不用删除，以后重新开放即可。 下载防盗链功能。 可以上传2G以内容的单个超大文件。再也不用为上传视频烦恼了。 即时信息编辑功能，登陆后台后访问网站时，可以直接编辑当前内容。 内容复制功能，可在列表中复制一条内容，添加类似内容时更方便。 内容另存功能，可以将内容编辑后另存为一条新内容。 内容排序功能，可以自由设置内容显示的前后顺序。 任意设置的会员级别和浏览权限精确到每条记录，这对于那些希望不同内容针对不同查看对象开放来讲，无疑是最佳解决方案。 会员分组功能，可以设置不同的分员组别。 注册可发送邮件，宣传公司信息。 忘记密码可通过邮件取回。 可以查看自己的订单。 可以在线提交简历。 可以添加任意张大图，相册展示。 大图自动生成略图功能，让您的产品以最快的速度展示在客户眼前。 可自定义产品列表小图显示尺寸。 可在任意页面调用产品显示模块，设置显示数量和类别以及显示方式。 如果用户登录，订购产品时自动使用用户的联系方式，不需要再填写。 在线支付功能，目前支持财付通。 社会化书签功能，方便用户收藏以及搜索引擎SEO收录。 相关记录功能，浏览时方便前后导航，也利于搜索引擎收录。 有些分类和菜单暂时不用，又不想删除怎么办？其实它们均可实现显示与隐藏功能。 查找不包含特定文字的内容？试试&NOT 关键词&的查找方式。 列表显示无规则？点击表头就可排序，AJAX的哦。 自主开发的客户端采集软件，不占服务器资源。 一集采集远程图片，不用担心盗链或服务器稳定靠成图片无法显示的问题。 非凡建站系统让您网站成功运营的三大技术方面： 完全从网络营销的角度出发制作： 可自定义网站任何页面的title，keywords，description，tags 完全符合SEO的优化标准； 每个产品，每篇文章都可以进行详细的SEO优化！再也不需要花大价钱请SEOer了，你甚至可以做得比某些专业的SEOer更专业！ 让您的网站在搜索引擎中免费获得好排名！让客户直接通过网站找到您，与您做生意！ 网络营销和跟踪服务类软件的集成： 客户看您的网站时，如果您的业务员能在线及时地解答客户的疑惑，那该有多好！在线客服系统帮您实现！ 想知道今天都有那些地区的网民浏览过您的网站吗？ 想知道今天访问您网站的网民从哪里知道您网站的吗？ 想知道访问您网站的网民对您网站中哪些页面最有兴趣吗？ 这些功能我们都为您全面考虑并实现了！ 后台可添加第三方网站统计代码，方便了解网站访问详情！ 系统模块的超强灵活性： 能给网站换个我想要的界面吗？可以！ 能给网站添加个我需要的新功能吗？可以！ 能随意修改网站的模块，按我的意愿做吗？可以，如果您怕麻烦我们还可以帮您做！ 您想过自己也可以做个网站吗？告诉您，只要会打字，轻松的个性网站就会顷刻显现！
下载地址：
解压密码：www.jb51.net 就是本站主域名，希望大家看清楚。
推荐使用 [
] 下载，使用 [
] 以上版本解压本站源码。
如果这个源码总是不能下载的请在评论中留言,我们会尽快修复，谢谢!
下载本站资源，如果服务器暂不能下载请过一段时间重试!
如果遇到什么问题，请评论留言，我们定会解决问题，谢谢大家支持!
本站提供的一些商业源码是供学习研究之用，如用于商业用途，请购买正版。
本站提供的蓝色博客网站源码 asp.net版 v2013 资源来源互联网，版权归该下载资源的合法拥有者所有。
不知如何下载的，可以查看200分求一段asp利用IP判断是否允许访问的代码_百度知道
提问者采纳
200分啊！！！！！！！再来补充一次：if rs.eof or rs.bof Or err Then'数据库中没有该IP response.redirect &/指定禁止访问的页面.asp&'不允许访问当前页 End if这两句不够好用，能改成 如果数据库中有该IP则允许访问目前访问的页面内容。这两句的意思是这样，你还没理解透彻：如果数据库中没有这个IP，则进入跟目录的&/指定禁止访问的页面.asp&，你的要求是“/jy/Default.asp ”，所以改成这个就可以解决问题一，关键在于jy/Default.asp 前面加了“/”，表示先返回跟目录，再找到“jy”目录，解决了路径问题。进入“/jy/Default.asp ”后，就不会执行当前页面的其它代码，达到保密的要求，如果有这个IP，则继续执行当前页面的代码，也就是允许访问当前页面的意思。所以，据我看来是没问题的。问题二：如果使用绝对路径，则导致该页面不断的重定向。与判断似乎没有什么关系。。。。。这个问题，肯定是你的“/jy/Default.asp”有问题，最可能的是这个页面也加了IP判断。当然不能加啦！！！目前不知道是我调试服务器的问题还是代码问题，总之数据库中存在192.168.0.1和我在公网的IP。但是都无法访问 “指定禁止访问的页面.asp”你用“”访问你的网站，那么你的IP就应该是“127.0.0.1”是你数据库里没有的，才会去访问“指定禁止访问的页面.asp”至于IP到底是不是“127.0.0.1”，你可以用这个代码测试一下：&%Private Function getIP()Dim strIPAddrIf Request.ServerVariables(&HTTP_X_FORWARDED_FOR&) = && OR InStr(Request.ServerVariables(&HTTP_X_FORWARDED_FOR&), &unknown&) & 0 ThenstrIPAddr = Request.ServerVariables(&REMOTE_ADDR&)ElseIf InStr(Request.ServerVariables(&HTTP_X_FORWARDED_FOR&), &,&) & 0 ThenstrIPAddr = Mid(Request.ServerVariables(&HTTP_X_FORWARDED_FOR&), 1, InStr(Request.ServerVariables(&HTTP_X_FORWARDED_FOR&), &,&)-1)ElseIf InStr(Request.ServerVariables(&HTTP_X_FORWARDED_FOR&), &;&) & 0 ThenstrIPAddr = Mid(Request.ServerVariables(&HTTP_X_FORWARDED_FOR&), 1, InStr(Request.ServerVariables(&HTTP_X_FORWARDED_FOR&), &;&)-1)ElsestrIPAddr = Request.ServerVariables(&HTTP_X_FORWARDED_FOR&)End IfgetIP = Trim(Mid(strIPAddr, 1, 30))End Functionresponse.write getIP()%&以下代码保存为checkip.asp在要限制IP的页面引用&!--#include file=&checkip.asp&--&数据库连接已经有的在checkip.asp里删掉&%'***************************'连接数据库，已经连接的删掉，不要重复on error resume nextdb_path = &ip.mdb&Set conn= Server.CreateObject(&ADODB.Connection&)connstr = &Provider=Microsoft.Jet.OLEDB.4.0;Data Source=&&Server.MapPath(db_path)conn.Open connstr'****************************'****************************'获得真实IP地址Private Function getIP()Dim strIPAddrIf Request.ServerVariables(&HTTP_X_FORWARDED_FOR&) = && OR InStr(Request.ServerVariables(&HTTP_X_FORWARDED_FOR&), &unknown&) & 0 ThenstrIPAddr = Request.ServerVariables(&REMOTE_ADDR&)ElseIf InStr(Request.ServerVariables(&HTTP_X_FORWARDED_FOR&), &,&) & 0 ThenstrIPAddr = Mid(Request.ServerVariables(&HTTP_X_FORWARDED_FOR&), 1, InStr(Request.ServerVariables(&HTTP_X_FORWARDED_FOR&), &,&)-1)ElseIf InStr(Request.ServerVariables(&HTTP_X_FORWARDED_FOR&), &;&) & 0 ThenstrIPAddr = Mid(Request.ServerVariables(&HTTP_X_FORWARDED_FOR&), 1, InStr(Request.ServerVariables(&HTTP_X_FORWARDED_FOR&), &;&)-1)ElsestrIPAddr = Request.ServerVariables(&HTTP_X_FORWARDED_FOR&)End IfgetIP = Trim(Mid(strIPAddr, 1, 30))End Function'****************************'****************************'检测访问的IP是否在数据库中Set rs = Server.CreateObject (&ADODB.Recordset&)sql = &select ip from ip where ip = '&&getip()&&'&rs.Open sql,conn,1,1if rs.eof or rs.bof Or err Then'数据库中没有该IPresponse.redirect &/指定禁止访问的页面.asp&'不允许访问当前页End ifrs.closeset rs=Nothing'****************************%&
提问者评价
其实我的问题可能没描述清楚，问题在于我就是要在所有页面加IP限制代码，不是指定IP就无法访问任何页面。
其他类似问题
其他3条回答
&%Private function getIP()
Dim strIPAddr
If Request.ServerVariables(&HTTP_X_FORWARDED_FOR&) = && OR InStr(Request.ServerVariables(&HTTP_X_FORWARDED_FOR&), &unknown&) & 0 Then
strIPAddr = Request.ServerVariables(&REMOTE_ADDR&)
ElseIf InStr(Request.ServerVariables(&HTTP_X_FORWARDED_FOR&), &,&) & 0 Then
strIPAddr = Mid(Request.ServerVariables(&HTTP_X_FORWARDED_FOR&), 1, InStr(Request.ServerVariables(&HTTP_X_FORWARDED_FOR&), &,&)-1)
ElseIf InStr(Request.ServerVariables(&HTTP_X_FORWARDED_FOR&), &;&) & 0 Then
strIPAddr = Mid(Request.ServerVariables(&HTTP_X_FORWARDED_FOR&), 1, InStr(Request.ServerVariables(&HTTP_X_FORWARDED_FOR&), &;&)-1)
strIPAddr = Request.ServerVariables(&HTTP_X_FORWARDED_FOR&)
getIP = Trim(Mid(strIPAddr, 1, 30))End function ip = getIP()if ip = &192.168.0.1& then
response.Redirect(&/ok.asp&)else response.Redirect(&/sorry.asp&)end if%&
100分买个商业应用，很值啊
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁