admin_route_fun_edit.asp

公交查询系统 本系统支持模糊查询

<!-- #include file="../inc/config.asp" -->
<!-- #include file="Login_Check.asp" -->
<%
if Request.QueryString.Count>0 then '表单传入相关数据
  route_id=Request.QueryString("route_id")
  route_name=Request.QueryString("route_name")
  bus_rate=Request.QueryString("bus_rate")
  bus_starttime=Request.QueryString("bus_starttime")
  bus_endtime=Request.QueryString("bus_endtime")
  route_address=Request.QueryString("route_address")
end if
'-------------------------------------------------------------
'对数route_address按照回车的间隔进行分割 并赋给另一个数组
route_address_now_1=split(route_address,chr(13)&chr(10))
Num_4=ubound(route_address_now_1)
route_address_now_2=route_address_now_1(0)
for m=1 to Num_4
  route_address_now_2=route_address_now_2+"-"+route_address_now_1(m)
next
'-------------------------------------------------------------
'打开数据库把原有的公交线路拿出来
sqlstr="select * from [Route] where route_id="&route_id
rs.open sqlstr,conn,1,3
if not rs.eof then
  route_address_old_1=rs("route_address")
else response.Write("该线路还没有添加站点！")
end if
rs.close
'-------------------------------------------------------------
'把原有的线路进行拆分 对数据表[station]进行修改
route_address_old_2=split(route_address_old_1,"-")
Num_1=ubound(route_address_old_2)
for i=0 to Num_1
  sql="select * from [Station] where station_name='"& route_address_old_2(i) &"'"
  rs.open sql,conn,1,3
  station_bus_old_1=rs("station_bus")  '读出数据station_bus并进行拆分
  station_bus_old_2=split(station_bus_old_1,"-")
  Num_2=ubound(station_bus_old_2)
  if Num_2=0 then  '如果拆分出来的数组只有一个元素，则进行删除操作
    keer="delete * from [Station] where [station_name]='"& route_address_old_2(i) &"'" 
    application.Lock()
    conn.execute(keer)
    application.UnLock()
	rs.close
  end if  
  if Num_2=1 then  '如果是两个元素，进行分析
    if station_bus_old_2(0) <> route_name then
	  station_bus_new=station_bus_old_2(0)  '和提交上来的线路名称不同，则把他赋给一个变量。
	else  '否则把另外一个值赋给变量
	  station_bus_new=station_bus_old_2(1)
	end if
	rs("station_bus")=station_bus_new
	rs.update
	rs.close
  end if  
  if Num_2>1 then  '如果大于两个元素，进行更为复杂的分析
    if station_bus_old_2(0) <> route_name then
      station_bus_new=station_bus_old_2(0)
      for j=1 to Num_2 
        if station_bus_old_2(j) <> route_name then
          station_bus_new=station_bus_new+"-"+station_bus_old_2(j)
        end if
      next
    else
      station_bus_new=station_bus_old_2(1)
  	  for j=2 to Num_2
        station_bus_new=station_bus_new+"-"+station_bus_old_2(j)
      next
    end if
    rs("station_bus")=station_bus_new
    rs.update
    rs.close
  end if
next
'-------------------------------------------------------------
'打开数据库【route】进行数据间的修改
sqlstr="select * from [Route] where route_id="& route_id
rs.open sqlstr,conn,1,3
rs("route_address")=route_address_now_2
rs("route_addupdate")=now()
rs.update
rs.close
'-------------------------------------------------------------
'打开数据库【bus】进行数据间的修改
sql="select * from [Bus] where bus_name='"& route_name &"'"
rs.open sql,conn,1,3
rs("bus_rate")=bus_rate
rs("bus_starttime")=bus_starttime
rs("bus_endtime")=bus_endtime
rs("bus_addupdate")=now()
rs.update
rs.close
'-------------------------------------------------------------
'打开数据库【station】进行数据交换
route_address_new_1=split(route_address,chr(13)&chr(10))
Num_3=ubound(route_address_new_1)
for k=0 to Num_3
  sqlstr="select * from [Station] where station_name='"& route_address_new_1(k) &"'"
  rs.open sqlstr,conn,1,3
    if not rs.eof then
      station_bus_new_1=rs("station_bus")
	  station_bus_new_2=station_bus_new_1+"-"+route_name
	  rs("station_bus")=station_bus_new_2
	  rs("station_addupdate")=now()
	  rs.update
	  rs.close
	else
	  rs.addnew
	  rs("station_name")=route_address_new_1(k)
	  rs("station_bus")=route_name
	  rs("station_addupdate")=now()
	  rs.update
	  rs.close
	end if
next
call ShowErr("修改成功！","Admin_Route_List.asp")
%>