<% sub login %>
<form language="javascript"  name="regform" method="post" action="u/login.asp?ation=log" onSubmit="return CheckForm()">
				<td height="31"><%if session("username")="" then%>
				<font color="#00ACF0">用户名</font><input name="username" type="text" id="username3" size="7" maxlength="12"><font color="#00ACF0">密码</font><!--a href="p/qqconnect/redirect.asp" target="_blank" ><img src="p/qqcontect/qq_login.png"></a--><input name="password" type="password" id="password" size="7" maxlength="12">
				<INPUT border=0 height=24 name=submit 
                  src="<%=alltubg%>dl.gif" type=image width=43> <a href="u/reg1.asp">
				<img border="0" src="<%=alltubg%>sq.gif" width="43" height="24"></a><%else%>&nbsp;&nbsp;<font color="#00ACF0">你好<%=session("username")%>| 
				记得多写日记哦&nbsp; | </font><a href=u/ok.asp?action=logout><font color="#00ACF0">退出登陆</font></a><font color="#00ACF0">
				</font>
				  <%end if%></td>
<%end sub%>			
<%
sub toplink
%>
        
<table width="430" border="0" cellspacing="0" cellpadding="0">
  <tr>      
    <td height="18" align="right"> 
      <%if session("username")="" then%>| <a href="/<%=url%>" title=返回主页>主页</a> | <a href="http://friend.qq.com/cgi-bin/friend/user_show_info?ln=<%=qq%>" title=我的QQ：<%=qq%> target=_blank>Oicq</a> | <a href="login.asp" title="签写、修改日记">登陆管理</a> | <a href=userlist.asp title=查看其他人的日记>列表</a> |  <a href=cal.asp title=查看日历 target=_blank>日历</a> | <a href="reg.asp" title="免费申请属于你的日记本">申请</a> | <a href="" target=_blank><img src="img/icon.gif" width="17" height="16"  border=0 align="absmiddle" alt="访问"></a>  
      <%else%>
      | <a href=index.asp?user=<%=session("username")%>>看日记</a> | <a href=add.asp?user=<%=session("username")%> target=main>写日记</a> | <a href=info.asp?userid=<%=session("userid")%>>修改资料</a> | <a href=ok.asp?action=logout>退出登陆</a> | <a href=userlist.asp title=查看其他人的日记>列表</a> | <a href=cal.asp title=查看日历 target=_blank>日历</a> | <a href="help.asp">帮助</a> | <a href="http://www.rijiren.com" target=_blank><img src="img/icon.gif" width="17" height="16"  border=0 align="absmiddle" ></a>  
      <%end if%>
    </td>
          </tr>
        </table>
<%end sub%>
<% sub bottom %>
<table width="420" border="0" align="center" cellpadding="0" cellspacing="0">
<tr><td height="6"></td></tr></table><hr align="center" width="420" style="border:1px dashed #ffffff"><font face="Comic Sans MS" class=f>Edited By: </font><font face="arial" class=f><a href="http://www.rijiren.com" target="_blank">日记人</a></font>
<% end sub %>

<% sub news %>
<%
xq=rs("xq")
Set rx = Server.CreateObject("ADODB.Recordset")
  sql="select * from xqlist where xqorder="&CInt(xq)
   rx.open sql,conn,3,2
   xq=rx("xqcontent")
   rx.update
   rx.close
%><td width="51"><%=xq%></td>
<td width="165"><a target="_blank" title="<%=rs("title")%>" href="<%if ishtml="yes" then%><%=diarydir%><%=htmldir%>/riji<%=rs("diaryid")%>.htm<%else%><%=diarydir%>u/play.asp?id=<%=rs("diaryid")%><%end if%>"><%= gottopic(rs("title"),26) %></a></td>
<td width="26"><img src="<%=alltubg%><%=rs("tq")%>" border="0" align="middle"></td>
<td width="26"><a title="<%=rs("diarytime")%>" href="#">
<img border="0" src="<%=alltubg%>TIME.gif" width="24" height="20"></a></td><% end sub %>

<% sub good %>
<%
xq=rs("xq")
Set rx = Server.CreateObject("ADODB.Recordset")
  sql="select * from xqlist where xqorder="&CInt(xq)
   rx.open sql,conn,3,2
   xq=rx("xqcontent")
   rx.update
   rx.close
%>
<td width="51"><%=xq%></td>
<td width="165"><a target="_blank"  title="<%=rs("title")%>" href="<%if ishtml="yes" then%><%=diarydir%><%=htmldir%>/riji<%=rs("diaryid")%>.htm<%else%><%=diarydir%>u/play.asp?id=<%=rs("diaryid")%><%end if%>"><%= gottopic(rs("title"),26) %></a></td>
<td width="26"><img src="<%=alltubg%><%=rs("tq")%>" border="0" align="middle"></td>
<td width="26"><a title="<%=rs("diarytime")%>" href="#">
<img border="0" src="<%=alltubg%>TIME.gif" width="24" height="20"></a></td><% end sub %>
<% sub topbook %><td width="150"><a target="_blank" href="?i=<%= rs("userid") %>"><%= rs("bookname") %></a></td>
<td width="84"><a target="_blank" href="?i=<%= rs("userid") %>"><font color=#0099FF><%= rs("username") %></font></a><td><font color=#FF0000>
<p align="right"><%= rs("amount") %>篇</font></td>
<% end sub %>

<% sub index %>
<%
ml=rs("typeid")
Set rx = Server.CreateObject("ADODB.Recordset")
  sql="select * from diarytype where id="&CInt(ml)
   rx.open sql,conn,3,2
   xq=rx("type")
   rx.update
   rx.close
%>
<td width=""><font color=#999999><%=n+1%></font> <a target="_blank"  title="<%=rs("title")%>" href="<%if ishtml="yes" then%><%=diarydir%><%=htmldir%>/riji<%=rs("diaryid")%>.htm<%else%><%=diarydir%>u/play.asp?id=<%=rs("diaryid")%><%end if%>"><%= gottopic(rs("title"),26) %></a></td>
<td width="62" class="indexriji"><a href="?i=<%=rs("userid")%>&fid=<%=rs("typeid")%>" target="_blank">[<%=xq%>]</a></td>
<td width="26"><a title="<%=rs("diarytime")%>" href="#">
<img border="0" src="<%=alltubg%>TIME.gif" width="24" height="20"></a></td><% end sub %>

<% sub topbook %><td width="150"><a target="_blank" href="?i=<%= rs("userid") %>"><%= rs("bookname") %></a></td>
<td width="84"><a target="_blank" href="?i=<%= rs("userid") %>"><font color=#0099FF><%= rs("username") %></font></a><td><font color=#FF0000>
<p align="right"><%= rs("amount") %>篇</font></td>
<% end sub %>

<% sub indextopbook %><td width="150"><font color=#999999><%=(booki-1)*5+c%></font> <a target="_blank" href="?i=<%= rs("userid") %>"><%= rs("bookname") %></a></td>
<td width="84"><a target="_blank" href="?i=<%= rs("userid") %>"><font color=#0099FF><%= rs("username") %></font></a><td><font color=#FF0000>
<p align="right"><%= rs("amount") %>篇</font></td>
<% end sub %>

<% sub linkdow 
If ishtml="yes" then
%>
<span id="navi"><a href="<%=diarydir%>index.asp">首页</a>　<a href="<%=diarydir%><%=sitelistdir%>/NewList.htm">最新日记</a> <a href="<%=diarydir%><%=sitelistdir%>/goodList.htm">佳作推荐</a> <a href="<%=diarydir%><%=sitelistdir%>/Newbook.htm">最新日记本</a> <a href="<%=diarydir%><%=sitelistdir%>/bookorder.htm">日记本排行</a> <a href="<%=diarydir%>u/search.asp">日记搜索</a> <a href="<%=diarydir%>mybook.asp">管理日记</a> 
<%if session("username")<>"" then%><a href="<%=diarydir%>?i=<%=session("userid")%>" target="_blank">我的日记</a>
				<%else%>
<a href="<%=diarydir%>?i=128" target="_blank">服务中心</a>
				<%end if%></span>
<%else%>
<span id="navi"><a href="<%=diarydir%>index.asp">首页</a>　<a href="<%=diarydir%>NewList.asp">最新日记</a> <a href="<%=diarydir%>goodList.asp">佳作推荐</a> <a href="<%=diarydir%>Newbook.asp">最新日记本</a> <a href="<%=diarydir%>BookOrder.asp">日记本排行</a> <a href="<%=diarydir%>u/search.asp">日记搜索</a> <a href="<%=diarydir%>mybook.asp">管理日记</a> 
<%if session("username")<>"" then%><a href="<%=diarydir%>?i=<%=session("userid")%>" target="_blank">我的日记</a>
				<%else%>
<a href="<%=diarydir%>?i=128" target="_blank">服务中心</a>
				<%end if%></span>
<%
End if
end sub %>
<% sub mybook %>
<%
xq=rs("xq")
Set rx = Server.CreateObject("ADODB.Recordset")
  sql="select * from xqlist where xqorder="&CInt(xq)
   rx.open sql,conn,3,2
   xq=rx("xqcontent")
   rx.update
   rx.close
%>
<td width="5"></td><td width="63"><%=xq%></td>
<td width="127"><%= rs("title") %></td>
<td width="26"><img src="<%=rs("tq")%>" border="0" align="middle"></td>
<td width="56"><a href="edit.asp?diaryid=<%=rs("diaryid")%>">改</a>&nbsp;<a href="ok.asp?action=del&diaryid=<%=rs("diaryid")%>">删</a> 
                  </td><% end sub %>

