admin_route_fun_add.asp

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

<!-- #include file="../inc/config.asp" -->
<!-- #include file="Login_Check.asp" -->
<%
if request.QueryString.count>0 then  '读取数据
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_now=split(route_address,chr(13)&chr(10))
num=ubound(route_address_now)
route_address_new=route_address_now(0)
for i=1 to num
route_address_new=route_address_new+"-"+route_address_now(i)
next
'把相关信息添加到各个数据表
sqlstr="select * from [Route] where route_name='"& route_name &"'"
rs.open sqlstr,conn,1,3
if not rs.eof then
  call ShowErr("该公交线路已经存在！","1")
end if
rs.addnew
rs("route_name")=route_name
rs("route_address")=route_address_new
rs("route_addupdate")=now()
rs.update
rs.close
'----------------------
sql="select * from [Bus]"
rs.open sql,conn,1,3
rs.addnew
rs("bus_name")=route_name
rs("bus_rate")=bus_rate
rs("bus_starttime")=bus_starttime
rs("bus_endtime")=bus_endtime
rs("bus_addupdate")=now()
rs.update
rs.close
'----------------------
for j=0 to num
sqlstr="select * from [Station] where station_name='"& route_address_now(j) &"'"
rs.open sqlstr,conn,1,3
if not rs.eof then   '存在这个站点的话就修改数据
station_bus=rs("station_bus")
station_bus_new=station_bus+"-"+route_name
rs("station_bus")=station_bus_new
rs("station_addupdate")=now()
rs.update
rs.close
else   '不存在的话就添加数据
rs.addnew
rs("station_name")=route_address_now(j)
rs("station_bus")=route_name
rs("station_addupdate")=now()
rs.update
rs.close
end if
next
call ShowErr("添加成功！","Admin_Route_List.asp")
%>