📄 myarticle.asp
字号:
<!--#include file="articleconn.asp"-->
<!--#include file="home1.asp"-->
<!--#include file="INC/fun.inc"-->
<!--#include file="inc/part_1.asp"-->
<script language="JavaScript">
<!--
function checkinput()
{
if (document.search.keyword.value=="")
{
alert("请输入想查询的内容！");
document.search.keyword.focus();
return false;
}
return true;
}
-->
</script>
<br>
<!------------search--------------->
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tbody>
<tr>
<td align="center" bgcolor="#FF99CC" height="1"></td>
</tr>
<tr>
<td align="center" height="22" bgcolor="#FFD9EC"><font color="#ff0099" class="fontshadow">文章搜索</font></td>
</tr>
<tr>
<td align="center" bgcolor="#FF99CC" height="1"></td>
</tr>
</tbody>
</table>
<form action="search.asp" method="post" name="search" onsubmit="return checkinput()">
<input type="text" name=keyword size=17 maxlength="30" value="关键字搜索" onFocus=this.value='' class="put">
<input type="Image" src="images/ssearch.gif" tppabs="" align="absmiddle" width="20" height="20" title="查询" id=Image1 name=Image1>
<input type="hidden" name="typeid" value="<%=typeid%>">
</form>
<!--#include file="inc/part_2.asp"-->
<!--#include file="inc/articleCHAR.inc"-->
<style type="text/css">
<!--
.fstspan1{font-size:14px;letter-spacing:1px;width:100%;padding-bottom:7px}
.fstspan2{width:100%;padding-top:6px}
.fst3 div,.fst4 div{width:95%;margin-bottom:1px;text-align:left}
.fst3 div.fstdiv1{border-bottom:2px solid #FF99CC;padding:5px 0px 3px 0px}
.fst3 div.fstdiv2{font-size:14px;border-top:2px solid #FF99CC;padding:6px 0px 2px 0px;text-align:center}
.fst4 div{border-bottom:1px solid #FFC8E3;border-top:1px solid #FFC8E3;padding:9px 0px;line-height:17px}
-->
</style>
<script language="javascript">
<!--
function popwin2(id,path)
{ window.open("openarticle.asp?id="+id+"&ppath="+path,"","height=500,width=600,resizable=yes,scrollbars=yes,status=no,toolbar=no,menubar=no,location=no");
}
-->
</script>
<%
Set connx = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("../isi/xlist.asp")
connx.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
'-----------------------------------------------------------------
Set rs_larx = Server.CreateObject("ADODB.Recordset")
sqlx="select netname from larchives where user_id =" & Request("user_id")
rs_larx.open sqlx,connx,1,1
'叛断此用户是否已经提交档案
if rs_larx.eof and rs_larx.bof then
response.redirect "../info.asp?msg=错误，没有该会员记录！"
response.end
end if
NickName=rs_larx("netname")
rs_larx.close
set rs_larx=Nothing
connx.close
set connx=Nothing
%>
<table width="95%" border="0" cellspacing="0" cellpadding="0">
<tbody>
<tr height="22">
<td><img src="../images/arrow.gif" width="12" height="12" align="top" border="0" hspace="0"> <font color="#FF0000" class="titletext"><%=NickName%>的个人文集</font>
</td>
<%
If cint(Request("user_id")) = cint(Session("u_id")) Then
%>
<td align="right"><a href="addarticle.asp" class="a03">发表文章</a> <a href="default.asp" class="a03">更多的文章</a>
</td>
<%
End If
%>
</tr>
<tr>
<td height="1" colspan="2"></td>
</tr>
</tbody>
</table>
<%
dim rs
MaxPerPage=6 'rs("duo")
dim totalPut
dim CurrentPage
dim TotalPages
dim i,j
dim typename
typename=""
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
dim sql
dim rstype
dim typesql
dim typeid,typename1
if not isEmpty(request("typeid")) then
typeid=request("typeid")
else
typeid=0
end if
set rstype=server.createobject("adodb.recordset")
typesql="select * from type where typeid="&typeid&""
rstype.open typesql,conn,1,1
if not rstype.eof then
typename1=rstype("type")
else typename1="全部文章"
end if
rstype.close
%>
<%
if typeid=0 then
sql="select type.typeid,type.type,learning.articleid,learning.typeid,learning.user_id,learning.name,learning.title,learning.content,learning.dateandtime,learning.reviewcount,learning.hits from learning,type where type.typeid=learning.typeid and learning.user_id=" & request("user_id") & " order by learning.articleid desc"
else
sql="select type.typeid,type.type,learning.articleid,learning.typeid,learning.user_id,learning.name,learning.title,learning.content,learning.dateandtime,learning.reviewcount,learning.hits from learning,type where type.typeid=learning.typeid and learning.user_id=" & request("user_id") & " and learning.typeid="+cstr(typeid)+" order by learning.articleid desc"
end if
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "<p align='center'> 还 没 有 任 何 文 章</p>"
else
totalPut=rs.recordcount
totalPut=rs.recordcount
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if
if currentPage=1 then
showhead totalput,MaxPerPage,"myarticle.asp"
showContent
showpage totalput,MaxPerPage,"myarticle.asp"
else
if (currentPage-1)*MaxPerPage<totalPut then
rs.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=rs.bookmark
showhead totalput,MaxPerPage,"myarticle.asp"
showContent
showpage totalput,MaxPerPage,"myarticle.asp"
else
currentPage=1
showhead totalput,MaxPerPage,"myarticle.asp"
showContent
showpage totalput,MaxPerPage,"myarticle.asp"
end if
end if
rs.close
end if
set rs=nothing
conn.close
set conn=nothing
sub showContent
dim i
i=0
%>
<%do while not rs.eof%>
<div class=fst4><div>
<span class=fstspan1>→<a href="javascript:popwin2(<%=rs("articleid")%>)"><%=rs("title")%></a></span>
... <%=RmHtml ( Left(rs("content"),180))%> ...
<br>
<span class=fstspan2>作者:<a href="../read.asp?user_id=<%=rs("user_id")%>"><%=rs("name")%></a> 发表日期:<%=GetDateTime(rs("dateandtime"))%> 类目:<a href="myarticle.asp?user_id=<%=request("user_id")%>&typeid=<%=rs("typeid")%>"><%=rs("type")%></a> 字数:<%=FormatNumber(Len(rs("content")),0)%> 阅读:<%=rs("hits")%> 点评:<%=rs("reviewcount")%>
<%if cint(request("user_id"))=cint(session("u_id")) then%>
<a href="edit.asp?id=<%=rs("articleid")%>">修改</a> <a href="delete.asp?id=<%=rs("articleid")%>">删除</a>
<%end if%>
</span>
</div></div>
<% i=i+1
if i>=MaxPerPage then exit do
rs.movenext
loop%>
<%
end sub
function showpage(totalnumber,maxperpage,filename)
dim n
if totalnumber mod maxperpage=0 then
n= totalnumber \ maxperpage
else
n= totalnumber \ maxperpage+1
end if
response.write "<div class=fst3><div class=fstdiv2><table border=0 cellspacing=0 width=100% cellpadding=0><form method=Post action="&filename&"?typeid="&typeid&"&user_id="&request("user_id")&"><tr><td>"
if CurrentPage<2 then
response.write "<font color='#000000'>首页 上一页</font> "
else
response.write "<a href="&filename&"?page=1&typeid="&typeid&"&user_id="&request("user_id")&">首页</a> "
response.write "<a href="&filename&"?page="&CurrentPage-1&"&typeid="&typeid&"&user_id="&request("user_id")&">上一页</a> "
end if
if n-currentpage<1 then
response.write "<font color='#000000'>下一页 尾页</font>"
else
response.write "<a href="&filename&"?page="&(CurrentPage+1)&"&typeid="&typeid&"&user_id="&request("user_id")&">"
response.write "下一页</a> <a href="&filename&"?page="&n&"&typeid="&typeid&"&user_id="&request("user_id")&">尾页</a>"
end if
response.write "</td><td align=right><font color='#000000'> 页次:</font> <font color=red><b>"&CurrentPage&"</b></font> <font color='#000000'> / <b>"&n&"</b> 页</font>"
response.write "<font color='#000000'> "
response.write " <font color='#000000'>转到:</font> <input type='text' name='page' size=3 maxlength=10 class=put value="¤tpage&"> 页"
response.write "</td></tr></form></table></div></div>"
end function
function showhead(totalnumber,maxperpage,filename)
dim n
if totalnumber mod maxperpage=0 then
n= totalnumber \ maxperpage
else
n= totalnumber \ maxperpage+1
end if
response.write "<div class=fst3><div class=fstdiv1><table border=0 cellspacing=0 width=100% cellpadding=0><tr><td><a href='Mysarticle.asp?typeid="&typeid&"&user_id="&request("user_id")&"' class='a03'>[简单模式]</a> <font color='#000000'>共有 <font color=red><b>"&totalnumber&"</b></font> 篇文章</font></td><td align=right>"
if CurrentPage<2 then
response.write "<font color='#000000'>上一页</font> "
else
response.write "<a href="&filename&"?page="&CurrentPage-1&"&typeid="&typeid&"&user_id="&request("user_id")&">上一页</a> "
end if
if n-currentpage<1 then
response.write "<font color='#000000'>下一页</font>"
else
response.write "<a href="&filename&"?page="&(CurrentPage+1)&"&typeid="&typeid&"&user_id="&request("user_id")&">下一页</a>"
end if
response.write "</td></tr></table></div></div>"
end function
Function RmHtml(fString)
fString = Replace(fString, CHR(13), " ")
fString = Replace(fString, CHR(10) & CHR(10), " ")
fString = Replace(fString, CHR(10), " ")
fString = Replace(fString, "<br>", " ")
fString = Replace(fString, "<BR>", " ")
fString = Replace(fString, "<Br>", " ")
fString = Replace(fString, "<bR>", " ")
fString = Replace(fString, "<p>", " ")
fString = Replace(fString, "<P>", " ")
fString = replace(fString, ">", ">")
fString = replace(fString, "<", "<")
RmHtml=fString
End Function
%>
<!--#include file="inc/part_3.asp"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -