分享漏洞：
披露状态：
： 细节已通知厂商并且等待厂商处理中
： 厂商已经主动忽略漏洞，细节向公众公开
简要描述：
服务器数据库备份文件在网站根目录，任意人员可以下载！
详细说明：
太原理工大学教务处综合教务系统网站跟目录下存在数据库备份文件，压缩包大小为945M，其中文件为数据库备份文件，涉及学生家庭住址、身份证号、家庭住址、高考成绩等信息共10W+。
code 区域http://202.207.247.44/urp.zip
漏洞证明：
http://202.207.247.44/urp.zip
一共这么多csv文件，excel可以直接打开
一共10W+各种信息啊，整个人都不好了。
修复方案：
你们比我懂。
版权声明：转载请注明来源 @
厂商回应：
危害等级：无影响厂商忽略
忽略时间： 11:48
厂商回复：
最新状态：
漏洞评价：
对本漏洞信息进行评价，以更好的反馈信息的价值，包括信息客观性，内容是否完整以及是否具备学习价值
漏洞评价(共0人评价):
登陆后才能进行评分
被人脱裤后没删除
@wellsun 删了，不过目测裤子被很多人利用了
@wellsun 卧槽我是工大的，楼主留个联系方式啊
@Me_Fortune 工大啊，这个裤子从09级到了14级都有
= = 你那还有么 - -
@Me_Fortune 有。留个联系方式吧。
登录后才能发表评论，请先下载周排行
下载月排行excel服务器2015怎么备份数据_百度知道
excel服务器2015怎么备份数据
你说的这个，我不知道，但是我知道通用Excel的备份非常容易。通用Excel跟你说的这个软件性质差不多一样，通用Excel功能比较强，性价比也高，备份方法如图：&
来自团队：
其他类似问题
为您推荐：
excel服务器的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁勤哲excel服务器初级教程之利用电子邮件_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
评价文档：
勤哲excel服务器初级教程之利用电子邮件
阅读已结束，如果下载本文需要使用
想免费下载本文？
你可能喜欢查看: 725|回复: 26
如何定期将一个工作表备份到另一个工作表中去？
阅读权限20
在线时间 小时
因工作需要，希望各位老师帮忙：
《单位人员名册》经常有增减（录用、调入；退休、调离、辞职等），人员减少后，就把人员资料删除了，为了便于今后查找各时期的单位人员情况，所以想将每月的《单位人员名册》备份起来，要求：
1、到各月的21-30日，打开《单位人员名册》工作表时，就提示“本月尚未备份《单位人员名册》，是否立即备份？”，如果该月尚未备份，就提示备份，如果已经备份了就不再提示；
2、备份时，以年度为单位建立新的工作簿，如：进入2005年时，备份的时候，则在“各年度人员名册”文件夹下创建一个名为“2005”的工作簿，如果已经存在“2005”工作簿，就不再建立了，各月份《单位人员名册》备份到“2005”工作簿相应的“1、2、3、4、5、6、7、8、9、10、11、12”工作表中。
10:35 上传
点击文件名下载附件
17.58 KB, 下载次数: 9
阅读权限90
在线时间 小时
可以实现，但是需要时间
阅读权限20
在线时间 小时
朱荣兴 发表于
可以实现，但是需要时间
只要实现，可以等待。也可以更改。
阅读权限90
在线时间 小时
Sub 自动备份()
Dim x As Integer
If Dir(ThisWorkbook.Path & &\& & Format(Now(), &yyyy&) & &.xls&) = && Then
Workbooks.Add
For x = 12 To 1 Step -1
& & Sheets(&Sheet1&).Copy After:=Sheets(1)
& & Sheets(&Sheet1 (2)&).Name = x
&&Next
& &ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & &\& & Format(Now(), &yyyy&) & &.xls&
Else
&&Workbooks.Open Filename:=ThisWorkbook.Path & &\& & Format(Now(), &yyyy&) & &.xls&
ThisWorkbook.ActiveSheet.UsedRange.Copy Sheets(Format(Now(), &m&)).Range(&a1&)
Sheets(Format(Now(), &m&)).Shapes(&Button 1&).Cut
& & ActiveWorkbook.Save
& &ActiveWorkbook.Close
End Sub复制代码
阅读权限90
在线时间 小时
自动备份，到每个月的28日，打开工作表则自动为你备份数据
Private Sub Workbook_Open()
If Format(Now(), &d&) = 28 Then
MsgBox &已经为您备份本月数据，祝工作愉快！&
阅读权限90
在线时间 小时
当然，你也可以改为提醒你备份，从每个月的26号开始提醒你备份Private Sub Workbook_Open()
If Format(Now(), &d&) & 25 Then MsgBox &您还没有备份本月数据，请及时备份！&
End Sub
复制代码
阅读权限90
在线时间 小时
备份到该文件所在文件夹内
(17.97 KB, 下载次数: 19)
14:12 上传
点击文件名下载附件
阅读权限90
在线时间 小时
& & & & & & & &
Private Sub Workbook_Open()
Dim Myname$, i%, n%, Dat1, Dat2, A
If Format(VBA.Date, &DD&) &= 21 Then
A = MsgBox(&该月尚未备份，请及时备份!&, vbYesNo, &提示&)
If A = vbYes Then
Myname = Dir(ThisWorkbook.Path & &\各年度人员名册\& & Format(VBA.Date, &yyyy&) & &.xls&)
If Myname = && Then
Workbooks.Add
ActiveWorkbook.SaveAs ThisWorkbook.Path & &\各年度人员名册\& & Format(VBA.Date, &yyyy&) & &.xls&
End If
Workbooks.Open (ThisWorkbook.Path & &\各年度人员名册\& & Format(VBA.Date, &yyyy&) & &.xls&)
ThisWorkbook.Sheets(1).Copy Before:=Workbooks(Format(VBA.Date, &yyyy&) & &.xls&).Sheets(1)
ActiveSheet.Name = Format(VBA.Date, &mm月&)
Workbooks(Format(VBA.Date, &yyyy&) & &.xls&).Close True
MsgBox &备份成功!&
End If
End If
End Sub
复制代码
阅读权限90
在线时间 小时
详见附件& && &
14:14 上传
点击文件名下载附件
40.54 KB, 下载次数: 23
阅读权限90
在线时间 小时
jpj123 发表于
到期提醒，可以手动选择是否备份。
玩命加载中，请稍候
玩命加载中，请稍候
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！
本站特聘法律顾问：徐怀玉律师 李志群律师
Powered by}