<%
if request("action")="del" then
delsql="delete * from [News] where id="&request("id")
conn.execute(delsql)
response.Redirect("?id="&request("mid"))
end if
%>
<%
sql="select * from [user] where id="&request("id")
set rs=conn.execute(sql)
if rs.bof and rs.eof then
response.Write("")
else%>
" />
名字(中文) <%= rs("NameCh")%>
称谓(中文) <%= rs("NicknameCh") %>
名字(英文) <%= rs("NameEn") %>
称谓(英文) <%= rs("NicknameEn") %>
星 座 <%= rs("xingzuo") %>
Email <%= rs("Email") %>
工作行业 <%= rs("gongzuohangye") %>
公司网址 <%= rs("companyWeb") %>
酒量guts
口头禅 <%= rs("koutouchan") %>
拿手的事 <%= rs("shihao") %>
最能代表自己的一句话一张图：
<%= rs("daibiaoZi") %>
自我介绍
<%
end if
rs.close
set rs=nothing
%>
<%
myname=conn.execute("select username from [user] where id= "&request("id")&"")(0)
response.Write(myname)
%> 的日志
<%
sqlstr="select * from News where author='"&myname&"' 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%>
