index_inc.asp

信息管理系统！很简单的课程设计！类似于城市信息交换的网站！

response.write "<img src=Star/2x.gif>"
response.write"<img src=Star/z.gif>"
elseif rs("level")="三星级" then
response.write "<img src=Star/3x.gif>"	
elseif rs("level")="准三星级" then
response.write "<img src=Star/3x.gif>"
response.write"<img src=Star/z.gif>"
elseif rs("level")="四星级" then
response.write "<img src=Star/4x.gif>"	
elseif rs("level")="准四星级" then
response.write "<img src=Star/4x.gif>"
response.write"<img src=Star/z.gif>"
elseif rs("level")="五星级" then
response.write "<img src=Star/5x.gif>"	
elseif rs("level")="准五星级" then
response.write "<img src=Star/5x.gif>"
response.write"<img src=Star/z.gif>"
end if
%></TD>
                              </TR>
                            </TBODY>
                        </TABLE></TD>
                      </TR>
                      <TR>
                        <TD align=middle colSpan=2 height=21>
                          <TABLE width=100% border=0 align="center" cellPadding=0 cellSpacing=0>
                            <TBODY>
                              <TR align=middle>
                                <TD><div align="left"><a href="Hotel/Hotel_<%=rs("id")%>.html"><img src="images/b1.gif" border="0"></a></div></TD>
                                <TD><div align="right"><a href="#" onclick="Javascript:OpenSmallWindows('HotelRoomAll.asp?id=<%=rs("Id")%>')" ><img src="images/b2.gif" border="0"></a></div></TD>
                              </TR>
                            </TBODY>
                        </TABLE></TD>
                      </TR>
                    </TBODY>
                </TABLE></td>
                <%
rs.movenext
if rs.eof or rs.bof then 
response.write "<td width='210'></td>"
exit do
end if
%>
                
                <td  valign="top"><TABLE width=94% border=0 align="right" cellPadding=0 cellSpacing=0>
                  <TBODY>
                    <TR align=middle>
                      <TD colSpan=2 height=24>
                        <TABLE width="180" border=1 cellPadding=0 cellSpacing=0 bordercolor=#9AD8EC borderColorDark=#ffffff>
                          <TBODY>
                            <TR>
                              <TD width=207 height="22" align=middle bgcolor="#EEFAFF">
                                <div align="center"><font color=#006699>
                                  <%if len(rs("c_name"))>17 then%>
                                  <%=left(rs("c_name"),15)%>...
                                  <%else%>
                                  <%=rs("c_name")%>
                                  <%end if%>
                              </font></div></TD>
                            </TR>
                          </TBODY>
                      </TABLE></TD>
                    </TR>
                    <TR>
                      <TD align=middle width=81 height=85>
                        <TABLE width=77 border=0 align="center" cellPadding=0 cellSpacing=0>
                          <TBODY>
                            <TR>
                              <TD width=77><img src="admin\<%=rs("logurl")%>" width="77" height="72" border="0"></TD>
                            </TR>
                          </TBODY>
                      </TABLE></TD>
                      <TD>
                        <TABLE cellSpacing=0 cellPadding=0 border=0>
                          <TBODY>
                            <TR>
                              <TD width=35 height=22><font color=#006699>省份:</font></TD>
                              <TD><font color=#006699><%=shengname%></font></TD>
                            </TR>
                            <TR>
                              <TD height=22><font color=#006699>县市:</font></TD>
                              <TD><font color=#006699><%=rs("city")%></font></TD>
                            </TR>
                            <TR>
                              <TD height=22><font color=#006699>星级:</font></TD>
                              <TD><%if rs("level")="无标准" then 
response.write "无标准"
elseif rs("level")="一星级" then
response.write "<img src=Star/1x.gif>"	
elseif rs("level")="准一星级" then
response.write "<img src=Star/1x.gif>"
response.write"<img src=Star/z.gif>"
elseif rs("level")="二星级" then
response.write "<img src=Star/2x.gif>"	
elseif rs("level")="准二星级" then
response.write "<img src=Star/2x.gif>"
response.write"<img src=Star/z.gif>"
elseif rs("level")="三星级" then
response.write "<img src=Star/3x.gif>"	
elseif rs("level")="准三星级" then
response.write "<img src=Star/3x.gif>"
response.write"<img src=Star/z.gif>"
elseif rs("level")="四星级" then
response.write "<img src=Star/4x.gif>"	
elseif rs("level")="准四星级" then
response.write "<img src=Star/4x.gif>"
response.write"<img src=Star/z.gif>"
elseif rs("level")="五星级" then
response.write "<img src=Star/5x.gif>"	
elseif rs("level")="准五星级" then
response.write "<img src=Star/5x.gif>"
response.write"<img src=Star/z.gif>"
end if
%></TD>
                            </TR>
                          </TBODY>
                      </TABLE></TD>
                    </TR>
                    <TR>
                      <TD align=middle colSpan=2 height=21>
                        <TABLE width=100% border=0 align="center" cellPadding=0 cellSpacing=0>
                          <TBODY>
                            <TR align=middle>
                              <TD><div align="left"><a href="Hotel/Hotel_<%=rs("id")%>.html"><img src="images/b1.gif" border="0"></a></div></TD>
                              <TD><div align="right"><a href="#" onclick="Javascript:OpenSmallWindows('HotelRoomAll.asp?id=<%=rs("Id")%>')" ><img src="images/b2.gif" border="0"></a></div></TD>
                            </TR>
                          </TBODY>
                      </TABLE></TD>
                    </TR>
                  </TBODY>
                </TABLE></td>
