📄 wenti.asp
字号:
<!--#include file="../global/inc/global.inc.asp"-->
<%
Function GetTopNews(ClassId,topNum)
strTempSql = "Select top "&topNum&" NewsId,ClassId,Title,DateCreated,NewsType From Sm_Content Where ClassId="&ClassId&" And ValidFlag=1 Order by NewsId Desc"
Set tempRs = oConn.Execute(strTempSql)
strtempNews = strtempNews + "<table width=""96%"" border=""0"" cellspacing=""2"" cellpadding=""2"" align=center>"& vbCrLf
if tempRs.Eof Then
strtempNews = strtempNews + " <tr>"& vbCrLf
strtempNews = strtempNews + " <td height=""25"" align=""left"">还没有相关的信息</td>"
strtempNews = strtempNews + " </tr>"& vbCrLf
Else
While Not tempRs.Eof
strtempNews = strtempNews + " <tr>"& vbCrLf
strtempNews = strtempNews + " <td height=""20"" align=""left""><img src=""../images/q.gif"" width=""15"" height=""15""> "
strtempNews = strtempNews + "<a href='../kgNews/"&tempRs("NewsId")&".htm' target=_blank>"&tempRs("Title")&"</a></td>"& vbCrLf
strtempNews = strtempNews + " </tr>"& vbCrLf
tempRs.MoveNext
Wend
End If
tempRs.Close
Set tempRs = Nothing
strtempNews = strtempNews + " </table>"& vbCrLf
GetTopNews = strtempNews
End Function
oConn_Start
strInterTicket = GetInterTicket()
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>特价机票-上海神马航空特价打折飞国际机票票价查询票务中心021-51099919</title>
<link href="../style.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style4 {
font-size: 18px;
font-weight: bold;
}
-->
</style>
</head>
<body>
<%=GetWebTop(1)%>
<table width="780" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td valign="top" width="180"> <table cellpadding="3">
<tr>
<td>
<table width="170" border="0" cellspacing="0" cellpadding="0">
<tr><td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="25" background="../images/nt04.gif"> </td>
</tr>
<tr>
<td><a href="http://www.shasm.com/kgNews/120.htm" target="_blank"><img src="../images/waid.gif" width="170" height="74" border="0"></a></td>
</tr>
</table>
<tr><td height="3"><img src="../images/5.gif" width="1" height="3"></td></tr>
</td>
</tr>
<tr>
<td class="orgborder9"><table width="168" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="25" bgcolor="#DBDBDB"> <strong>上海热门国际机票搜索</strong></td>
</tr>
<tr>
<td><%=strInterTicket%></td>
</tr>
</table></td>
</tr>
<tr>
<td><img src="images/5.gif" width="1" height="5"></td>
</tr>
</table></td>
</tr>
</table></td>
<td valign="top" width="600">
<table width="600" border="0" cellspacing="0" cellpadding="5">
<tr>
<td valign="top" ><table width="100%" border="0" cellspacing="0" cellpadding="4">
<%
strSql = "Select * From Sm_Class Where ClassType=6 And FatherId=0"
Set oRs = oConn.Execute(strSql)
While Not oRs.Eof
%>
<tr>
<%
for inti=0 to 1
if oRs.Eof then exit for
%>
<td width="295" valign="top" class="orgborder">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="25" background="../images/org_bk.gif" align="left"> <img src="../images/arrow.gif" width="13" height="9"> <strong class="tw"><%=oRs("ClassName")%></strong></td>
</tr>
<tr>
<td><%=GetTopNews(oRs("ClassId"),5)%></td>
</tr>
<tr>
<td align="right"><a href="gongao.asp?NewsType=<%=oRs("ClassType")%>&ClassId=<%=oRs("ClassId")%>">更多 <img src="../images/duo.gif" width="21" height="13"></a></td>
</tr>
<tr>
<td><img src="images/5.gif" width="1" height="5"></td>
</tr>
</table></td>
<%
if inti=0 then Response.Write("<td width=""5""> </td>")
oRs.MoveNext
next
%>
</tr>
<%
Wend
oRs.Close
Set oRs = Nothing
%>
</table></td>
</tr>
</table></td>
</tr>
<tr>
<td valign="top"> </td>
</tr>
<tr>
<td valign="top" colspan="2"></td>
</tr>
</table>
<div align=center>
<!--#include file="../include/bottom.asp"-->
</body>
</html>
<%oConn_Close%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -