diary.asp

asp构建网站bbs.采用B/S架构

<!--#include file="up.asp"-->
<!--#include file="conndiary.asp"--><br>
<%notename=Request.Form("notename")
select case action
case"reg"
set duser1=d_conn.execute("select * from duserset where d_name='"&lgname&"' ")
if not duser1.eof or not duser1.bof then
%>
<%=t1%>错误信息<%=t2&d1%>你已经申请了日记本，不能再次申请！！！<%=d2%> 
<%else%>
<%

if notename="" or len(notename)>20 then%>
<%=t1%>错误信息<%=t2&d1%>对不起！！你还没有输入日记本的名字！！&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href=javascript:history.go(-1)>请你返回</a>！！！<%=d2%> 
<%else
d_conn.execute("insert into duserset(d_name,d_notename)values('"&lgname&"','"&notename&"')")
%>
<%=t1%>申请成功<%=t2&d1%>你已经成功的申请了日记本！！请点击这里来<a href=d_look.asp?action=mag>进入</a><%=d2%> 
<%end if
end if%>
<%case"xiu"%>
<%=t1%>修改日记本名称<%=t2&d1%>
<form action="diary.asp?action=xiuok" method="post">
请在此输入日记本的名字：
<INPUT type="text"  name=notename>&nbsp;&nbsp;&nbsp;<INPUT type="submit" value="确认"  name=a1>
</form>
<%=d2%>
<%case "xiuok"
if notename="" or len(notename)>20 then%>
<%=t1%>错误信息<%=t2&d1%>对不起！！你还没有输入日记本的名字！！&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href=javascript:history.go(-1)>请你返回</a>！！！<%=d2%> 
<%else%>
<%=t1%>修改成功<%=t2&d1%>你的日记本的名字已经改成"<%=notename%>"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href=javascript:history.go(-1)>请你返回</a>！！！<%=d2%> 
<%
d_conn.execute("update duserset set d_notename='"&notename&"',d_data=now where d_name='"&lgname&"'")
end if
%>


<%end select
%>
<%if lgname="" then 
%>
<%=t1%>错误信息<%=t2&d1%>对不起你没有登陆论坛，所以不能使用！！！请你登陆后再来！！<%=d2%> 
<%else

set lockuser=d_conn.execute("select * from lockuser where d_name='"&lgname&"' ")
if not lockuser.eof  then %>
<%=t1%>错误信息<%=t2&d1%>对不起你的日记本的使用权已经被禁止！！要想再次使用请给管理员发短信！！<%=d2%> 
<%else
set duser=d_conn.execute("select * from duserset where d_name='"&lgname&"' ")
if duser.eof then
if action="" then%>
<%=t1%>错误信息<%=t2&d1%>对不起你还没有申请日记本！！ 
<form action="diary.asp?action=reg" method="post">
请在此输入日记本的名字：
<INPUT type="text"  name=notename>&nbsp;&nbsp;&nbsp;<INPUT type="submit" value="确认"  name=a1>
</form>
<%else
end if%>
<%=d2%> 
<%else   '''''写主体
if action="" then
%>
<%=t1%>心情日记<%=t2&d1%>
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="<%=c1%>">
  <tr>
    <td height="95" valign="top"><table width="90%" height="100%" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="<%=c1%>">
        <tr align="center" valign="top"> 
          <td width="31%" height="20"><font color="<%=c2%>">日记本名字</font></td>
          <td width="23%" height="20"><font color="<%=c2%>">所有人</font></td>
          <td width="21%" height="20"><font color="<%=c2%>">日记数</font></td>
          <td width="25%" height="20"><font color="<%=c2%>">时间</font></td>
        </tr>
		<%set usernote=d_conn.execute("select * from duserset ")
          do while not usernote.eof
		  did=usernote("d_id") 
	      notettl=usernote("d_notename")
		  notena=usernote("d_name")
		  notepu=usernote("d_public")
		  noteda=usernote("d_data")%>
		<tr align="center"> 
          <td height="20"><a href="d_look.asp?action=other&dname=<%=notena%>"><%=notettl%></a></td>
          <td><a href="userinfo.asp?name=<%=notena%>"><%=notena%></a></td>
          <td><%=notepu%></td>
          <td><%=noteda%></td>
        </tr>
		<%usernote.movenext
		loop
		usernote.close
		set usernote=nothing
		%>
		<tr align="center"> 
          <td height="20" colspan="4"><a href="d_look.asp?action=mag"><font color="<%=c2%>">点击进入个人日记管理页面</font></a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;　　　　&nbsp;&nbsp;&nbsp;&nbsp;<a href="diary.asp?action=xiu"><font color="<%=c2%>">修改个人日记本名称</font></a></td>
        </tr>
      </table></td>
  </tr>
</table>
<%=d2%>
<%end if%>

<%'''''''''''''''''''''''''''''''''''''''%>
<%end if '''这个是duser的
end if '''这个是lockuser的
end if '''这个是lgname的
%>
<!--#include file="down.asp"-->