(太麻烦)大题二：给网站添加文章评论模块-jiazehua - ASP技术论坛

第 2 楼

得分:0

模板文件PART 1

程序代码：

<!--#include file = "inc/conn.asp"-->
<%
Dim getID
    getID=request("ID")
    if not isnumeric(getID) then
        response.Write("<script>alert('操作有误');location.href='/index.html';</script>")
        response.End()
    end if
   
    set rs=conn.execute("select * from DB_Hotel where ID="&getID&" and Is_Show=True")
    if rs.bof and rs.eof then
        response.write "数据无效"
        getID=0
    else
        HotelName=rs("HotelName")
        EnHotelName=rs("EnHotelName")
        Star=rs("Star")
            if Star="五星级" then
                S=5
            elseif Star="四星级" then
                S=4
            elseif Star="三星级" then
                S=3
            elseif Star="二星级" then
                S=2
            end if
        Position=rs("Position")
        Hotel_Pic=rs("Hotel_Pic")
        Content=rs("Content")
        Info_Jbxx=rs("Info_Jbxx")
        Info_Fjss=rs("Info_Fjss")
        Info_Hyss=rs("Info_Hyss")
        Info_Cyss=rs("Info_Cyss")
        Info_Ylss=rs("Info_Ylss")
        Info_Dlwz=rs("Info_Dlwz")
        Info_Ccxl=rs("Info_Ccxl")
        Info_Gyjz=rs("Info_Gyjz")
        Info_Tbtx=rs("Info_Tbtx")
        Hotel_Map=rs("Hotel_Map")
        Map_Url=rs("Map_Url")
        FileName=rs("FileName")
        Title=rs("Title")
        Keywords=rs("Keywords")
        txtDescription=rs("Description")
    end if
    rs.close
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.>
<html xmlns="http://www.>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<link href="/css/style.css" rel="stylesheet" type="text/css" />
<title><%=Title%></title>
<meta name="keywords" content="<%=Keywords%>" />
<meta name="description" content="<%=txtDescription%>" />
<link rel="icon" href="/favicon.ico" type="image/x-icon" />
<link rel="shortcut icon" href="/favicon.ico" type="image/x-icon" />
<script type="text/javascript" src="/Hotel_hits.asp?ID=<%=getID%>"></script>
<script language="javascript" src="/js/msclass.js"></script>
</head>

<body>
<center>
<!--#include file="top.asp"-->
<table width="980" height="24" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td style="text-align:left; color:#000000;">当前位置：<a href="/">首页</a>&gt;&gt;<%=HotelName%> <font color="#FF6633"><b></b></font></td>
  </tr>
