list.asp

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

<!--#include file="../conn.asp"-->
<%sub displaycity(pattern)%>
<%
set rs01=server.CreateObject("adodb.recordset")
%>
<%
if pattern=1 then
%>
<%
sql01="select cityid from leaveguoji"
end if
rs01.open sql01,conn,1,1
do while not rs01.eof
%>
<option value="<%=rs01("cityid")%>"><%=rs01("cityid")%></option>
<%
rs01.movenext
loop
%>
<%end sub%>
<%
sub guojicitylist
id=cint(request.QueryString("id"))
'response.write id
%>
<select name="jplist" class="input">
 <option value="0,0,0," <% if(id="") then response.write "selected" end if%>>顶级分类</option>
<%
set rs=server.CreateObject("adodb.recordset")
sql="select id,cityid from cityid where getid = 0 and getid02=0"
rs.open sql,conn,1,1
do while not rs.eof
%>
 <option value="<%=rs("id")&","%>0,0," <% if(rs("id")= id) then response.write "selected" end if%>><%=rs("cityid")%></option>
<%
set rs1=server.CreateObject("adodb.recordset")
sql1="select id,cityid from cityid where getid ='"&rs("id")&"' and getid02=0"
rs1.open sql1,conn,1,1
do while not rs1.eof
%>
 <option value="<%=rs("id")&","%><%=rs1("id")&","%>0," <% if(rs1("id")= id) then response.write "selected" end if%>>&nbsp;+<%=rs1("cityid")%></option>
 <%
set rs2=server.CreateObject("adodb.recordset")
sql2="select id,cityid from cityid where getid ='"&rs("id")&"' and getid02='"&rs1("id")&"'"
rs2.open sql2,conn,1,1
do while not rs2.eof
%>
 <option value="<%=rs("id")&","%><%=rs1("id")&","%><%=rs2("id")&","%>" <% if(rs2("id")= id) then response.write "selected" end if%>>&nbsp;&nbsp;++<%=rs2("cityid")%></option>
<%
rs2.movenext
loop
%>
<%
rs1.movenext
loop
%>
<%
rs.movenext
loop
%>
</select>
<%end sub%>
<%
sub guojicitylist01
%>
<select name="jplist" class="input">
 <option value="顶级分类">顶级分类</option>
<%
set rs=server.CreateObject("adodb.recordset")
sql="select id,cityid from cityid where getid = 0 and getid02=0"
rs.open sql,conn,1,1
do while not rs.eof
%>
 <option value="<%=rs("id")%>"><%=rs("cityid")%></option>
<%
set rs1=server.CreateObject("adodb.recordset")
sql1="select id,cityid from cityid where getid ='"&rs("id")&"' and getid02=0"
rs1.open sql1,conn,1,1
do while not rs1.eof
%>
 <option value="<%=rs1("id")%>">&nbsp;+<%=rs1("cityid")%></option>
 <%
set rs2=server.CreateObject("adodb.recordset")
sql2="select id,cityid from cityid where getid ='"&rs("id")&"' and getid02='"&rs1("id")&"'"
rs2.open sql2,conn,1,1
do while not rs2.eof
%>
 <option value="<%=rs2("id")%>">&nbsp;&nbsp;++<%=rs2("cityid")%></option>
<%
rs2.movenext
loop
%>
<%
rs1.movenext
loop
%>
<%
rs.movenext
loop
%>
</select>
<%end sub%>
<%
sub guojicitylist02
%>
<%
set rs=server.CreateObject("adodb.recordset")
sql="select id,cityid from cityid where getid = 0 and getid02=0"
rs.open sql,conn,1,1
do while not rs.eof
%>
 <option value="<%=rs("cityid")&","%>"","","><%=rs("cityid")%></option>
<%
set rs1=server.CreateObject("adodb.recordset")
sql1="select id,cityid from cityid where getid ='"&rs("id")&"' and getid02=0"
rs1.open sql1,conn,1,1
do while not rs1.eof
%>
 <option value="<%=rs("cityid")&","%><%=rs1("cityid")&","%>"",">&nbsp;+<%=rs1("cityid")%></option>
 <%
set rs2=server.CreateObject("adodb.recordset")
sql2="select id,cityid from cityid where getid ='"&rs("id")&"' and getid02='"&rs1("id")&"'"
rs2.open sql2,conn,1,1
do while not rs2.eof
%>
 <option value="<%=rs("cityid")&","%><%=rs1("cityid")&","%><%=rs2("cityid")&","%>">&nbsp;&nbsp;++<%=rs2("cityid")%></option>
<%
rs2.movenext
loop
%>
<%
rs1.movenext
loop
%>
<%
rs.movenext
loop
%>
<%end sub%>
<%
sub aerodrome
set rs=server.createobject("adodb.recordset")
sql="select * from aerodrome"
rs.open sql,conn,1,1
do while not rs.eof
%>
<option value="<%=rs("aerodrome")%>"><%=rs("aerodrome")%></option>
<%
rs.movenext
loop
end sub
%>
<%
sub listgjdgdisplay
pageno=request.form("pageno")
if pageno="" then
  pageno=request.QueryString("pageno")
  if pageno="" then
  pageno=1
  end if
end if
set rs=server.CreateObject("adodb.recordset")
sql="select * from cityid where getid=0 and getid02=0"
rs.open sql,conn,1,1
'do while not rs.eof
'rs.pagesize=1
pagesiz=15
 i=0
'rs.absolutepage=pageno
do while not rs.eof
i=i+1
if i > pagesiz * (pageno-1) and i < (pageno * pagesiz) +1 then
%>
 <tr align="center" bgcolor="#FFFFFF">
            <td class="T01"><input name="shop" type="checkbox" id="<%=rs("id")%>" value="<%=rs("id")%>"></td>
            <td class="T02">
			<select name="display<%=rs("id")%>" class="input" id="display<%=rs("id")%>">
                <option value="1" <% if(rs("display")= 1) then response.write "selected" end if%>>是</option>
				<option value="2" <% if(rs("display")= 2) then response.write "selected" end if%>>否</option>
              </select>
			</td>
            <td class="T03">洲</td>
            <td class="T03"><div align="left">
              &nbsp;
              <input name="content<%=rs("id")%>" type="text" class="input" id="content<%=rs("id")%>" value="<%=rs("cityid")%>" size="30">
            </div></td>
            <td bgcolor="#FFFFFF" class="T07"><a href="web_guojicity_edit.asp?id=<%=rs("id")%>">[编辑]</a></td>
</tr>
		  <%
		  end if
set rs01=server.CreateObject("adodb.recordset")
sql01="select * from cityid where getid="&rs("id")&" and getid02=0"
rs01.open sql01,conn,1,1
do while not rs01.eof
i=i+1
if i > pagesiz * (pageno-1) and i < (pageno * pagesiz) +1 then
%>
<tr align="center" bgcolor="#FFFFFF">
            <td class="T01"><input name="shop" type="checkbox" id="<%=rs01("id")%>" value="<%=rs01("id")%>"></td>
            <td class="T02">
			<select name="display<%=rs01("id")%>" class="input" id="display<%=rs01("id")%>">
                <option value="1" <% if(rs01("display")= 1) then response.write "selected" end if%>>是</option>
				<option value="2" <% if(rs01("display")= 2) then response.write "selected" end if%>>否</option>
              </select>
			</td>
            <td class="T03">国家</td>
            <td class="T03"><div align="left">
              &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
              <input name="content<%=rs01("id")%>" type="text" class="input" id="content<%=rs01("id")%>" value="<%=rs01("cityid")%>" size="30">
            </div></td>
            <td class="T07"><a href="web_guojicity_edit.asp?id=<%=rs01("id")%>">[编辑]</a></td>
</tr><%
end if
set rs02=server.CreateObject("adodb.recordset")
sql02="select * from cityid where getid="&rs("id")&" and getid02="&rs01("id")&""
rs02.open sql02,conn,1,1
do while not rs02.eof
i=i+1
if i > pagesiz * (pageno-1) and i < (pageno * pagesiz) +1 then
%>
<tr align="center" bgcolor="#FFFFFF">
            <td class="T01"><input name="shop" type="checkbox" id="<%=rs02("id")%>" value="<%=rs02("id")%>"></td>
            <td class="T02">
			<select name="display<%=rs02("id")%>" class="input" id="display<%=rs02("id")%>">
                <option value="1" <% if(rs02("display")= 1) then response.write "selected" end if%>>是</option>
				<option value="2" <% if(rs02("display")= 2) then response.write "selected" end if%>>否</option>
              </select>
			</td>
            <td class="T03">城市</td>
            <td class="T03"><div align="left">
              &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
              <input name="content<%=rs02("id")%>" type="text" class="input" id="content<%=rs02("id")%>" value="<%=rs02("cityid")%>" size="30">
            </div></td>
            <td class="T07"><a href="web_guojicity_edit.asp?id=<%=rs02("id")%>">[编辑]</a></td>
</tr><%
end if
rs02.movenext
loop
rs01.movenext
loop
rs.movenext
loop
%>
 <tr align="center">
            <td colspan="5" class="T01"><table width="100%" cellpadding="0" cellspacing="0">
              <tr>
                <td width="38%">
                  <p>
				     <script language=javascript>
<!--
function CheckAll(form)  {
	  for (var i=0;i<form.elements.length;i++)    
	  {
		var e = form.elements[i];
		if (e.name == 'shop')       e.checked = form.chkall.checked; 
	   }
	  }
	  function sum1(){
	  document.form1.astid.value ="1" ;
	  {if(confirm('您确定执行的操作吗?')){this.document.form1.submit();return true;}return false;}  
	  this.form.submit
	  }
	   function sum2(){
	  document.form1.astid.value ="2" ;
	  {if(confirm('您确定执行的操作吗?')){this.document.form1.submit();return true;}return false;}  
	  this.form.submit
	  }
//-->
</script>
          <input type="checkbox" name="chkall" value="checkbox"  onClick="onclick=CheckAll(this.form)">
        全选
        <input name="Submit" type="submit" class="button" value="删除"  onClick="sum1()">
        <input name="Submit" type="submit" class="button" value="修改"  onClick="sum2()">
&nbsp;
        <input name="Submit" type="reset" class="button" value="重置">
		 <input name="astid" type="hidden" size="1" maxlength="10">
        <span class="style1">可以显示25条信息</span></p></td>
 <td align="right" width="62%">
				<strong>&gt;&gt;分页 </strong> 
				<a href="?pageno=1">首页</a> 
				<%
				pagenum = cint(i / pagesiz)				
				if pagenum * pagesiz < i then
				pagenum = pagenum + 1
				end if
				if cint(pageno) > pagenum then
				response.write "<script language=javascript>"&chr(13)&"alert('超出页数范围')"&chr(13)&"history.back()</script>"
				response.end
				end if
				if pageno=1 or pageno="" then
				%>
				<font color="#a1a1a1">上一页</font>
				<%else%> 
				<a href="?pageno=<%=pageno-1%>">上一页</a>
				<%end if%>
				<%
				'response.write rs02.pagecount				
				if cint(pageno) = pagenum then
				%>				
				<font color="#a1a1a1">下一页</font>				
				<%else%> 
				<a href="?pageno=<%=pageno+1%>">下一页 </a>
				<%end if%>
				<a href="?pageno=<%=pagenum%>">尾页 </a> 
				页次： <strong><%=pageno%> </strong>/ <strong><%=pagenum%> </strong>页 <strong>15 </strong>个记录/页　
	
		</td>
              </tr>
             
            </table></td>
</tr>
<%
end sub
%>
<%sub editguojiweb%>
 <tr>
	  <%
			id=cint(request.QueryString("id"))
			set rs=server.CreateObject("adodb.recordset")
			sql="select * from cityid where id="&id
			rs.open sql,conn,1,1
			%>
        <td align="left"><form action="admin.asp?getkg=editguojicity&id=<%=id%>" method="post" enctype="application/x-www-form-urlencoded" name="myform" target="_self" id="myform">
          <table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="e0e0e0">
            <tr align="center" bgcolor="#FFFFFF">
              <td width="16%" align="center" class="T02">选择分类</td>
              <td width="84%" align="left" class="T03">
                <%guojicitylist%>
              </td>
            </tr>
            <tr align="center" bgcolor="#FFFFFF">
              <td width="16%" align="center" class="T02">地点添加</td>
              <td width="84%" align="left" class="T03"><input name="cityid" type="text" class="input" id="cityid" value="<%=rs("cityid")%>"></td>
            </tr>
            <tr align="center">
              <td colspan="2" class="T01"><input name="Submit" type="submit" class="button" value="添加" onClick="return CheckForm()">
&nbsp;&nbsp;&nbsp;
      <input name="Submit" type="submit" class="button" value="重置">
              </td>
            </tr>
          </table>
        </form></td>
      </tr>
<%end sub%>
<%
sub listleaveguoji(quomodo)
pageno=request.form("pageno")
if pageno="" then
  pageno=request.QueryString("pageno")
  if pageno="" then
  pageno=1
  end if
end if
set rs02=server.CreateObject("adodb.recordset")
if cint(quomodo)=1 then
sql02="select * from leaveguoji"
elseif cint(quomodo)=2 then
sql02="select * from leaveguonei"
elseif cint(quomodo)=3 then
sql02="select * from whitherguonei"
elseif cint(quomodo)=4 then
sql02="select * from aerodrome"
end if
rs02.open sql02,conn,1,1
rs02.pagesize=15
if not rs02.eof then
rs02.absolutepage=pageno
end if
if cint(pageno)>rs02.pagecount and cint(pageno)<> 1 then
response.write "<script language=javascript>"&chr(13)&"alert('分页超出或查询项目为空')"&chr(13)&"history.back()</script>"
response.end
end if
for i=1 to rs02.pagesize
if rs02.eof then exit for
if cint(quomodo)=4 then
cityid=rs02("aerodrome")
else
cityid=rs02("cityid")
end if
%>
 <tr align="center" bgcolor="#FFFFFF">
            <td class="T01"><input name="shop" type="checkbox" id="<%=rs02("id")%>" value="<%=rs02("id")%>"></td>
            <td class="T02">
			<select name="display<%=rs02("id")%>" class="input" id="display<%=rs02("id")%>">
                <option value="1" <% if(rs02("display")= 1) then response.write "selected" end if%>>是</option>
				<option value="2" <% if(rs02("display")= 2) then response.write "selected" end if%>>否</option>
              </select>
			</td>
            <td class="T03">
			<input name="cityid<%=rs02("id")%>" type="text" class="input" id="cityid<%=rs02("id")%>" value="<%=cityid%>" size="30">

			</td>            
           
</tr>
<%
rs02.movenext
next
%>