?? show_article.asp
字號:
<!--#include file="info.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="unhtml.asp"-->
<!--#include file="ubb.asp"-->
<html>
<%
sql="select * from article where id="&clng(request("id"))
rs.open sql,conn,1,1
set rs1=server.createobject("adodb.recordset")
sql1="update article set click="&rs("click")+1&" where id="&clng(request("id"))
rs1.open sql1,conn,1,1
%>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="css.css" type="text/css">
<title><%=unHtml(rs("title"))%> - <%=webname%></title>
</head>
<body>
<!--#include file="top.asp"-->
<div align="center">
<table border="0" width="760" cellspacing="0" cellpadding="0" id="table1" height="206">
<tr>
<td style="border-left: 1px solid #0086DF; border-right: 1px solid #0086DF" width="760" valign="top">
<div align="center">
<table border="0" width="99%" cellspacing="0" cellpadding="0" id="table2" height="205">
<tr>
<td width="206" valign="top" align="center">
<table border="0" width="87%" cellspacing="0" cellpadding="0" id="table3">
<tr>
<td height="36" style="border-top:1px solid #D4D4D4; border-left:1px solid #D4D4D4; border-right:1px solid #D4D4D4; border-bottom-width: 1px">
<img border="0" src="images/article.gif" width="192" height="41"></td>
</tr>
<tr>
<td height="36" style="border-left: 1px solid #D4D4D4; border-right: 1px solid #D4D4D4; border-top-width: 1px; border-bottom-width: 1px">
<table border="0" width="95%" cellspacing="0" cellpadding="0" height="25" id="table11">
<form method="POST" action="search_article.asp" TARGET="_blank">
<tr>
<td height="30">
<p align="left">
<select size="1" name="class">
<option value="0" selected>請選擇文章類別</option>
<option value="1">新聞動態</option>
<option value="2">求職技巧</option>
</select></td>
</tr>
<tr>
<td height="30">
<p align="left">
<select size="1" name="how">
<option selected value="1">按文章標題
</option>
<option value="2">按文章內容</option>
</select></td>
</tr>
<tr>
<td height="30">
<input onfocus="this.value=''" type="text" name="what" size="20" style="border-style: solid; border-width: 1px" value="關鍵字"></td>
</tr>
<tr>
<td height="30">
<p align="center">
<input border="0" src="images/s2.gif" name="I1" width="53" height="20" type="image"></td>
</tr>
</form>
</table>
</td>
</tr>
<tr>
<td height="36" style="border-top:1px solid #D4D4D4; border-left:1px solid #D4D4D4; border-right:1px solid #D4D4D4; ">
<img border="0" src="images/article2.gif" width="192" height="41"></td>
</tr>
<tr>
<td height="36" style="border-left:1px solid #D4D4D4; border-right:1px solid #D4D4D4">
<img border="0" src="images/article4.gif" width="192" height="70"></td>
</tr>
<tr>
<td height="36" style="border-bottom:1px solid #D4D4D4; border-left:1px solid #D4D4D4; border-right:1px solid #D4D4D4; border-top-width: 1px; " valign="top">
<div align="center">
<table border="0" width="94%" cellspacing="0" cellpadding="0" id="table13" height="25">
<%
sql="select id,title from article where class="&rs("class")&" order by click desc"
rs1.open sql,conn,1,1
if rs1.eof or rs1.bof then
response.write "暫無文章！"
rs1.close
else
for i1=1 to 10
title=rs1("title")
if len(title)>13 then title=left(title,11)&"..."
%>
<tr>
<td width="16" height="18">
<p align="center">
<img border="0" src="images/ls3.gif" width="13" height="22"></td>
<td height="18">
<a target="_blank" href="show_article.asp?id=<%=rs1("id")%>">
<%=title%></a></td>
</tr>
<%
rs1.movenext
if rs1.eof then exit for
next
rs1.close
end if
%>
</table>
</div>
</td> </tr>
</table>
</td>
<td valign="top">
<div align="center">
<table border="0" width="99%" cellspacing="0" cellpadding="0" id="table14" height="197">
<tr>
<td height="46" style="border-left: 1px solid #C0C0C0; border-right: 1px solid #C0C0C0; border-top: 1px solid #C0C0C0; border-bottom-width: 1px" width="540" background="images/bg2.gif">
<table border="0" width="537" cellspacing="0" cellpadding="0" id="table15" height="30">
<tr>
<td valign="bottom" width="110">
</td>
<td width="427">
<p align="center"><b><font size="4" color="#000080"><% =unHtml(rs("title")) %></font></b></td>
</tr>
</table>
</td>
</tr>
<tr>
<td style="border-bottom:1px solid #C0C0C0; border-left:1px solid #C0C0C0; border-right:1px solid #C0C0C0; border-top-width: 1px" valign="top" align="center">
<table border="0" width="96%" cellspacing="0" cellpadding="0" id="table16" height="107">
<tr>
<td height="25"> </td>
</tr>
<tr>
<td style="line-height: 150%; font-size:10pt"><% =ubbcode(unHtml(rs("content"))) %></td>
</tr>
<tr>
<td style="line-height: 150%" height="27">
<p align="right">發表于：<%
a=instr(rs("addtime"),chr(32))-1
response.write Mid(rs("addtime"),1,a)
%> 被閱：<%=rs("click")+1%>次</td>
</tr>
<tr>
<td style="line-height: 150%" height="26">
<%
if rs("comefrom")<>"" then
%>
<p align="center"><font color="#FF0000">申明</font>：<font color="#000000">此文章源于<%=rs("comefrom")%>，若有侵權，請與我們聯系。</font>
<%
end if
%>
</td>
</tr>
</table>
</td>
</tr>
</table>
</div>
</td>
</tr>
</table>
</div>
</td>
</tr>
</table>
</div>
<%
rs.close
set rs1=nothing
set rs=nothing
set conn=nothing
%>
<!--#include file="base.asp"-->
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -