admin.asp

航空订票系统基于asp.net和sql2005包含数据库和图片

<!--#include file="../conn.asp"-->
<%
'getkg=addguojicity
getkg=request.QueryString("getkg")
if getkg="addguojicity" then
call addguojicity
elseif getkg="guojicitylist" then
call guojicitylist
elseif getkg="editguojicity" then
call editguojicity
elseif getkg="addleaveguojicity" then
call addleaveguojicity
elseif getkg="editleaveguojicity" then
call editleaveguojicity
elseif getkg="edithangkon" then
call edithangkon
elseif getkg="addhangkon" then
call addhangkon
elseif getkg="edithangkonmatter" then
call edithangkonmatter
elseif getkg="editleaveguojijp" then
call editleaveguojijp
elseif getkg="addguojijp" then
call addguojijp
end if
%>
<%sub addguojicity
jplist=request.Form("jplist")
cityid=request.Form("cityid")
'response.write jplist&"<br>"&cityid
b=len(jplist)

dim n(3)
dim d,c,i
d=0
c=0
i=1
do while c < b
d=c
c=InStr(c+1,jplist,",")
'response.write c
if c=0 then exit do
n(i)=mid(jplist,d+1,c-d-1)
'response.write mid(jplist,d+1,c-d-1)&"<br>"
i=i+1
loop
'for i= 1 to 3
'response.Write n(i)&"<br>"
'next
if n(1)<>0 and n(2)<>0 and n(3)<>0 then
response.write "<script language=javascript>"&chr(13)&"alert('您选择了第三级分类,不可添加')"&chr(13)&"history.back()</script>"
response.end
end if
set rs=server.CreateObject("adodb.recordset")
sql="select * from cityid where id is null"
rs.open sql,conn,1,3
rs.addnew
rs("cityid")=cityid
rs("getid")=n(1)
rs("getid02")=n(2)
rs.update
set rs=nothing
%>
<meta http-equiv="refresh" content="1;URL=web_guojicity_list02.asp;text/html; charset=gb2312">
<%end sub%>

<%sub addguojicity01%>
<%end sub%>
<%
sub guojicitylist
on error resume next
a=cint(request.form("astid"))
'response.write a
if a=1 then
for each ho in request.Form("shop")
'response.write ho&"<br>"
conn.execute("delete from cityid where getid="&cint(ho)&" or getid02="&cint(ho)&"")
conn.Execute("delete from cityid where id="&cint(ho))
next
elseif a=2 then
for each ho in request.Form("shop")
'response.Write ho &"<br>"
display01=request.Form("display"&ho)
content=request.Form("content"&ho)
'response.write display01&"<br>"&content&"<br>"&ho&"<br>"
'Response.End()
'Response.Write("udpate cityid set display="&display01&",cityid='"&content&"' where id="&cint(ho))
'Response.End()
conn.Execute("update cityid set display="&display01&",cityid='"&content&"' where id="&cint(ho))
next
end if
%>
<%
response.write "<script language=javascript>"&chr(13)&"alert('修改成功')"&chr(13)&"window.location.href='web_guojicity_list02.asp';</script>"
end sub
%>
<%sub editguojicity
id=cint(request.QueryString("id"))
jplist=request.Form("jplist")
cityid=request.Form("cityid")
'response.write jplist&"<br>"&cityid
b=len(jplist)

dim n(3)
dim d,c,i
d=0
c=0
i=1
do while c < b
d=c
c=InStr(c+1,jplist,",")
'response.write c
if c=0 then exit do
n(i)=mid(jplist,d+1,c-d-1)
'response.write mid(jplist,d+1,c-d-1)&"<br>"
i=i+1
loop
for i= 1 to 3
response.Write n(i)&"<br>"
next
response.write id
set rs=server.CreateObject("adodb.recordset")
sql="select * from cityid where id ="&id
rs.open sql,conn,1,3
'rs.addnew
rs("cityid")=cityid
if cint(n(1)) <> id and cint(n(2)) <> id and cint(n(3)) <> id then
rs("getid")=n(1)
rs("getid02")=n(2)
end if
rs.update
set rs=nothing
%>
<meta http-equiv="refresh" content="1;URL=web_guojicity_list02.asp;text/html; charset=gb2312">
<%end sub%>
<%sub addleaveguojicity
cityid=request.Form("cityid")
quomodo=request.QueryString("quomodo")
'response.write quomodo
if quomodo="leaveguoji" then
conn.execute("insert into leaveguoji(cityid) values('"&cityid&"')")
response.write "<script language=javascript>"&chr(13)&"alert('修改成功')"&chr(13)&"window.location.href='web_guojicity_list.asp';</script>"
elseif quomodo="leaveguonei" then
conn.execute("insert into leaveguonei(cityid) values('"&cityid&"')")
response.write "<script language=javascript>"&chr(13)&"alert('修改成功')"&chr(13)&"window.location.href='web_guoneicity_list.asp';</script>"
elseif quomodo="whitherguonei" then
conn.execute("insert into whitherguonei(cityid) values('"&cityid&"')")
response.write "<script language=javascript>"&chr(13)&"alert('修改成功')"&chr(13)&"window.location.href='web_guoneicity_list02.asp';</script>"
elseif quomodo="aerodrome" then
conn.execute("insert into aerodrome(aerodrome) values('"&cityid&"')")
response.write "<script language=javascript>"&chr(13)&"alert('修改成功')"&chr(13)&"window.location.href='web_jichang_list.asp';</script>"

end if
%>
<%end sub%>
<%
sub editleaveguojicity
on error resume next
a=cint(request.form("astid"))
quomodo=request.QueryString("quomodo")
'response.write a
if a=1 then
for each ho in request.Form("shop")
'response.write ho&"<br>"
'conn.execute("delete from cityid where getid="&cint(ho)&" or getid02="&cint(ho)&"")
if quomodo="leaveguoji" then
conn.Execute("delete from leaveguoji where id="&cint(ho))
elseif quomodo="leaveguonei" then
conn.Execute("delete from leaveguonei where id="&cint(ho))
elseif quomodo="whitherguonei" then
conn.Execute("delete from whitherguonei where id="&cint(ho))
elseif quomodo="aerodrome" then
conn.Execute("delete from aerodrome where id="&cint(ho))
end if
next
elseif a=2 then
for each ho in request.Form("shop")
'response.Write ho &"<br>"
display01=request.Form("display"&ho)
cityid=request.Form("cityid"&ho)
'response.write display01&"<br>"&content&"<br>"&ho&"<br>"
'Response.End()
'Response.Write("udpate cityid set display="&display01&",cityid='"&content&"' where id="&cint(ho))
'Response.End()
if quomodo="leaveguoji" then
conn.Execute("update leaveguoji set display="&display01&",cityid='"&cityid&"' where id="&cint(ho))
elseif quomodo="leaveguonei" then
conn.Execute("update leaveguonei set display="&display01&",cityid='"&cityid&"' where id="&cint(ho))
elseif quomodo="whitherguonei" then
conn.Execute("update whitherguonei set display="&display01&",cityid='"&cityid&"' where id="&cint(ho))
elseif quomodo="aerodrome" then
conn.Execute("update aerodrome set display="&display01&",aerodrome='"&cityid&"' where id="&cint(ho))

end if
next
end if
%>
<%
if quomodo="leaveguoji" then
response.write "<script language=javascript>"&chr(13)&"alert('修改成功')"&chr(13)&"window.location.href='web_guojicity_list.asp';</script>"
elseif quomodo="leaveguonei" then
response.write "<script language=javascript>"&chr(13)&"alert('修改成功')"&chr(13)&"window.location.href='web_guoneicity_list.asp';</script>"
elseif quomodo="whitherguonei" then
response.write "<script language=javascript>"&chr(13)&"alert('修改成功')"&chr(13)&"window.location.href='web_guoneicity_list02.asp';</script>"
elseif quomodo="aerodrome" then
response.write "<script language=javascript>"&chr(13)&"alert('修改成功')"&chr(13)&"window.location.href='web_jichang_list.asp';</script>"

end if
%>
<%end sub%>
<%
sub edithangkon
a=cint(request.form("astid"))
quomodo=request.QueryString("quomodo")
'response.write a
if a=1 then
for each ho in request.Form("shop")
'response.write ho&"<br>"
'conn.execute("delete from cityid where getid="&cint(ho)&" or getid02="&cint(ho)&"")
if quomodo="hangkon" then
conn.Execute("delete from hangkon where id="&cint(ho))
end if
next
elseif a=2 then
for each ho in request.Form("shop")
'response.Write ho &"<br>"
display01=request.Form("display"&ho)
cityid=request.Form("hangkon"&ho)
'response.write display01&"<br>"&content&"<br>"&ho&"<br>"
'Response.End()
'Response.Write("udpate cityid set display="&display01&",cityid='"&content&"' where id="&cint(ho))
'Response.End()
if quomodo="hangkon" then
conn.Execute("update hangkon set display="&display01&",hangkon='"&cityid&"' where id="&cint(ho))
end if
next
end if
%>
<%
if quomodo="hangkon" then
response.write "<script language=javascript>"&chr(13)&"alert('修改成功')"&chr(13)&"window.location.href='web_hangkon_list.asp';</script>"
end if
%>

<%
end sub
%>
<%
sub addhangkon
title=request.Form("hangkon")
cont=request.Form("content")
conn.execute("insert into hangkon(hangkon,matter) values('"&title&"','"&cont&"')")
response.write "<script language=javascript>"&chr(13)&"alert('添加成功')"&chr(13)&"window.location.href='web_hangkon_list.asp';</script>"
%>

<%end sub%>
<%
sub edithangkonmatter
id=request.QueryString("id")
title=request.Form("hangkon")
cont=request.Form("content")
conn.Execute("update hangkon set hangkon='"&title&"',matter='"&cont&"' where id="&id)
response.write "<script language=javascript>"&chr(13)&"alert('修改成功')"&chr(13)&"window.location.href='web_hangkon_list.asp';</script>"
%>

<%end sub%>
<%
sub editleaveguojijp
'on error resume next
a=cint(request.form("astid"))
'response.write a
if a=1 then
for each ho in request.Form("shop")
'response.write ho&"<br>"
'conn.execute("delete from cityid where getid="&cint(ho)&" or getid02="&cint(ho)&"")
conn.Execute("delete from guojijp where id="&cint(ho))
response.write "<script language=javascript>"&chr(13)&"alert('删除成功')"&chr(13)&"window.location.href='web_guojijp.asp';</script>"

next
elseif a=2 then
dim n(3)
dim d,c,i
for each ho in request.Form("shop")
'response.Write ho &"<br>"
display01=request.Form("display"&ho)
groom=request.Form("groom"&ho)
leaveguoji=request.Form("leaveguoji"&ho)
jplist=request.Form("jplist"&ho)
aerodrome=request.Form("aerodrome"&ho)
oneway=request.Form("oneway"&ho)
leavetime=request.Form("leavetime"&ho)
'response.write display01&"<br>"&groom&"<br>"&leaveguoji&"<br>"&jplist&"<br>"&aerodrome&"<br>"&oneway&"<br>"&leavetime&"<br>"
b=len(jplist)


d=0
c=0
i=1
n(1)=""
n(2)=""
n(3)=""
do while c < b
d=c
c=InStr(c+1,jplist,",")
'response.write c
if c=0 then exit do
n(i)=mid(jplist,d+1,c-d-1)
'response.write mid(jplist,d+1,c-d-1)&"<br>"
i=i+1
loop
if trim(n(1))="" or trim(n(2))="" or trim(n(3))="" then
response.write "<script language=javascript>"&chr(13)&"alert('选择错误,您选择了洲或国家,产生错误,即将返回')"&chr(13)&"window.location.href='web_guojijp.asp';</script>"
response.end
end if
'response.write n(1)&"<br>"&n(2)&"<br>"&n(3)&"<br>"
'display
'groom
'leaveguoji
'jplist
'aerodrome
'one way
'leavetime
'response.write display01&"<br>"&content&"<br>"&ho&"<br>"
'Response.End()
'Response.Write("udpate cityid set display="&display01&",cityid='"&content&"' where id="&cint(ho))
'Response.End()
conn.Execute("update guojijp set display="&display01&",groom="&groom&",cityid='"&leaveguoji&"',areaid02='"&n(1)&"',countryid02='"&n(2)&"',cityid02='"&n(3)&"',aerodrome='"&aerodrome&"',oneway="&oneway&",leavetime='"&leavetime&"' where id="&cint(ho))
response.write "<script language=javascript>"&chr(13)&"alert('修改成功')"&chr(13)&"window.location.href='web_guojijp.asp';</script>"

next
end if
%>
<%end sub%>
<%
sub addguojijp(quomodo)
display01=request.form("display")
groom=request.form("groom")
cityid=request.form("cityid")
jplist=request.form("jplist")
aerodrome=request.form("aerodrome")
airways=request.form("airways")
leavetime=request.form("leavetime")
arrivetime=request.form("arrivetime")
flight=request.form("flight")
model=request.form("model")
weekly=request.form("weekly")
oneway=request.form("oneway")
shunt=request.form("shunt")
remark=request.form("remark")
conn.Execute("insert into guojijp(display,groom,cityid,,areaid02,) set display="&display01&",groom="&groom&",cityid='"&leaveguoji&"',areaid02='"&n(1)&"',countryid02='"&n(2)&"',cityid02='"&n(3)&"',aerodrome='"&aerodrome&"',oneway="&oneway&",leavetime='"&leavetime&"' where id="&cint(ho))

%>

<%end sub%>