</table>
<table width="980" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td width="750" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0" style="margin-bottom:10px;">
     
      <tr>
        <td height="317" align="left" valign="top" class="Hotel_Content"><table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td width="45%" height="24" align="left" style="color:#FF3300"><h4>酒店名称：<%=HotelName%></h4></td>
            <td width="32%" align="left"><span class="hotel">酒店星级：</span><%for i=1 to s%><img src="/images/star.gif" width="9" height="8" /><%next%>(<%=Star%>)</td>
            <td width="23%" rowspan="4" align="center">
            <table width="150" height="120" border="0" cellpadding="2" cellspacing="2" style="border:#dddddd 1px solid;">
              <tr bgcolor="#FFFFFF">
                <td align="center"><img src="/<%=Hotel_Pic%>" alt="<%=HotelName%>" width="150" height="120" /></td>
              </tr>
            </table>            </td>
          </tr>
          <tr>
            <td height="24" align="left"><span class="hotel">英文名称：</span><a href="/dalianjiudian/<%=FileName%>" title="<%=EnHotelName%>"><font color="#FF6600"><%=EnHotelName%></font></a></td>
            <td align="left" class="hotel">预订电话1：0411-88888888</td>
            </tr>
          <tr>
            <td height="24" align="left" class="hotel">酒店地址：<%=Position%></td>
            <td align="left"><span class="hotel">预订电话2：0411-88888888</span></td>
            </tr>
          <tr>
            <td height="24" align="left" class="hotel">酒店介绍：</td>
            <td align="left">&nbsp;</td>
            </tr>
          <tr>
            <td height="24" colspan="3" align="left" style="line-height:150%; border-bottom:#FF6600 1px dashed; padding-bottom:5px;"><%=changeCHR(Content)%></td>
            </tr>
        </table>
        <table width="100%" height="100" border="0" cellpadding="0" cellspacing="0" style="border-bottom:#FF6600 1px dashed;">
          <tr>
            <td align="left">
            <div id="marqueediv" style="width:730px;height:85px;">
            <table width="100%" border="0" cellspacing="0" cellpadding="0">
                <tr>
                <%
                set rs=conn.execute("select Name,Pic from DB_HotelPic where Hotel_ID="&getID&" order by SortIndex,ID Desc")
                if rs.bof and rs.eof then
                    response.write "暂无酒店相关图片"
                else
                    do while not rs.eof
                %>
                <td align="left">
                <table width="124" border="0" cellspacing="0" cellpadding="0">
                  <tr>
                    <td height="85"><a href="/<%=rs("Pic")%>" target="_blank"><img src="/<%=rs("Pic")%>" alt="<%=rs("Name")%>" width="120" height="85" border="0" /></a></td>
                  </tr>
                </table>
                </td>
                <%
                    rs.movenext
                    loop
                end if
                rs.close
                %>
                </tr>
            </table>
            </div>
<script defer>
    var marquee1=new Marquee("marqueediv");
    marquee1.Direction = "left"
    marquee1.Step = 1;
    marquee1.Width = 730;
    marquee1.Height = 85;
    marquee1.Timer = 50;
    marquee1.DelayTime = 0;
    marquee1.WaitTime =0;
    marquee1.Start();
</script>
            </td>
          </tr>
        </table>
        <table width="100%" height="30" border="0" cellpadding="0" cellspacing="0">
          <tr>
            <td style="text-align:left; font-weight:bold; color:#CC3300">温馨提示：您可以直接点击预定或者致电0411-88888888由我们的预定专员为您提供预定服务。</td>
          </tr>
        </table>

巫术时代-个人博客-[url]www.[/url]

<table width="100%" height="40" border="0" cellpadding="0" cellspacing="1"> <tr bgcolor="#FFA800"> <td width="25%" rowspan="2" class="hotel_1">房间类型</td> <td width="12%" rowspan="2" class="hotel_1">前台价格</td> <td colspan="2" bgcolor="#FF6600" class="hotel_1">网络价格</td> <td width="12%" rowspan="2" class="hotel_1">早餐情况</td> <td width="18%" rowspan="2" class="hotel_1">备注</td> <td width="9%" rowspan="2" class="hotel_1">预订</td> </tr> <tr bgcolor="#FFA800"> <td width="12%" bgcolor="#FF6600" class="hotel_1">今日价格</td> <td width="12%" bgcolor="#FF6600" class="hotel_1">周末价格</td> </tr> </table> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <% set rs=conn.execute("select ID,Name,Price_Front,Price_Net_N,Price_Net_W,Breakfast,Room_Note from DB_HotelRoom where Hotel_ID="&getID&" and Is_Show=True order by Price_Net_W,ID Desc") if rs.bof and rs.eof then response.write "暂无酒店房间数据" else i=0 do while not rs.eof i=i+1 if (i mod 2)=0 then txtcolor="#FFF1D9" else txtcolor="#FFFFFF" %> <tr bgcolor="<%=txtcolor%>" onMouseOver="javaScript:this.bgColor='#FFDEA2';" onMouseOut="javaScript:this.bgColor='<%=txtcolor%>';"> <td width="25%" height="26" style="text-align:left; padding-left:5px;"><%=rs("Name")%></td> <td width="12%" align="center"><b><s>￥<%=rs("Price_Front")%></s></b></td> <td width="12%" align="center" style="color:#FF6600;"><b>￥<%=rs("Price_Net_N")%></b></td> <td width="12%" align="center" style="color:#FF6600;"><b>￥<%=rs("Price_Net_W")%></b></td> <td width="12%" align="center"><%=cutstring(rs("Breakfast"),12)%></td> <td width="18%" align="center"><%=cutstring(rs("Room_Note"),20)%></td> <td width="9%" align="center"><form name="B<%=rs("ID")%>" method="post" action="/hotel-booking.asp"><input type="hidden" name="Hotel_ID" value="<%=getID%>" /><input type="hidden" name="Room_ID" value="<%=rs("ID")%>" /><input type="image" src="/images/yuding.gif" name="Submit" alt="预订<%=HotelName%>" onClick="javascript:B<%=rs("ID")%>.submit();" /></form></td> </tr> <% rs.movenext loop end if rs.close %> </table> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td height="2" bgcolor="#FFA800"></td> </tr> </table> <script type="text/javascript" src="/js/tbtx.asp"></script> <table width="100%" border="0" cellspacing="0" cellpadding="0" style="margin-bottom:10px;"> <%if Info_Jbxx<>"" then%> <tr> <td width="9%" nowrap="nowrap" class="hotel_2">基本信息：</td> <td width="91%" class="hotel_3"> <%=changeCHR(Info_Jbxx)%></td> </tr> <%end if%> <%if Info_Fjss<>"" then%> <tr> <td nowrap="nowrap" class="hotel_2">房间设施：</td> <td class="hotel_3"><%=changeCHR(Info_Fjss)%></td> </tr> <%end if%> <%if Info_Cyss<>"" then%> <tr> <td nowrap="nowrap" class="hotel_2">餐饮设施：</td> <td class="hotel_3"><%=changeCHR(Info_Cyss)%></td> </tr> <%end if%> <%if Info_Ylss<>"" then%> <tr> <td nowrap="nowrap" class="hotel_2">娱乐设施：</td> <td class="hotel_3"><%=changeCHR(Info_Ylss)%></td> </tr> <%end if%> <%if Info_Hyss<>"" then%> <tr> <td nowrap="nowrap" class="hotel_2">会议设施：</td> <td class="hotel_3"><%=changeCHR(Info_Hyss)%></td> </tr> <%end if%> <%if Info_Dlwz<>"" then%> <tr> <td nowrap="nowrap" class="hotel_2">地理位置：</td> <td class="hotel_3"><%=changeCHR(Info_Dlwz)%></td> </tr> <%end if%> <%if Info_Ccxl<>"" then%> <tr> <td nowrap="nowrap" class="hotel_2">乘车线路：</td> <td class="hotel_3"><%=changeCHR(Info_Ccxl)%></td> </tr> <%end if%> <%if Info_Gyjz<>"" then%> <tr> <td nowrap="nowrap" class="hotel_2">关于结帐：</td> <td class="hotel_3"><%=changeCHR(Info_Gyjz)%></td> </tr> <%end if%> <%if Hotel_Map<>"" then%> <tr> <td nowrap="nowrap" class="hotel_2">电子地图：</td> <td align="left" style="padding:0 3px 5px 3px;"><a href="<%=Map_Url%>" target="_blank"><img src="/<%=Hotel_Map%>" alt="点击放大查看<%=HotelName%>的详细位置及公交线路" border="0"/></a></td> </tr> <%end if%> <%if Info_Tbtx<>"" then%> <tr> <td height="24" colspan="2" class="hotel_4"><%=changeCHR(Info_Tbtx)%></td> </tr> <%end if%> </table> <table width="100%" border="0" cellspacing="0" cellpadding="0" style="border:#FF7E00 1px dashed;"> <tr> <td width="50%" height="22" style="padding-left:5px;"> </td> <td width="50%"> </td> </tr> </table> </td> </tr> </table> </td> <td width="10"> </td> <td width="220" valign="top">     </td> </tr> </table>  </center> </body> </html>