qmadmin_qmroute_fun_add.asp

佛山的公交车查询系统

<!-- #include file="../inc/config.asp" -->
<!-- #include file="../inc/pinyin.asp" -->
<!-- #include file="Login_Check.asp" -->
<%if session("quanxian")=2 or session("quanxian")=1 then%>
<%
if request.form.count>0 then  '读取数据
qmroute_name=request("qmroute_name")
bus_rate=request("bus_rate")
bus_ratebz=request("bus_ratebz")
bus_starttime=request("bus_starttime")
bus_endtime=request("bus_endtime")
qmroute_address=request("qmroute_address")
end if
qmroute_address_now=split(qmroute_address,chr(13)&chr(10))
num=ubound(qmroute_address_now)
qmroute_address_new=qmroute_address_now(0)
for i=1 to num
qmroute_address_new=qmroute_address_new+"-"+qmroute_address_now(i)
next
'把相关信息添加到各个数据表
sqlstr="select * from [Route] where qmroute_name='"& qmroute_name &"'"
rs.open sqlstr,conn,1,3
if not rs.eof then
  call ShowErr("该公交线路已经存在！","1")
end if
rs.addnew
rs("qmroute_name")=qmroute_name
rs("qmroute_address")=qmroute_address_new
rs("qmroute_addupdate")=now()
rs.update
rs.close
'----------------------
sql="select * from [Bus]"
rs.open sql,conn,1,3
rs.addnew
rs("qmbus_name")=qmroute_name
rs("qmbus_rate")=bus_rate
rs("qmbus_ratebz")=bus_ratebz
rs("qmbus_starttime")=bus_starttime
rs("qmbus_endtime")=bus_endtime
rs("qmbus_addupdate")=now()
rs.update
rs.close
'----------------------
for j=0 to num
sqlstr="select * from [Station] where qmstation_name='"& qmroute_address_now(j) &"'"
rs.open sqlstr,conn,1,3
if not rs.eof then   '存在这个站点的话就修改数据
station_bus=rs("qmstation_bus")
station_bus_new=station_bus+"-"+qmroute_name
rs("qmstation_bus")=station_bus_new
rs("qmstation_addupdate")=now()
rs("qmstation_char")= GetPyChar(qmroute_address_now(j))
rs.update
rs.close
else   '不存在的话就添加数据
rs.addnew
rs("qmstation_name")=qmroute_address_now(j)
rs("qmstation_bus")=qmroute_name
rs("qmstation_addupdate")=now()
rs("qmstation_char")= GetPyChar(qmroute_address_now(j))
rs.update
rs.close
end if
next
call ShowErr("添加成功！","qmadmin_qmroute_List.asp")
%>
<%else%>
<%
call ShowErr("你没有权限！","1")
%>
<%end if%>