</tr>
<tr>
<td height="2" colspan="4"></td>
</tr>
<%
rs.movenext                                                 
loop
rs.close
%>
</table>
<%
End Sub
'########################推荐酒店############
Sub Index_TopHotel()
%>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="189" height="20"> 城市</td>
<td width="475"> 酒店名称</td>
<td width="133"> 星级</td>
<td width="176"> 会员价</td>
</tr>
<%
sql="select top 12 * from Hotelb order by id desc"
Set rs=Server.CreateObject("ADODB.RecordSet") 
rs.open sql,conn
n=0
do while not rs.eof
c_id=rs("id")
set rsroom=server.createobject("adodb.recordset")
sqltext="select top 1 c_id,stageprice from roomb where c_id="&c_id&"" 
rsroom.open sqltext,conn
%>
<tr>
<td height="20">[<%=rs("city")%>]</td>
<td><font color="#666666">
<a href="Hotel/Hotel_<%=rs("id")%>.html">
<%if len(rs("c_name"))>9 then%>
<%=left(rs("c_name"),9)%>...
<%else%>
<%=rs("c_name")%>
<%end if%>
</a>
</font></td>
<td>
<%if rs("level")="无标准" then 
response.write "无标准"
elseif rs("level")="一星级" then
response.write "<img src=Star/1x.gif>"	
elseif rs("level")="准一星级" then
response.write "<img src=Star/1x.gif>"
response.write"<img src=Star/z.gif>"
elseif rs("level")="二星级" then
response.write "<img src=Star/2x.gif>"	
elseif rs("level")="准二星级" then
response.write "<img src=Star/2x.gif>"
response.write"<img src=Star/z.gif>"
elseif rs("level")="三星级" then
response.write "<img src=Star/3x.gif>"	
elseif rs("level")="准三星级" then
response.write "<img src=Star/3x.gif>"
response.write"<img src=Star/z.gif>"
elseif rs("level")="四星级" then
response.write "<img src=Star/4x.gif>"	
elseif rs("level")="准四星级" then
response.write "<img src=Star/4x.gif>"
response.write"<img src=Star/z.gif>"
elseif rs("level")="五星级" then
response.write "<img src=Star/5x.gif>"	
elseif rs("level")="准五星级" then
response.write "<img src=Star/5x.gif>"
response.write"<img src=Star/z.gif>"
end if
%>
</td>
<td>RMB <%=rsroom("stageprice")%></td>
</tr>
<tr>
  <td height="1" colspan="4" bgcolor="#CCCCCC"></td>
  </tr>
<%
rs.movenext                                                 
loop
rs.close
rsroom.close
%>
</table>
<%
End Sub
'#############################机票
Sub Index_JiPiao()
%>
<table width="100%" height="25" border="0" cellpadding="0" cellspacing="0" bgcolor="#F7F7F7">
<tr>
<td width="35%"><div align="center">航程</div></td>
<td width="34%"><div align="center">航段类型</div></td>
<td width="31%"><div align="center">实付价</div></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<%
set Rsf=server.createobject("adodb.recordset")
sqltext="select top 6 id,chufachenshi,mudichenshi,hdtype,shichanjia from dingbiao order by id DESC" 
Rsf.open sqltext,conn,1,1
if Rsf.eof then
response.write "<table><tr><td>暂时还没有任何票信息</td></tr></table>"
response.end
end if
if not Rsf.eof then
do while not Rsf.eof
%>
<tr bgcolor="#FFFFFF">
<td width="35%" height="21" align="center" bgcolor="#FFFFFF"><a href="Ticketinfo.asp?id=<%=Rsf("id")%>"><%=Rsf("chufachenshi")%>-<%=Rsf("mudichenshi")%></a></td>
<td width="34%" align="center" bgcolor="#FFFFFF"><%=Rsf("hdtype")%></td>
<td width="31%" align="center"><font color="Red">￥<%=Rsf("shichanjia")%></font></td>
</tr>
<tr bgcolor="#eeeeee">
  <td height="1" colspan="3" ></td>
  </tr>
<%
Rsf.movenext
Loop
End if
Rsf.close
%>
</table>
<%
End Sub
'#######################线路###
Sub Index_Xl()
%>
<table width="100%"  border="0" cellpadding="0" cellspacing="0">
<%
sql="select top 3 id,x_jingdiantupian,x_name,x_baojia,x_shijian,x_leixun from xianlu order by id DESC"
Set rs=Server.CreateObject("ADODB.RecordSet") 
rs.open sql,conn,1,1
n=0
do while not rs.eof 
%>
<tr><td width="34%" rowspan="4"><TABLE width=130 height="89" border=0 cellPadding=0 cellSpacing=0><TBODY>
<TR>
<TD width="122"><div align="center"><img src="admin/<%=rs("x_jingdiantupian")%>" width="122" height="86" border="0"></div></TD>
<TD width="10"><IMG src="images/mfk_97.gif" width="8" height="88"></TD>
</TR></TBODY></TABLE></td><td width="16%" height="18">线路名称：</td><td colspan="3"><font color="#006699">
<%if len(rs("x_name"))>13 then%>
<%=left(rs("x_name"),13)%>...
<%else%>
<%=rs("x_name")%>
<%end if%>
</font></td></tr><tr><td height="18">特惠价格：</td><td width="15%"><%=rs("x_baojia")%></td>
<td width="16%"> 所需时日： </td><td width="19%"><%=rs("x_shijian")%></td></tr><tr>
<td height="18"> 线路类型：</td><td height="18"><%=rs("x_leixun")%></td>
<td height="18">&nbsp;</td><td height="18">&nbsp;</td>
</tr><tr>
<td height="27" colspan="4"><table width="97%" height="22" border="0" cellpadding="0" cellspacing="0"><tr>
<td><div align="left"><a href="Xl/Xl_<%=rs("id")%>.html"><img src="images/9.png" width="67" height="21" border="0"></a></div></td>
<td><div align="right"><a href="giveme.asp?id=<%=rs("id")%>"><img src="images/10.png" width="67" height="21" border="0"></a></div></td>
</tr></table></td></tr><tr bgcolor="#CCCCCC"><td height="1" colspan="5"></td></tr>
<%
Rs.movenext
Loop
Rs.close
%>
</table>
<%
End Sub
'####################推荐线路####
Sub Index_TopXl()
%>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr><td width="821" height="20"> 名称</td><td width="152"> 会员价</td></tr>
<%
sql="select top 12 id,x_name,x_baojia from xianlu order by id desc"
Set rs=Server.CreateObject("ADODB.RecordSet") 
rs.open sql,conn,1,1
n=0
do while not rs.eof
%>
<tr><td height="20"><a href="Xl/Xl_<%=rs("id")%>.html">
<%if len(rs("x_name"))>19 then%>
<%=left(rs("x_name"),19)%>...
<%else%>
<%=rs("x_name")%>
<%end if%>
</a></td><td>
<font color="red">
<%=rs("x_baojia")%>
</font></td></tr><tr bgcolor="#cccccc"><td height="1" colspan="2"></td></tr>
<%
rs.movenext                                                 
loop
rs.close
%>
</table>
<%
End Sub
'#####################################图片信息#######
Sub index_pic() %>
<table width="100%" height="25"  border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#F7F7F7">
<tr><td width="59%"><div align="center">图片名称</div></td><td width="41%"><div align="center">图片类别</div></td></tr></table><table width="100%"  border="0" align="center" cellpadding="1" cellspacing="0" bordercolor="#000000">
<%
	topb="select top 6 id,name,leixing from pic"
	set vrs=conn.execute (topb)
	while not vrs.eof
	%><tr><td width="59%" height="21"><div align="center"><a href="pic_info.asp?id=<%=vrs("id")%>" target =_blank>
<%if len(vrs("name"))>9 then%>
<%=left(vrs("name"),9)%>...
<%else%>
<%=vrs("name")%>
<%end if%></a></div></td><td width="41%"><div align="center">
<%
set rs=server.createobject("adodb.recordset")
sql="select * from picboard where id ="&vrs("leixing")&""
rs.open sql, conn, 1, 1
if not rs.eof then
response.write "<center><font color=#006699>"&rs("board")&"</font></center>"
end if
rs.close
%>
</div></td></tr><tr bgcolor="#CACACA"><td height="1" colspan="2" valign="top" bgcolor="#E8E8E8"></td></tr>
<%
	vrs.movenext
	wend
	vrs.close
%></table>
<% End Sub
'##############################公告###########
Sub index_gonggao()
sql="select gonggao from config"
Set rs=Server.CreateObject("ADODB.RecordSet") 
rs.open sql,conn,1,1
if rs.eof then
response.write "暂时还没有任何公告!"
Else
response.write ""&rs("gonggao")&""
end if
rs.close
End Sub
%>