📄 show_lock.asp
字号:
<TD class=input02 background=images/back.gif
height=9><FONT
color=#666666><%=ubbcode(rs("content"))%></FONT> <FONT
color=#996600> </FONT></TD></TR>
<TR>
<TD></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=584 border=0>
<TBODY>
<TR>
<TD><IMG height=12 src="images/bottom.gif"
width=584></TD></TR></TBODY></TABLE><BR></TD>
<TD width=14 background=images/line_right.gif
height=180> </TD></TR></TBODY></TABLE></TD></TR>
<TR>
<TD><IMG height=15 src="images/line_bottom.gif"
width=608></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=617 align=center bgColor=#ffffff
border=0>
<TBODY>
<TR>
<TD>
<TABLE cellSpacing=0 cellPadding=0 width=609 align=center border=0>
<TBODY>
<TR>
<TD>
<DIV align=center>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
<TBODY>
<TR>
<TD width="14%">
<DIV align=right><IMG height=17
src="images/pinglun.gif" width=37></DIV></TD>
<TD vAlign=center width="86%">
<DIV align=center></DIV></TD></TR></TBODY></TABLE>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="96%">
<TBODY>
<TR>
<TD> </TD>
<TD> </TD></TR></TBODY></TABLE>
<%
set rsp=server.createobject("adodb.recordset")
sql="select * from say where diaryid="&request("id")
rsp.open sql,conn,1,1
if rsp.eof and rsp.bof then
response.write"<table align=center border=0 cellPadding=2 cellSpacing=0 width=400><tr><td align=center height=25 bgColor=#fffffa><FONT color=#666666 size=2>还没有人对该日记发表评论！</FONT></td></tr><table>"
else
do while not rsp.eof
set rsp2=server.CreateObject ("ADODB.Recordset")
rsp2.open "select * from admin where user='"&rsp("postuser")&"'",conn,1,3
postname=rsp2("nickname")
rsp2.close
%>
<TABLE align=center border=0 cellPadding=2 cellSpacing=0
width=400><TBODY>
<TR>
<TD bgColor=#e4e4e4> <FONT color=#666666
size=2>来自：</FONT><FONT size=2><A
href="diary.asp?user=<%=rsp("postuser")%>"
target=_blank><FONT color=#000000><%=postname%></FONT></A><FONT
color=#000000> </FONT> <FONT
color=#666666>时间：</FONT></FONT><FONT color=#000000
size=2><%=rsp("date")%></FONT> <FONT size=2>
</FONT><FONT size=2><%if rs("userid")=session("userid") or session("username")=rsp("postuser") then%><a href=del_pinglun.asp?id=<%=rsp("sayid")%>&diaryid=<%=request("id")%>>删除</a><%end if%> </FONT></TD></TR>
<TR>
<TD bgColor=#fffffa class=input02>
<TABLE align=center border=0 cellPadding=1 cellSpacing=0
width="98%">
<TBODY>
<TR>
<TD><FONT color=#cc6600 size=2>内容：</FONT><FONT
color=#666666
size=2><%=ubbcode(rsp("content"))%></FONT></TD></TR></TBODY></TABLE></TD></TR>
<TR>
<TD> </TD></TR></TBODY></TABLE>
<%
rsp.movenext
loop
rsp.close
end if
%>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
<TBODY>
<TR>
<TD width="8%">
<DIV align=center></DIV></TD>
<TD vAlign=center width="92%">
<DIV align=center><IMG height=2 src="images/line02.gif"
width=549></DIV></TD></TR></TBODY></TABLE>
<FORM action=save_pinglun.asp method=post name=form1>
<TABLE align=center border=0 cellPadding=4 cellSpacing=0
width="66%">
<TBODY>
<TR>
<TD vAlign=top width=57 clasee="td">
<DIV align=right><FONT color=#000000
size=2>内容：</FONT></DIV></TD>
<TD width=329 clasee="td"><TEXTAREA <%if session("username")="" then response.write "disabled" %> class=input cols=40 name=content rows=8></TEXTAREA>
</TD></TR>
<TR>
<TD width=57 clasee="td"> </TD>
<TD width=329>
<%if pinglunlock=1 then%>
<FONT color=#cc6600
size=2>该日记主人已关闭评论功能，无法发表评论！</FONT>
<%elseif session("username")="" then%>
<FONT color=#cc6600
size=2>您尚未登陆，无法发表评论！</FONT><FONT size=2><A
href="login.asp"><FONT
color=#cc6600>请到随然日记本首页登陆</FONT></A></FONT>
<%else%>
<FONT color=#cc6600
size=2>您已经登陆，可以发表评论！</FONT>
<%end if%>
</TD></TR>
<TR>
<TD width=57 clasee="td">
<DIV align=right><INPUT name=diaryid type=hidden value=<%=request("id")%>> <INPUT name=username type=hidden value=<%=session("username")%>> </DIV></TD>
<TD width=329>
<DIV align=left> <INPUT name=Submit type=submit value=.发表评论.> <INPUT name=Submit2 type=reset value=".重 写.">
</DIV></TD></TR></TBODY></TABLE></FORM></DIV>
</TD>
</TR>
</TBODY></TABLE></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=617 align=center bgColor=#ffffff
border=0>
<TBODY>
<TR>
<TD>
<TABLE cellSpacing=0 cellPadding=3 width=609 align=center bgColor=#9c9a9d
border=0>
<TBODY>
<!--#include file="foot.asp"-->
</TR></TBODY></TABLE></TD></TR>
<TR>
<TD height=2><IMG height=8 src="images/top01.gif"
width=617></TD></TR></TBODY></TABLE>
</BODY></HTML>
<%end sub%>
<%sub infor()%>
<TABLE cellSpacing=0 cellPadding=0 width=617 height=18 align=center bgColor=#ffffff
border=0>
<TBODY>
<TR>
<TD vAlign=top bgColor=#ffffff>
<TABLE borderColor=#e3e3e3 cellSpacing=0 borderColorDark=#e3e3e3
cellPadding=0 width=609 align=center bgColor=#ffffff border=1
bordercolorlight="#E3E3E3">
<TBODY>
<TR bgColor=#e6e6e6>
<TD bgColor=#e6e6e6><TABLE cellSpacing=0 cellPadding=0 width="90%" align=center border=0>
<TBODY>
<TR>
<TD vAlign=top bgColor=#ffffff>
<TABLE cellSpacing=0 cellPadding=6 width="90%" align=center border=0>
<TBODY>
<TR>
<TD></TD></TR>
<TR>
<TD> </TD></TR>
<TR>
<TD>
<DIV align=center><FONT color=#990000>阅读密码错误！</FONT></DIV></TD></TR>
<TR>
<TD></TD></TR>
<TR>
<TD>
<DIV align=center><A href="#" onclick=history.back()><IMG
height=21 src="images/fanhui.gif" width=74 border=0></A>
</DIV></TD></TR>
<TR>
<TD></TD></TR></TBODY></TABLE>
</TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
</TBODY>
</TABLE>
<TABLE cellSpacing=0 cellPadding=2 width=609 align=center border=0>
<TBODY>
<TR bgColor=#e6e6e6>
<TD width="10%"></TD>
</TR>
</TBODY>
</TABLE></TD></TR>
<TR>
<TD bgColor=#ffffff height=16>
<TABLE cellSpacing=0 cellPadding=3 width=609 align=center bgColor=#9c9a9d
border=0>
<TBODY>
<!--#include file="foot.asp"-->
</TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
</DIV></TD></TR></TBODY></TABLE>
</BODY></HTML>
<%end sub%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -