|
|
| |
|
| |
|
 |
|
<%
sqlstr="select * from News where author='"&trim(request("id"))&"' order by id desc"
set rs=Server.CreateObject("adodb.recordset")
rs.Open sqlstr,conn,1,1
if rs.RecordCount > 0 then
rs.PageSize=20
total_page=rs.PageCount
total_red=rs.RecordCount
current_page=Request("me_page")
if current_page="" then
current_page=1
elseif not isnumeric(current_page) then
current_page=1
else
current_page=cint(current_page)
end if
if current_page>total_page then
current_page=total_page
elseif current_page<1 then
current_page=1
end if
protr=0
rs.AbsolutePage=current_page
For i = 1 to rs.PageSize
%>
| |
|
| |
<%if rs("whichtype")<>"" then%>
<%
if rs("whichtype")="1" then
response.Write("桥过的事")
elseif rs("whichtype")="2" then
response.Write("来弄好事")
elseif rs("whichtype")="3" then
response.Write("在踏的场子之吃")
elseif rs("whichtype")="4" then
response.Write("在踏的场子之喝")
elseif rs("whichtype")="5" then
response.Write("在踏的场子之玩")
end if%>
- <%=rs("title")%>
<%else%>
<%=rs("title")%>
<%end if%>
By:<%
set rsauthor=server.CreateObject("adodb.recordset")
rsauthor.open "select NameEn from [user] where username='"&rs("author")&"'",conn,1,1
if rsauthor.bof and rsauthor.eof then
response.Write("无名氏")
else
response.Write(rsauthor(0))
end if
rsauthor.close
set rsauthor=nothing
%>
Browse (<%= rs("clicknum") %>) | Comments (<%= conn.execute("select count(id) from Comments where newsid="&rs("id")&"")(0) %>) (<%=rs("adddate")%>)
<%if rs("propics")<>"" then%>
 " width="500" />
<%=rs("shuoming1")%>
<%end if%>
<%if len(rs("content"))>100 then %>
<%=left(rs("content"),99)&".."%>
还有
<%
len1=len(rs("content"))
len2=len1-99
response.Write(len2)
%>
字节>
">查看全文>>
<%if trim(request.Cookies("Purview"))="2" or trim(request.Cookies("username"))=trim(rs("author")) then%>
==> &mid=<%=request("id")%>">Del
<%end if%>
<%
else
%>
<%=rs("content")%>
">查看全文>>
<%if trim(request.Cookies("Purview"))="2" or trim(request.Cookies("username"))=trim(rs("author")) then%>
==> &mid=<%=request("id")%>">Del
<%end if%>
<%end if%>
|
|
<%
rs.MoveNext
If rs.EOF Then Exit For
Next
end if%>
| |
<%if not(rs.bof and rs.eof )then%>
<%
else
response.Write("No info")
end if%> |
|
|
|
|
