admin_save.asp

公交车查询系统

<%@LANGUAGE="VBSCRIPT"%>
<% option explicit %>
<!--#include file="admin_check.asp"-->
<!--#include file="function.asp"-->
<%
dim modifyID
dim text1,text3
dim eachState,i,j
dim returnResult
dim strTemp
modifyID=request("modifyID")
if modifyID<>"" then
	modifyID=cstr(modifyID)
	returnResult=delBus(modifyID)
	'response.Write(returnResult)
	'response.Write(modifyID)
end if
text1=trim(request("text1"))
text3=request("text3")
eachState=split(text3,",")
i=ubound(eachState)+1
redim arrBusInfo(i)
arrBusInfo(0)=text1

for j=1 to i
	'剔除非法字符
	strTemp=trim(eachState(j-1))
	strTemp=replace(strTemp,";","")
	strTemp=replace(strTemp,"|","")
	strTemp=replace(strTemp," ","")
	arrBusInfo(j)=strTemp
next
if addBus(arrBusInfo)=true then
	response.Redirect("admin_listbus.asp")
else
	'添加失败，因为有同名车次
	response.Write("添加失败，有同名车次!")
end if
%>