<%'--------定义部份------------------ Dim Fy_Post,Fy_Get,Fy_In,Fy_Inf,Fy_Xh,Fy_db,Fy_dbstr,Kill_IP,WriteSql '自定义需要过滤的字串,用 "|" 分隔 Fy_In = "'|;|and|(|)|exec|insert|select|delete|update|count|*|%|chr|mid|master|truncate|char|declare" Kill_IP=True WriteSql=True '---------------------------------- Fy_Inf = split(Fy_In,"|") '--------POST部份------------------ If Request.Form<>"" Then For Each Fy_Post In Request.Form For Fy_Xh=0 To Ubound(Fy_Inf) If Instr(LCase(Request.Form(Fy_Post)),Fy_Inf(Fy_Xh))<>0 Then Response.Write "" Response.Write "非法操作!系统做了如下记录↓
" Response.Write "操作IP:"&Request.ServerVariables("REMOTE_ADDR")&"
" Response.Write "操作时间:"&Now&"
" Response.Write "操作页面:"&Request.ServerVariables("URL")&"
" Response.Write "提交方式:POST
" Response.Write "提交参数:"&Fy_Post&"
" Response.Write "提交数据:"&Request.Form(Fy_Post) Response.End End If Next Next End If '---------------------------------- '--------GET部份------------------- If Request.QueryString<>"" Then For Each Fy_Get In Request.QueryString For Fy_Xh=0 To Ubound(Fy_Inf) If Instr(LCase(Request.QueryString(Fy_Get)),Fy_Inf(Fy_Xh))<>0 Then Response.Write "" Response.Write "非法操作!系统做了如下记录↓
" Response.Write "操作IP:"&Request.ServerVariables("REMOTE_ADDR")&"
" Response.Write "操作时间:"&Now&"
" Response.Write "操作页面:"&Request.ServerVariables("URL")&"
" Response.Write "提交方式:GET
" Response.Write "提交参数:"&Fy_Get&"
" Response.Write "提交数据:"&Request.QueryString(Fy_Get) Response.End End If Next Next End If%> 萍乡市档案信息网
首 页

档 案 征 集

一、征集对象:
全市各机关、团体、企事业单位和其他社会组织以及全体市民。

二、征集时间:常年对外征集。(2012年开始)

三、 征集范围及内容:
1、建国前各历史时期形成的珍贵的、有价值的档案史料(文字、照片等);
2、反映历史上日本帝国主义对萍乡地区侵略的重要档案史料;
3、各历史时期重要人物的日记、手稿、家谱、族谱等;
4、建国前我党在革命斗争中形成的重要档案史料;
5、“文化大革命”期间群众组织形成的传单、照片等;
6、建国后荣获“全国劳动模范”、全国“五一”劳动奖章和证书、全国“三八”红旗手等国家级荣誉称号的各界著名人物和荣获省级以上科技进步奖的科技精英的生平传记材料、手稿、日记、书信、证书、评价材料、声像材料等档案资料;
7、建国后为萍乡经济发展和社会进步作出突出贡献的著名企业的档案资料;
8、各历史时期获国际或国家级奖励的各类产品的档案资料;
9、其他具有萍乡地方特色的重要档案资料。


凡向我馆捐赠上述档案的,均发给《荣誉证书》,并给予适当的奖励;提供重要档案史料线索,我馆根据线索征集到珍贵档案的,将对提供线索者酌情酬谢。