📄 shownews.asp
字号:
<!-- 杭州网络公司,网站建设,网站建设公司,网站设计,网页设计,精美网页设计,杭州虚拟主机,杭州网页设计,中英文网页设计,企业网站建设,主机域名,主机托管,域名注册与网站推广,免费网页设计,免费网页设计网站建设,免费网页设计虚拟主机,高速虚拟主机与大型网站建设,网站推广网页设计网站建设,杭州专业网站建设,专业网站建设制作主页,网站制作,网站策划,企业网站策划,大型网站建设,
杭州新创网络科技有限公司网站建设公司为您提供网站建设、高速虚拟主机、主机域名注册、网页设计,杭州企业网站建设等服务。
-->
<html>
<head>
<title>杭州网站建设|杭州网络公司【新创科技】企业上网首选品牌 0571-56852888</title>
<meta name="description" content="【新创科技】致力于成为中国企业IT应用服务的领导品牌,帮助中国企业将他们的梦想延伸到世界各地；【新创科技】为近万家企业客户提供全方位、标准化、一站式的IT应用服务及电子商务解决方案，赢得了业界的广泛认同和客户信赖！TEL:0571-56852888 总机 转">
<meta name="keywords" content="浙江,杭州网站建设,杭州网络公司,网页设计,专业网站建设,网站优化、Google排名、FLASH设计、网站托管,维护,杭州网站制作,网页设计,网站推广,浙江网站建设,行业门户网开发,网站建设成功案例,域名注册,虚拟主机,海外推广,空间租用,google左侧优化,yahoo排名,通用网址,电子名片,企业邮局,空间租用,程序开发,电子商务,网络营销,行业网站建设,门户网站建设,网络顾问,google推广,杭州新创网络科技公司">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="25175_34.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style2 {color: #999999}
.style3 { color: #DED2B8;
line-height: 16px;
border-top-width: 0px;
border-right-width: 0px;
border-bottom-width: 0px;
border-left-width: 0px;
border-top-style: solid;
border-right-style: solid;
border-bottom-style: solid;
border-left-style: solid;
}
.style7 {
color: #DED2B8;
line-height: 20px;
border-top-width: 0px;
border-right-width: 0px;
border-bottom-width: 1px;
border-left-width: 0px;
border-top-style: solid;
border-right-style: solid;
border-bottom-style: solid;
border-left-style: solid;
border-bottom-color: #4E4A3F;
}
body,td,th {
color: #FFFFFF;
}
a:link {
color: #FFFFFF;
text-decoration: none;
}
a:visited {
text-decoration: none;
color: #FFFFFF;
}
a:hover {
text-decoration: underline;
color: #FFFFFF;
}
a:active {
text-decoration: none;
color: #FFFFFF;
}
-->
</style>
<!--#include file="function/dbconn.asp"-->
<%
Dim objRec
Dim strSQL
Dim tid
Dim p_Title
Dim p_Content
Dim p_Date
Dim p_Hits
Dim p_From
Dim TmpUrl
tid=Request.QueryString("newID")
TypeID = Request.QueryString("TypeID")
If IsNumeric(tid) Then
tid=Clng(tid)
Set objRec = Conn.Execute("select * from News Where tid=" & tid)
With objRec
If .Eof And .Bof Then
Else
Dim TmpTitle
p_id = .Fields("TypeID").Value
p_Title = .Fields("p_Title").Value
p_Content = .Fields("p_Content").Value
p_Date = .Fields("p_Date").Value
p_Hits = .Fields("p_Hits").Value
p_From = .Fields("copyfrom").Value
If CStr(.Fields("TypeID"))="1" Then
TmpTitle = "--><a href=more.asp?TypeID=" & .Fields("TypeID") & ">新闻动态</a>-->"
Else
TmpTitle = "--><a href=more.asp?TypeID=" & .Fields("TypeID") & ">公司新闻</a>-->"
End If
p_Title = TmpTitle & p_Title
If p_From="" Then p_From = "新创科技"
Conn.Execute "UpDate News Set p_Hits=p_Hits+1 Where tid=" & .Fields("tid").Value
End if
End With
Else
p_Content = "你访问的信息不存在."
End if
Call ConnClose
%>
</head>
<body bgcolor="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<!-- ImageReady Slices (t1.psd) -->
<table width="996" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><!--#include file="top.asp" --></td>
</tr>
<tr>
<td><table width="996" border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign="top"><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="747" height="335">
<param name="movie" value="pt_.swf">
<param name="quality" value="high">
<embed src="pt_.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="747" height="335"></embed>
</object></td>
<td valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="236"><!--#include file="menu_1.asp" --></td>
</tr>
</table></td>
<td valign="top" bgcolor="#000000"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="71"> </td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td> </td>
</tr>
</table></td>
</tr>
<tr>
<td colspan="2"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="25" bgcolor="#000000"> </td>
<td width="191" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="1"><div align="center"></div></td>
</tr>
<tr>
<td><!--#include file="menu_left.asp" --></td>
</tr>
</table></td>
<td width="30" valign="top" bgcolor="#000000"> </td>
<td align="left" valign="top" style="line-height:150%;padding:5 5 5 5;color:#ffffff; text-justify : distribute;text-align:justify; '"><%=p_Content%> </td>
</tr>
<tr bgcolor="#717171">
<td colspan="5"><div align="center">
<table width="216" border="0" align="left" cellpadding="0" cellspacing="0">
<tr>
<td bgcolor="#000000"><div align="center"></div></td>
</tr>
</table>
</div></td>
</tr>
</table></td>
<td bgcolor="#000000"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="46"><div align="center"><br>
<br>
</div></td>
</tr>
<tr>
<td><div align="left"><img src="images/nex_28.jpg" width="12" height="71" alt=""></div></td>
</tr>
<tr>
<td><div align="center"></div></td>
</tr>
</table></td>
</tr>
<tr>
<td colspan="3"><!--#include file="bottom.asp" --></td>
</tr>
</table></td>
</tr>
</table>
<!-- End ImageReady Slices -->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -