车站问事处

(zcpx,len(zcpx),1)="z" then session("zc")="站" if mid(zcpx,len(zcpx),1)="c" then session("zc")="次列车" session("zcpx")=mid(1,len(request("zcpx"))-1) end if ' 新数据录入 'if b1= "qq q" then b1="" set a=fs.OpenTextFile(server.mappath("wsc.txt"),1,false) set b=fs.createTextFile(server.mappath("l.txt"),true) while not a.AtEndOfStream a1=a.ReadLine 'response.write"kkkk
" if instr(1,a1,session("zcm")&"c",1)=5 or instr(1,a1,session("zcm")&"z",1)=5 then b2=a1 session("yn")=mid(a1,instr(1,a1,"%",1)+1,instr(1,a1,"@",1)-instr(1,a1,"%",1)-1)-"0" session("bn")=mid(a1,instr(1,a1,"@",1)+1,instr(1,a1,"w",1)-instr(1,a1,"@",1)-1)-"0" session("wn")=mid(a1,instr(1,a1,"w",1)+1,instr(1,a1,"f",1)-instr(1,a1,"w",1)-1)-"0" session("fn")=mid(a1,instr(1,a1,"f",1)+1,instr(1,a1,"$",1)-instr(1,a1,"f",1)-1)-"0" if session("tw1")<>"" or b1="" then if instr(1,a1,session("tw1"),1)=0 then if request("tw1")<>"" then if session("xmb")="首长热线" then a1=replace(a1,"$y$","$y$"&session("tw1")&"$") if session("xmb")="问事处" then a1=replace(a1,"$w$","$w$"&session("tw1")&"$") session("wn")=mid(a1,instr(1,a1,"w",1)+1,instr(1,a1,"f",1)-instr(1,a1,"w",1)-1)-"0"+1 a1=mid(a1,1,instr(1,a1,"w",1))&session("wn")&mid(a1,instr(1,a1,"f",1)) end if if session("xmb")="公示栏" then a1=replace(a1,"$g$","$g$"&session("tw1")&"$") session("gn")=mid(a1,instr(1,a1,"g",1)+1,instr(1,a1,"%",1)-instr(1,a1,"g",1)-1)-"0"+1 a1=mid(a1,1,instr(1,a1,"g",1))&session("gn")&mid(a1,instr(1,a1,"%",1)) end if if session("xmb")="服务台" then a1=replace(a1,"$f$","$f$"&session("tw1")&"$") session("fn")=mid(a1,instr(1,a1,"f",1)+1,instr(1,a1,"$",1)-instr(1,a1,"f",1)-1)-"0"+1 a1=mid(a1,1,instr(1,a1,"f",1))&session("fn")&mid(a1,instr(1,a1,"$",1)) end if if session("xmb")="意见簿" then a1=replace(a1,"$y$","$y$"&session("tw1")&"$") session("yn")=mid(a1,instr(1,a1,"%",1)+1,instr(1,a1,"@",1)-instr(1,a1,"%",1)-1)-"0"+1 a1=mid(a1,1,instr(1,a1,"%",1))&session("yn")&mid(a1,instr(1,a1,"@",1)) end if if session("xmb")="表扬信" then a1=replace(a1,"$b$","$b$"&session("tw1")&"$") session("bn")=mid(a1,instr(1,a1,"@",1)+1,instr(1,a1,"w",1)-instr(1,a1,"@",1)-1)-"0"+1 a1=mid(a1,1,instr(1,a1,"@",1))&session("bn")&mid(a1,instr(1,a1,"w",1)) end if end if ' request("tw1")<>"" end if ' 录入判断 b1=a1 session("a1")=a1 if session("xmb")="问事处" then b1=mid(b1,instr(1,b1,"$w$",1)+3,instr(instr(1,b1,"$w$",1)+3,b1,"$$",1)-instr(1,b1,"$w$",1)-3) if session("xmb")="公示栏" then b1=mid(b1,instr(1,b1,"$g$",1)+3,instr(instr(1,b1,"$g$",1)+3,b1,"$$",1)-instr(1,b1,"$g$",1)-3) if session("xmb")="意见簿" then b1=mid(b1,instr(1,b1,"$y$",1)+3,instr(instr(1,b1,"$y$",1)+3,b1,"$$",1)-instr(1,b1,"$y$",1)-3) if session("xmb")="表扬信" then b1=mid(b1,instr(1,b1,"$b$",1)+3,instr(instr(1,b1,"$b$",1)+3,b1,"$$",1)-instr(1,b1,"$b$",1)-3) if session("xmb")="服务台" then b1=mid(b1,instr(1,b1,"$f$",1)+3,instr(instr(1,b1,"$f$",1)+3,b1,"$$",1)-instr(1,b1,"$f$",1)-3) b1=replace(b1,"$","

") '加图片 b1="

"&b1 session("b1")=b1 end if ' 重复 end if 'zcm d1=mid(date()-60,1,7) 'd1=mid(a1,instr(1,a1,d1,1)+1) 'if instr(1,a1,d1,1)>0 then response.write d1 'if d1<>""then response.write d1 b.writeline a1 wend if b2="" then if session("zc")="站" then b.writeline "0000"&session("zcm")&"zg0%0@0w0f0$w$$$y$$$f$$$b$$$g$$$mm" else b.writeline "0000"&session("zcm")&"cg0%0@0w0f0$w$$$y$$$f$$$b$$$g$$$mm" end if b2="" b1="" session("b1")="" session("bn")=0 ' 表扬数 session("yn")=0 session("wn")=0 ' 表扬数 session("fn")=0 session("gn")=0 end if b.close a.close fs.copyFile server.mappath("l.txt"),server.mappath("wsc.txt"),true 'end if ' qqq end if 'wsc %> 车站问事处 <% if request("bj")="1" then session("bj")=session("bj")+1 if session("bj")=7 or session("bj")=0 then session("bj")=1 %> rel=stylesheet type=text/css>

全国车站问事处、全国车站公示栏

返回全国列车时刻表：输入站名：<-回车即可

主要大站：京上广郑哈大西兰成重呼包

随机背景：

<%if session("dw")="" or session("xmdh")="" then %>

请输入您的地址单位：姓名或电话：
您应对您的意见负有法律与道德的责任！　

<%end if%>

<%="今天是"&month(date)&"月"&day(date)&"日"%> <%=session("zcm")%> <%if session("zcm")<>"呼铁局王天民" and session("xmb")<>"首长热线" then %><%=session("zc")&session("xmb") %><%end if%> <%if session("xmb")="首长热线" then %><%=session("xmb") %><%end if%> <%if session("xmb")="意见簿" then response.write "欢迎"&session("dw")&session("xmdh")&"先生提宝贵意见"%><%if session("xmb")="表扬信" then response.write "谢谢"&session("dw")&session("xmdh")&"先生支持我们的工作"%> <%if session("xmb")="问事处" or session("xmb")="服务台" then response.write "向"&session("dw")&session("xmdh")&"先生问好，祝您旅途愉快。"%> <%if session("xmb")="公示栏" then response.write "向全体旅客问好，祝大家旅途愉快。"%>

<%if session("xmb")="公示栏" then %> 播音员

<%else%>

<%end if%>
<%zcm=session("zcm")%> 分类选择：

返回时刻表

车站公示栏车站问事处车站意见簿车站表扬信

<%if session("xmb")="首长热线" then response.write "首长热线："%>

<%if session("dw")="" or session("xmdh")="" or session("xmb")="公示栏" and session("dw")<>session("zcm")&session("zc") then %> <%else%> 欢迎<%=session("dw")&session("xmdh")%>查询或发表意见： <%end if%>

<%=session("zcm")%><%=session("zc")%>最新公告：

<%=Application(session("zcm"))%>

值班人： abcd

<%if request("fy")="" then %> <%if session("xmb")="意见簿" then response.write session("zcm")&session("zc")&"意见簿累计"&session("yn")&"条
"&session("b1")%> <%if session("xmb")="表扬信" then response.write session("zcm")&session("zc")&"表扬信累计"&session("bn")&"条
"&session("b1")%><%if session("xmb")="问事处" or session("xmb")="公示栏" or session("xmb")="服务台" then response.write session("b1")%> <%if session("xmb")="首长热线" then response.write session("b1")%> <%end if%>

(1)

[ 发表时间：<%=now()%> ]

共有记录 -- 个，共 - 页



联系我们
<% end select 'end if ' wsc结尾 sub xgsc ' 修改数据 set a=fs.OpenTextFile(server.mappath("wsc.txt"),1,false) set b=fs.createTextFile(server.mappath("l.txt"),true) while not a.AtEndOfStream a1=a.ReadLine if instr(1,a1,request("tw1"),1)>1 then a1=replace(a1,request("tw1"),"$") if session("xmb")="问事处" then session("wn")=mid(a1,instr(1,a1,"w",1)+1,instr(1,a1,"f",1)-instr(1,a1,"w",1)-1)-"0"-1 a1=mid(a1,1,instr(1,a1,"w",1))&session("wn")&mid(a1,instr(1,a1,"f",1)) end if if session("xmb")="公示栏" then session("gn")=mid(a1,instr(1,a1,"g",1)+1,instr(1,a1,"%",1)-instr(1,a1,"g",1)-1)-"0"-1 a1=mid(a1,1,instr(1,a1,"g",1))&session("gn")&mid(a1,instr(1,a1,"%",1)) end if if session("xmb")="服务台" then session("fn")=mid(a1,instr(1,a1,"f",1)+1,instr(1,a1,"$",1)-instr(1,a1,"f",1)-1)-"0"-1 a1=mid(a1,1,instr(1,a1,"f",1))&session("fn")&mid(a1,instr(1,a1,"$",1)) end if if session("xmb")="意见簿" then session("yn")=mid(a1,instr(1,a1,"%",1)+1,instr(1,a1,"@",1)-instr(1,a1,"%",1)-1)-"0"-1 a1=mid(a1,1,instr(1,a1,"%",1))&session("yn")&mid(a1,instr(1,a1,"@",1)) end if if session("xmb")="表扬信" then session("bn")=mid(a1,instr(1,a1,"@",1)+1,instr(1,a1,"w",1)-instr(1,a1,"@",1)-1)-"0"-1 a1=mid(a1,1,instr(1,a1,"@",1))&session("bn")&mid(a1,instr(1,a1,"w",1)) end if end if b.writeline a1 wend b.close a.close fs.copyFile server.mappath("l.txt"),server.mappath("wsc.txt"),true response.redirect"wsc.asp?xs=ws&xss=16" end sub %> dairfield/tos.html" target="_blank">tos	10:20	osl	12:10	47	735
bu442	tos	07:00	osl	08:50	35	734
bu272	tos	11:35	boo	12:20	12457	735
bu466	tos	21:20	osl	23:10	234	73g
bu456	tos	16:25	osl	18:10	7	735
bu458	tos	17:15	osl	19:05	145	734
bu462	tos	18:40	osl	20:25	34	73g
bu462	tos	18:40	osl	20:25	35	73g
bu446	tos	10:20	osl	12:10	12356	73g
bu456	tos	16:25	osl	18:10	6	73g
bu466	tos	21:20	osl	23:10	15	735
bu466	tos	21:20	osl	23:10	245	73g
bu458	tos	17:15	osl	19:05	2	734
bu446	tos	10:20	osl	12:10	13	734
bu464	tos	19:15	osl	21:05	7	738
bu462	tos	18:00	osl	19:45	7	73g
bu446	tos	10:20	osl	12:10	26	73g
bu444	tos	08:40	osl	10:30	56	735
bu272	tos	11:35	boo	12:20	7	735
bu449	tos	12:15	lyr	13:55	34	734
bu466	tos	21:20	osl	23:10	13	735
bu442	tos	07:00	osl	08:50	1246	73g
bu456	tos	16:25	osl	18:10	67	735
bu282	tos	16:25	boo	17:10	12347	735
bu446	tos	10:20	osl	12:10	15	734
bu286	tos	19:35	boo	20:20	12347	735
bu458	tos	17:15	osl	19:05	13457	734
bu465	tos	21:55	alf	22:20	45	735
bu282	tos	16:25	boo	17:10	23457	735
bu266	tos	09:40	boo	10:25	13	73g
bu449	tos	12:15	lyr	13:55	34	73g
bu456	tos	16:00	osl	17:45	15	735
bu466	tos	21:20	osl	23:10	4	73g
bu446	tos	10:20	osl	12:10	35	734
bu449	tos	12:15	lyr	13:55	1234	734
bu442	tos	07:00	osl	08:50	56	73g
bu458	tos	17:15	osl	19:05	137	73g
bu286	tos	19:35	boo	20:20	2	73g
bu444	tos	08:40	osl	10:30	1234	73g
bu466	tos	21:20	osl	23:10	134	735
bu266	tos	09:40	boo	10:25	1	73g
bu456	tos	16:25	osl	18:10	7	734
bu449	tos	12:15	lyr	13:55	137	73g
bu262	tos	07:10	boo	07:55	1235	735
bu462	tos	18:40	osl	20:25	3	73g
bu458	tos	17:15	osl	19:05	1234	734
bu458	tos	17:15	osl	19:05	2	73g
bu272	tos	11:35	boo	12:20	3	73g
bu446	tos	10:20	osl	12:10	7	735
bu456	tos	16:00	osl	17:45	234	73g
bu466	tos	20:15	osl	22:05	7	734
bu456	tos	16:00	osl	17:45	5	735
bu465	tos	21:55	alf	22:20	123	73g
bu456	tos	16:00	osl	17:45	1345	735
bu276	tos	14:00	boo	14:45	1234567	735
bu446	tos	10:20	osl	12:10	13457	735
bu465	tos	22:25	alf	22:50	7	73g

提示：此页面是航班计划信息。如果信息有出入，属正常情况，请以国际机票实时查询为准！

国际机票实时查询

世界各地特价机票免费查询和免费发布系统