qmadmin_qmroute_fun_edit.asp

佛山的公交车查询系统

<!-- #include file="../inc/config.asp" -->
<!-- #include file="../inc/pinyin.asp" -->
<!-- #include file="Login_Check.asp" -->
<%if session("quanxian")=2 then%>
<%
if Request.QueryString.Count>0 then '表单传入相关数据
  qmroute_id=Request.QueryString("qmroute_id")
  qmroute_name=Request.QueryString("qmroute_name")
  qmbus_rate=Request.QueryString("qmbus_rate")
  qmbus_ratebz=Request.QueryString("qmbus_ratebz")
  qmbus_starttime=Request.QueryString("qmbus_starttime")
  qmbus_endtime=Request.QueryString("qmbus_endtime")
  qmroute_address=Request.QueryString("qmroute_address")
end if
'-------------------------------------------------------------
'对数qmroute_address按照回车的间隔进行分割 并赋给另一个数组
qmroute_address_now_1=split(qmroute_address,chr(13)&chr(10))
Num_4=ubound(qmroute_address_now_1)
qmroute_address_now_2=qmroute_address_now_1(0)
for m=1 to Num_4
  qmroute_address_now_2=qmroute_address_now_2+"-"+qmroute_address_now_1(m)
next
'-------------------------------------------------------------
'打开数据库把原有的公交线路拿出来
sqlstr="select * from [Route] where qmroute_id="&qmroute_id
rs.open sqlstr,conn,1,3
if not rs.eof then
  qmroute_address_old_1=rs("qmroute_address")
else response.Write("该线路还没有添加站点！")
end if
rs.close
set rs=nothing
'-------------------------------------------------------------
'把原有的线路进行拆分 对数据表[station]进行修改
qmroute_address_old_2=split(qmroute_address_old_1,"-")
Num_1=ubound(qmroute_address_old_2)
for i=0 to Num_1
set rs=server.createobject("adodb.recordset")
  sql="select * from Station where qmstation_name='"& qmroute_address_old_2(i) &"'"
  rs.open sql,conn,1,3
  if not rs.bof then
  qmstation_qmbus_old_1=rs("qmstation_bus")  '读出数据qmstation_bus并进行拆分
  qmstation_qmbus_old_2=split(qmstation_qmbus_old_1,"-")
  Num_2=ubound(qmstation_qmbus_old_2)
  if Num_2=0 then  '如果拆分出来的数组只有一个元素，则进行删除操作
    qm="delete * from [Station] where [qmstation_name]='"& qmroute_address_old_2(i) &"'" 
    application.Lock()
    conn.execute(qm)
    application.UnLock()
	rs.close
  end if  
  if Num_2=1 then  '如果是两个元素，进行分析
    if qmstation_qmbus_old_2(0) <> qmroute_name then
	  qmstation_qmbus_new=qmstation_qmbus_old_2(0)  '和提交上来的线路名称不同，则把他赋给一个变量。
	else  '否则把另外一个值赋给变量
	  qmstation_qmbus_new=qmstation_qmbus_old_2(1)
	end if
	rs("qmstation_bus")=qmstation_qmbus_new
	rs.update
	rs.close
  end if  
  if Num_2>1 then  '如果大于两个元素，进行更为复杂的分析
    if qmstation_qmbus_old_2(0) <> qmroute_name then
      qmstation_qmbus_new=qmstation_qmbus_old_2(0)
      for j=1 to Num_2 
        if qmstation_qmbus_old_2(j) <> qmroute_name then
          qmstation_qmbus_new=qmstation_qmbus_new+"-"+qmstation_qmbus_old_2(j)
        end if
      next
    else
      qmstation_qmbus_new=qmstation_qmbus_old_2(1)
  	  for j=2 to Num_2
        qmstation_qmbus_new=qmstation_qmbus_new+"-"+qmstation_qmbus_old_2(j)
      next
    end if
    rs("qmstation_bus")=qmstation_qmbus_new
    rs.update
    rs.close
	set rs=nothing
  end if
  end if
next
'-------------------------------------------------------------
'打开数据库【route】进行数据间的修改
set rs=server.createobject("adodb.recordset")
sqlstr="select * from [Route] where qmroute_id="& qmroute_id
rs.open sqlstr,conn,1,3
rs("qmroute_address")=qmroute_address_now_2
rs("qmroute_addupdate")=now()
rs.update
rs.close
set rs=nothing
'-------------------------------------------------------------
'打开数据库【bus】进行数据间的修改
set rs=server.createobject("adodb.recordset")
sql="select * from [Bus] where qmbus_name='"& qmroute_name &"'"
rs.open sql,conn,1,3
rs("qmbus_rate")=qmbus_rate
rs("qmbus_ratebz")=qmbus_ratebz
rs("qmbus_starttime")=qmbus_starttime
rs("qmbus_endtime")=qmbus_endtime
rs("qmbus_addupdate")=now()
rs.update
rs.close
set rs=nothing
'-------------------------------------------------------------
'打开数据库【station】进行数据交换
qmroute_address_new_1=split(qmroute_address,chr(13)&chr(10))
Num_3=ubound(qmroute_address_new_1)
for k=0 to Num_3
set rs=server.createobject("adodb.recordset")
  sqlstr="select * from [Station] where qmstation_name='"& qmroute_address_new_1(k) &"'"
  rs.open sqlstr,conn,1,3
    if not rs.eof then
      qmstation_qmbus_new_1=rs("qmstation_bus")
	  qmstation_qmbus_new_2=qmstation_qmbus_new_1+"-"+qmroute_name
	  rs("qmstation_bus")=qmstation_qmbus_new_2
	  rs("qmstation_addupdate")=now()
	  rs("qmstation_char")= GetPyChar(qmroute_address_new_1(k))
	  rs.update
	  rs.close
	  set rs=nothing
	else
	  rs.addnew
	  rs("qmstation_name")=qmroute_address_new_1(k)
	  rs("qmstation_bus")=qmroute_name
	  rs("qmstation_addupdate")=now()
	  rs("qmstation_char")= GetPyChar(qmroute_address_new_1(k))
	  rs.update
	  rs.close
	  set rs=nothing
	end if
next
call ShowErr("修改成功！","qmadmin_qmroute_List.asp")
%><%else%>
<%
call ShowErr("你没有权限！","1")
%>
<%end if%>