<% option explicit %> <% 'on error resume next if trim(Application("ConnectionString"))="" or trim(Application("ConnectionString"))<>"driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("bvnews.asp") & ";uid=;PWD=;" then Application("ConnectionString")="driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("bvnews.asp") & ";uid=;PWD=;" end if Function LinkURLs(strInput) Dim iCurrentLocation Dim iLinkStart Dim iLinkEnd Dim strLinkText Dim strOutPut strLinkText="" strOutput="" iCurrentLocation=1 Do while Instr(iCurrentLocation,strInput,"[url]",1)<>0 iLinkStart=Instr(iCurrentLocation,strInput,"[url]",1) iLinkEnd=Instr(iCurrentLocation+1,strInput,"[/url]",1) If iLinkEnd=0 then iLinkEnd=len(strINput)+1 select case Mid(strInput,iLinkEnd-1,1) case ".","!","?" iLinkEnd=iLinkEnd-1 end select stroutput=strOutput & Mid(strInput,iCurrentLocation,iLinkStart-iCurrentLocation) strLinkText=replace(Mid(strInput,iLinkStart+5,iLinkEnd-iLinkStart-5),"[/url]","") strOutput=strOutput & "" & strLinkText & "" iCurrentLocation=iLinkEnd Loop strOutput=strOutput & Mid(strInput,iCurrentLocation) LinkURLs=replace(strOutput,"[/url]","",1,-1,1) End Function Function LinkIMGs(strInput) Dim iCurrentLocation Dim iLinkStart Dim iLinkEnd Dim strLinkText Dim strOutPut strLinkText="" strOutput="" iCurrentLocation=1 Do while Instr(iCurrentLocation,strInput,"[img]",1)<>0 iLinkStart=Instr(iCurrentLocation,strInput,"[img]",1) iLinkEnd=Instr(iCurrentLocation+1,strInput,"[/img]",1) If iLinkEnd=0 then iLinkEnd=len(strINput)+1 select case Mid(strInput,iLinkEnd-1,1) case ".","!","?" iLinkEnd=iLinkEnd-1 end select stroutput=strOutput & Mid(strInput,iCurrentLocation,iLinkStart-iCurrentLocation) strLinkText=replace(Mid(strInput,iLinkStart+5,iLinkEnd-iLinkStart-5),"[/img]","") strOutput=strOutput & "" iCurrentLocation=iLinkEnd Loop strOutput=strOutput & Mid(strInput,iCurrentLocation) LinkIMGs=replace(strOutput,"[/img]","",1,-1,1) End Function Function LinkEmail(strInput) Dim iCurrentLocation Dim iLinkStart Dim iLinkEnd Dim strLinkText Dim strOutPut strLinkText="" strOutput="" iCurrentLocation=1 Do while Instr(iCurrentLocation,strInput,"[email]",1)<>0 iLinkStart=Instr(iCurrentLocation,strInput,"[email]",1) iLinkEnd=Instr(iCurrentLocation+1,strInput,"[/email]",1) If iLinkEnd=0 then iLinkEnd=len(strINput)+1 select case Mid(strInput,iLinkEnd-1,1) case ".","!","?" iLinkEnd=iLinkEnd-1 end select stroutput=strOutput & Mid(strInput,iCurrentLocation,iLinkStart-iCurrentLocation) strLinkText=replace(Mid(strInput,iLinkStart+7,iLinkEnd-iLinkStart-7),"[/email]","") strOutput=strOutput & "" & strLinkText & "" iCurrentLocation=iLinkEnd Loop strOutput=strOutput & Mid(strInput,iCurrentLocation) LinkEmail=replace(strOutput,"[/email]","",1,-1,1) End Function function encrypt(ecode) Dim texts dim i for i=1 to len(ecode) texts=texts & chr(asc(mid(ecode,i,1))+i) next encrypt = texts end function function UBB(str) str=LinkURLs(str) str=LinkIMGs(str) str=LinkEmail(str) UBB=str end function %> <% dim sql,rs,rsc,thedate dim reviewable,aboutnews set rs=server.createobject("adodb.recordset") '查找显示相关新闻数目及是否开放评论权限 rs.open "select * from news_parameter where parameterid=1",conn,1,1 if not rs.bof and not rs.eof then aboutnews=rs("aboutnews") if rs("reviewable")=1 then reviewable=1 else reviewable=0 end if else aboutnews=5 reviewable=1 end if rs.close set rs=nothing set rs=server.createobject("adodb.recordset") sql="update news set hits=hits+1 where newsid=" & cstr(request("newsid")) conn.execute sql if session("purview")="" then rs.open "select * from news where newsid=" & cstr(request("newsid")) & " and audit=1",conn,1,1 else rs.open "select * from news where newsid=" & cstr(request("newsid")),conn,1,1 end if if err.number <> 0 then response.write "数据库出错" else if rs.bof and rs.eof then rs.close response.write "该新闻不存在或未经过审核" else %> 溧阳市第三中学——<%=rs("topic")%>

  

站点导航   设置首页 收藏站点

关于我们

 
   

市三中2007年高考本科录取名单
2002高考成绩 2003高考成绩 2004年高考成绩 2005年高考成绩 2006高考成绩 2008年高考成绩
                                           
序号 姓名 录取学校 原初中毕业学校 家长姓名
1 戴安东 空军航空大学 新昌 戴建平
2 葛旭瑾 西安美术学院 蒋店 葛秀文
3 潘云娟 西安美术学院 上黄 戴秀芳
4 王玲燕 西安美术学院 社渚 王天明
5 姚静 西安美术学院 燕山 姚才林
6 杨孝帆 西安音乐学院 上兴 杨先金
7 虞迪 鲁迅美术学院 社渚 虞建国
8 黄乐乐 南京艺术学院 上黄 黄双顶
9 毛光子 南京艺术学院 燕山 毛仁智
10 余娟 南京艺术学院 燕山 余洪保
11 赵若言 南京艺术学院 燕山 彭小兴
12 周舟 南京艺术学院 燕山 周小林
13 朱华 南京艺术学院 戴埠 朱友庚
14 朱鹏程 南京艺术学院 后周 朱继生
15 刘倩 南京艺术学院尚美学院 二中 刘新保
16 张茜 南京艺术学院尚美学院 二中 张国新
17 庄静 安徽工程科技学院 实验初中 庄荣彬
18 谢泉东 安徽建筑工业学院城市建设学院 周城 谢德才
19 马彪 东莞理工学院 别桥 马志明
20 黎佳伟 合肥学院 上沛 黎顺保
21 史韵 衡阳师范学院 埭头 史成方
22 马超 湖南城市学院 二中 马洪程
23 吴捷 湖南工业大学 燕山 吴年
24 李正华 湖南商学院 上黄 李承跃
25 宋利鹏 湖南商学院 四中 宋正新
26 王慕容 湖南商学院 实验初中 王昆硕
27 陈茜 江苏大学 新昌 陈忠平
28 夏力伟 江苏大学 周城 夏定庚
29 张杨 江苏大学 别桥 张小国
30 陈秋月 江苏工业学院 二中 陈立新
31 赵峻 江苏科技大学 燕山 赵志庚
32 周列 江苏科技大学 三中 周国新
33 周云财 江苏科技大学 三中 周阿明
34 易挺 江苏科技大学(张家港校区) 别桥 易网财
35 任杰 景德镇陶瓷学院 燕山 任如宝
36 吴建清 景德镇陶瓷学院 周城 吴阿明
37 廖荣彬 南昌工程学院 周城 廖祥荣
38 蒋鸣华 南京工程学院 新昌 蒋继生
39 唐玉飞 南京工业大学 别桥 唐建忠
40 张浩 南京工业大学 别桥 张和平
41 周超 南京工业大学 古渎 周幸福
42 王颖 南京林业大学 别桥 王国庆
43 吴一琦 南京林业大学 二中 吴求生
44 虞乔 南京林业大学 光华 虞洪伟
45 范小田 南京农业大学 上黄 范跃平
46 周涛 南京农业大学 五中 周耀生
47 李敏 南京师范大学 燕山 李慧
48 吕鹏 南京师范大学 别桥 吕锁芳
49 王迪 南京师范大学 别桥 王洪喜
50 潘琳 南京师范大学浦口校区 三中 潘龙烁
51 姚渊 南京师范大学浦口校区) 二中 王菊芬
52 陈琳 南京晓庄学院 光华 陈春斌
53 陈梦玲 南京晓庄学院 二中 陈建法
54 丁洪娟 南京晓庄学院 实验初中 丁玉福
55 李程 南京晓庄学院 社渚 李小秋
56 彭飞 南京晓庄学院 二中 彭小兴
57 史阳 南京晓庄学院 光华 史夕平
58 汤婧 南京晓庄学院 三中 汤连海
59 王浩俊 南京晓庄学院 埭头 王胜华
60 谢鹏 南京晓庄学院 新昌 谢建才
61 徐凯绮 南京晓庄学院 实验初中 徐志康
62 王伟 南京信息工程大学 社渚 周家林
63 狄曹琴 南京信息工程大学滨江学院 四中 狄伟
64 堵琳 南京信息工程大学滨江学院 燕山 孙建香
65 汤洁 南京信息工程大学滨江学院 三中 汤小平
66 汤俊凡 南京信息工程大学滨江学院 燕山 汤国平
67 张怡 南京信息工程大学滨江学院 汤桥 张润生
68 庄梦佳 南京信息工程大学滨江学院 二中 庄俊肃
69 马立 南京中医药大学 别桥 马晓伟
70 徐梁 南京中医药大学 上黄 徐阿林
71 戴皎皎 南通大学 社渚 戴艺杰
72 董奇 南通大学 上兴 董定福
73 韩思思 南通大学 三中 韩新荷
74 潘薇 南通大学 三中 潘建荣
75 阮莉敏 南通大学 别桥 阮新华
76 史晶 南通大学 上黄 史建明
77 宋文龙 南通大学 三中 宋双川
78 田涛宇 南通大学 实验初中 田建庆
79 杨凯 南通大学 上黄 杨八明
80 尤方鸣 南通大学 新昌 尤龙康
81 朱珠 南通大学 周城 朱敏
82 蒋超 陕西理工学院 开发区 蒋跃平
83 缪星 上饶师范学院 余桥 缪德平
84 戴瑶 四川音乐学院绵阳艺术学院 实验初中 戴建明
85 施华君 四川音乐学院绵阳艺术学院 上沛 施孝南
86 陈青青 苏州大学 上沛 陈国平
87 潘彦旭 苏州大学 燕山 潘云松
88 狄永超 苏州大学应用技术学院 二中 狄东浩
89 许洁 苏州大学应用技术学院 燕山 许建新
90 祁云 天津财经大学 二中 祁洪钧
91 冯超飞 天津城市建设学院 前马 冯静芝
92 杨曦彤 天津大学仁爱学院 实验初中 杨和平
93 彭清 西安翻译学院 实验初中 彭华平
94 杨梦娇 西安理工大学 燕山 杨志德
95 彭玲 湘南学院 光华 彭全清
96 曹梁 徐州工程学院 后六 曹建松
97 戴强 徐州工程学院 别桥 戴洪金
98 蒋建涛 徐州工程学院 常州北环 蒋国兴
99 蒋旭 徐州工程学院 天目湖 蒋长明
100 潘强 徐州工程学院 上黄 潘希金
         
101 石伟 徐州工程学院 天目湖 石士新
102 唐国超 徐州工程学院 上兴 唐金牛
103 陈荔 徐州师范大学 光华 陈志忠
104 韩友 徐州师范大学 别桥 韩敖齐
105 彭卉 徐州师范大学 蒋店 彭雷
106 吴丽婷 徐州师范大学 周城 吴土生
107 张俊 徐州师范大学 旧县 张小建
108 张涛 徐州师范大学 三中 张健平
109 李辉 许昌学院 实验初中 王国娣
110 丛伟芬 扬州大学 大溪 丛远发
111 狄文茜 扬州大学 四中 狄浩平
112 林澄 扬州大学 广州新华 林通泉
113 吕俊浩 扬州大学 别桥 吕国平
114 彭云飞 扬州大学 后周 彭国兵
115 郑明明 扬州大学 社渚 郑保林
116 陈刚 浙江工商大学 社渚 陈黎志
117 朱雪姣 郑州航空工业管理学院 燕山 朱夕富
118 王涛 中国矿业大学徐海学院 六中 王志东
119 叶英香 中南林业科技大学 上兴 叶千华
120 朱晏韵 中南林业科技大学 燕山 朱国伟
121 李雯 长沙理工大学 实验初中 李阿明
122 葛丽姣 常熟理工学院 蒋店 葛菊敏
123 汤志强 常熟理工学院 三中 汤福才
124 王春晖 常熟理工学院 三中 王三保
125 缪俊 常熟理工学院虞山学院 别桥 缪陆保
126 吕滨 常州工学院 别桥 吕勤信
127 史娜 常州工学院 光华 史玉光
128 吴小彬 常州工学院 新昌 吴林保
129 黄策 常州工学院延陵学院 上黄 黄惠忠