📄 wentinews.asp

📁 航空订票系统基于asp.net和sql2005包含数据库和图片
💻 ASP
字号:
<!--#include file="../global/inc/globalhome.inc.asp"-->
<!--#include file="../admin/inc_msnMan.dat"-->
<%
NewsId = Request.QueryString("NewsId")
NewsType = Request.QueryString("NewsType")
oConn_Start
on error resume next
sql = "select * from Sm_Content where NewsId = " & NewsId 
Set oRs = oConn.Execute(sql)
if Not oRs.Eof Then
	'oConn.Execute("Update Sm_Content set ClickStat=ClickStat+1 where NewsId = " & NewsId )
	Title = oRs("Title")
	Addtime = oRs("DateCreated")
	ClickStat = oRs("ClickStat")
	Content = oRs("Content")
End if
oRs.Close
Set oRs = Nothing

strInterTicket = GetInterTicket()
oConn_Close

strOut = strOut +  "<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.01 Transitional//EN"""& vbCrLf
strOut = strOut +  """http://www.w3.org/TR/html4/loose.dtd"">"& vbCrLf
strOut = strOut +  "<html>"& vbCrLf
strOut = strOut +  "<head>"& vbCrLf
strOut = strOut +  "<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">"& vbCrLf
strOut = strOut +  "<title>"&Title&"|上海神马航空票务中心</title>"& vbCrLf
strOut = strOut +  "<link href=""../style.css"" rel=""stylesheet"" type=""text/css"">"& vbCrLf
strOut = strOut +  "<style type=""text/css"">"& vbCrLf
strOut = strOut +  "<!--"& vbCrLf
strOut = strOut +  ".style1 {"& vbCrLf
strOut = strOut +  "	font-size: 16px;"& vbCrLf
strOut = strOut +  "	font-weight: bold;"& vbCrLf
strOut = strOut +  "	color: #000000;"& vbCrLf
strOut = strOut +  "}"& vbCrLf
strOut = strOut +  ".style4 {"& vbCrLf
strOut = strOut +  "	color: #0066CC;"& vbCrLf
strOut = strOut +  "	font-size: 18px;"& vbCrLf
strOut = strOut +  "	font-weight: bold;"& vbCrLf
strOut = strOut +  "}"& vbCrLf
strOut = strOut +  "-->"& vbCrLf
strOut = strOut +  "</style>"& vbCrLf
strOut = strOut +  "</head>"& vbCrLf
strOut = strOut +  "<body>"& vbCrLf
strOut = strOut +  GetWebTop("3")

strOut = strOut +  "<table width=""780"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">"& vbCrLf
strOut = strOut +  "  <tr>"& vbCrLf
strOut = strOut +  "    "& vbCrLf
strOut = strOut +  "    <td valign=""top"" width=""600"">"& vbCrLf
strOut = strOut +  "      <table width=""600"" border=""0"" cellspacing=""0"" cellpadding=""0"">        "& vbCrLf
strOut = strOut +  "        <tr>"& vbCrLf
strOut = strOut +  "          <td><img src="""&strSite&"images/5.gif"" width=""1"" height=""5""></td>"& vbCrLf
strOut = strOut +  "        </tr>"& vbCrLf
strOut = strOut +  "        <tr>"& vbCrLf
strOut = strOut +  "          <td class=""orgborder""><table width=""100%"" height=""355"" border=""0"" cellpadding=""0"" cellspacing=""0"">"& vbCrLf
strOut = strOut +  "              <tr>"& vbCrLf
strOut = strOut +  "                <td valign=""top""><table width=""99%"" align=""center"" cellpadding=""5"" cellspacing=""2"">"& vbCrLf
strOut = strOut +  "                    <tr>"& vbCrLf
strOut = strOut +  "                      <td width=""660""><div align=""center"" class=""style4"">"&Title&"<hr width=""550"">"& vbCrLf
strOut = strOut +  "					  </div>"& vbCrLf
strOut = strOut +  "                      <div align=""center""><a href=""http://"&WebSite&""">http://"&WebSite&"</a>  时间："&Addtime&" </div></td>"& vbCrLf
strOut = strOut +  "                    </tr>"& vbCrLf
strOut = strOut +  "                     <tr>"& vbCrLf
strOut = strOut +  "                      <td><p> "&Content&" </p></td>"& vbCrLf
strOut = strOut +  "                    </tr>"& vbCrLf
strOut = strOut +  "					<tr>"& vbCrLf
strOut = strOut +  "                       <td><div align=""right""> 阅读次数：<script src="""&strSite&"html/DisplayHitNum.asp?NewsId="&NewsId&""" language=""javascript""></script>&nbsp;&nbsp;&nbsp;</div></td>"& vbCrLf
strOut = strOut +  "                    </tr>"& vbCrLf
strOut = strOut +  "                     <tr>"& vbCrLf
strOut = strOut +  "                       <td><div align=""right""><a href="""&strSite&"html/gongao.asp?NewsType="&NewsType&"""><img src="""&strSite&"images/tree.gif"" width=""65"" height=""22"" border=""0""></a>&nbsp;&nbsp;&nbsp;&nbsp;</div></td>"& vbCrLf
strOut = strOut +  "                     </tr>"& vbCrLf
strOut = strOut +  "                </table></td>"& vbCrLf
strOut = strOut +  "              </tr>"& vbCrLf
strOut = strOut +  "              <tr>"& vbCrLf
strOut = strOut +  "                <td><img src="""&strSite&"images/5.gif"" width=""1"" height=""5""></td>"& vbCrLf
strOut = strOut +  "              </tr>"& vbCrLf
strOut = strOut +  "          </table></td>"& vbCrLf
strOut = strOut +  "        </tr>"& vbCrLf
strOut = strOut +  "    </table></td>"& vbCrLf
strOut = strOut +  "  <td valign=""top"" width=""180""><table cellpadding=""3"">"& vbCrLf
strOut = strOut +  "    <tr><td>"& vbCrLf
strOut = strOut +  "  <table width=""168"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"" class=""greyborder"">"& vbCrLf
strOut = strOut +  "        <tr>"& vbCrLf
strOut = strOut +  "          <td height=""25"" background="""&strSite&"images/grey_bk.gif"">&nbsp;&nbsp;<strong>上海国际机票特别推荐</strong></td>"& vbCrLf
strOut = strOut +  "        </tr>"& vbCrLf
strOut = strOut +  "        <tr>"& vbCrLf
strOut = strOut +  "          <td>"&strInterTicket&"</td>"& vbCrLf
strOut = strOut +  "        </tr>"& vbCrLf
strOut = strOut +  "      </table>"& vbCrLf
strOut = strOut +  "  </td></tr></table></td>"& vbCrLf
strOut = strOut +  "	"& vbCrLf
strOut = strOut +  "  </tr>"& vbCrLf
strOut = strOut +  "  <tr>"& vbCrLf
strOut = strOut +  "    <td valign=""top"">&nbsp;</td>"& vbCrLf
strOut = strOut +  "  </tr>"& vbCrLf
strOut = strOut +  "  <tr>"& vbCrLf
strOut = strOut +  "    <td valign=""top"" colspan=""2"">&nbsp;</td>"& vbCrLf
strOut = strOut +  "  </tr>"& vbCrLf
strOut = strOut +  "</table>"& vbCrLf
strOut = strOut + GetWebBottom()
strOut = strOut +  "</body></html>"
Response.Write(strOut)
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -