?? shownews.asp
字號:
<!--#include file="../include/connstr.asp"-->
<!--#include file="../include/DefFunction.asp"-->
<% conn.execute("update tNews set Hits=Hits+1 where ID="&request("ID"))
set rs=conn.execute("select * from tNews where ID="&request("ID"))
if rs.bof or rs.eof then
response.write "<script>alert('讀取數據庫時出錯，請與管理員聯系！');history.back();</script>"
response.end
end if
%>
<HTML>
<script src='../include/jchar.js'></script>
<HEAD>
<TITLE>新聞動態</TITLE>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<style type="text/css">
<!--
body {
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
}
-->
</style>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_jumpMenu(targ,selObj,restore){ //v3.0
eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
if (restore) selObj.selectedIndex=0;
}
//-->
</script>
<link href="../include/mycss.css" rel="stylesheet" type="text/css">
</HEAD>
<BODY BGCOLOR=#FFFFFF>
<table width="743" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="307"><IMG SRC="Images/top_1.jpg" WIDTH=307 HEIGHT=123 ALT=""></td>
<td width="352"><table width="85%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><IMG SRC="../images/1_2.jpg" WIDTH=379 HEIGHT=33 ALT=""></td>
</tr>
<tr>
<td align="center" bgcolor="#F7F3F7">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="3%"><img src="../images/1_4.jpg" width=10 height=42 alt=""></td>
<td width="97%" align="center" valign="middle"><%=rs("Title")%></td>
</tr>
</table></td>
</tr>
<tr>
<td valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="3%" rowspan="2"><img src="../images/1_5.jpg" width=12 height=48 alt=""></td>
<td colspan="3" background="../images/1_5.jpg"> </td>
</tr>
<tr>
<td valign="top" class="font1">發布時間：<%=rs("AddTime")%></td>
<td valign="top" class="font1">來自：
<%if rs("FromSite")="" then response.write "---" else response.write rs("FromSite")%></td>
<td width="12%"> </td>
</tr>
</table></td>
</tr>
</table></td>
<td width="84"><IMG SRC="../images/1_3.jpg" WIDTH=57 HEIGHT=123 ALT=""></td>
</tr>
</table>
<table width="743" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="18" rowspan="3" background="../images/1_6.jpg"><IMG SRC="../images/1_6.jpg" WIDTH=18 HEIGHT=47 ALT=""></td>
<td width="181" rowspan="3" valign="top"><br>
<br>
<br>
<table width="94%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="579" valign="top" class="zhengwen"><table width="98%" border="0" cellspacing="1" cellpadding="3">
<%
'----------------------------
PERPAGE =9
PageNo=request("PageNo")
set rs=server.createobject("ADODB.recordset")
sql="select * from tNews where ClassID='News_Company' or ClassID='News_Trend' order by AddTime desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "暫時沒有數據!"
else
rs.pagesize = PERPAGE
if isempty(PageNo) or cstr(PageNo)<"1" then PageNo = 1
CurPage=PageNo
if int(PageNo)>=int(rs.pagecount) then CurPage=cint(rs.pagecount)
rs.absolutepage = CurPage
%>
<tr align="center">
<td width="53%" height="23" bgcolor="#CEE3B5">文章標題</td>
</tr>
<% for i = 1 to rs.pagesize %>
<td height="20" align="center"><a href="javascript:newWindow('/News/ShowNews.asp?ID=<%=rs("ID")%>','new','763','583','')">
<%if len(rs("Title"))>10 then response.write left(rs("Title"),10)&"..." else response.write rs("Title")%>
</a></td>
</tr>
<% rs.movenext
if rs.eof then
i = i + 1
exit for
end if
next %>
</table>
<table width="98%" height="38" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="8"></td>
</tr>
<tr>
<td height="1" bgcolor="#CCCCCC"></td>
</tr>
<tr>
<td class="font1"> 頁次：<b><%=CurPage%></b>/<b><%=rs.pagecount %></b>頁 共<b><%=rs.recordcount %></b>條記錄 </td>
</tr>
<tr>
<td class="font1"><%if CurPage = 1 then
response.write " 首頁 | 上一頁 | "
else
response.write "<a href='?PageNo=1&T_key="&request("T_key")&"&ID="&request("ID")&"'><b> 首頁 </b></a> | <a href='?PageNo="&CurPage-1&"&T_key="&request("T_key")&"&ID="&request("ID")&"'><b>上一頁</b></a>| "
end if
if CurPage = rs.pagecount then
response.write "后一頁 | 尾頁 "
else
response.write "<a href='?PageNo="&CurPage+1&"&T_key="&request("T_key")&"&ID="&request("ID")&"'><b>后一頁</b> </a>| <a href='?PageNo="&rs.pagecount&"&T_key="&request("T_key")&"&ID="&request("ID")&"'><b>尾頁</b> </a>"
end if
%>
跳轉到：
<select name="menu1" onChange="MM_jumpMenu('parent',this,0)">
<% for i=1 to rs.pagecount
if CurPage=i then
response.write "<option value='?PageNo="&i&"&T_key="&request("T_key")&"&ID="&request("ID")&"' selected>第"&i&"頁"
else
response.write "<option value='?PageNo="&i&"&T_key="&request("T_key")&"&ID="&request("ID")&"'>第"&i&"頁"
end if
next
%>
</select></td>
</tr>
<%end if%>
</table></td>
</tr>
</table></td>
<td width="90" background="../images/1_82.jpg"><img src="../images/1_81.jpg" width="90" height="93"></td>
<td rowspan="3" align="center" valign="top"><IFRAME name=aaaaa src="Content.asp?ID=<%=request("ID")%>" frameBorder=0 width=420 scrolling=yes height=390></IFRAME></td>
<td width="25" rowspan="3" background="../images/1_10.jpg"><IMG SRC="../images/1_10.jpg" WIDTH=25 HEIGHT=33 ALT=""></td>
</tr>
<tr>
<td background="../images/1_82.jpg"><img src="../images/1_82.jpg" width="90" height="222"></td>
</tr>
<tr>
<td background="../images/1_82.jpg"><img src="../images/1_81.jpg" width="90" height="93"></td>
</tr>
</table>
<table width="743" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><IMG SRC="../images/1_11.jpg" WIDTH=743 HEIGHT=52 ALT=""></td>
</tr>
</table>
<!-- ImageReady Slices (企業文化.psd) -->
<!-- End ImageReady Slices -->
</BODY>
</HTML>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -