📄 book.asp

📁 WEB2.0圈子交友平台,以用户影音创意和分享为主导, 为用户提供:圈子,个人空间,博客,话题,相册,分类信息,短信,交友等免费服务,致力打造中国第一套 WEB2.0交友系统开源网站.
💻 ASP
字号:
<!--#include file="../main.asp" -->
<!--#include file="../Space.asp" -->
<%
id=clng(request("id"))
if id="" or IsNumeric(id)<>true then
response.write"请输入正确的ID号！"
response.end
end if
sql3="select * from "&WebSqlType&"_member where "&WebSqlType&"_id="&id&""
set rs3=server.createobject("ADODB.Recordset")
rs3.open sql3,conn,1,1%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3c.org/TR/1999/REC-html401-19991224/loose.dtd">
<HTML xmlns="http://www.w3.org/1999/xhtml"><HEAD><TITLE>留言 - <%if rs3(""&WebSqlType&"_realname")<>"" then%><%=rs3(""&WebSqlType&"_realname")%><%else%><%=rs3(""&WebSqlType&"_username")%><%end if%>的个人空间</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META content=follow,index name=robots>
<LINK href="<%=cityurl%>images/style.css" 
type=text/css rel=stylesheet>
<LINK href="<%=cityurl%>images/msg.css" type=text/css 
rel=stylesheet>
<script>
function CheckAll(form)  {
  for (var i=0;i<form.elements.length;i++)    {
    var e = form.elements[i];
    if (e.name != 'chkall')       e.checked = form.chkall.checked; 
   }
  }
</script>
<STYLE>#flashcontent P {
	COLOR: #000
}
#foot {
	DISPLAY: block; MARGIN: 0px auto; WIDTH: 720px
}
</STYLE>

<META content="MSHTML 6.00.3790.0" name=GENERATOR></HEAD>
<BODY>
<DIV id=append_parent></DIV>
<DIV id=wrap>
<!--#include file="top.asp" -->

<DIV class=main>
<!--#include file="right.asp" -->
<DIV class=main-box-4>
<DIV class=box-top>
<DIV></DIV></DIV>
<DIV class=nav>我的位置：<A href="<%=cityurl%>">首页</A> &raquo; <A 
href="index.asp?id=<%=id%>"><%=rs3(""&WebSqlType&"_username")%>的个人空间</A> &raquo; <STRONG><%=rs3(""&WebSqlType&"_username")%>的网友评论</STRONG></DIV>
<DIV class=box>
<TABLE class=title cellSpacing=0 cellPadding=0 width="100%" border=0>
  <TBODY>
  <TR>
    <TD width="14" class=title-l></TD>
    
    <TD width="816"><%=rs3(""&WebSqlType&"_username")%>的个人档案</TD>
	<TD width="116"><!-- <a href="/bbs/bbs_add.asp">发布新贴子</a> -->&nbsp;</TD>
    <TD width="14" class=title-r></TD></TR></TBODY></TABLE>

        <TABLE width=90% border=0 align="center" cellPadding=6 cellSpacing=0 borderColor=#111111 
      style="BORDER-COLLAPSE: collapse">
          <TBODY>

            <TR align="left">
              <TD height=30 colspan="2" style="border-bottom:1px solid red; "><DIV class=tablehead><B class=tableheadr>给我留言 </B></DIV></TD>
            </TR>
			 <FORM id="book" name="leavewordForm" action="server.asp " method="post"> 
			 <INPUT type=hidden value=<%=id%> name=id>
              <INPUT type=hidden value=1 name=key>
            <TR> 
              <TD width=17% height=25 align=right><span class="STYLE1">内容 ：</span></TD>
              <TD height=25 align=left style="border-bottom:1px solid #cccccc; ">

<INPUT type=hidden 
value="book.asp?id=<%=id%>" name="url"> <TEXTAREA name=book cols="80" rows=5 id=input_words onKeyUp="return textLimitCheck(this,500);"></TEXTAREA>



             </TD>
            </TR>


            
            <TR> 
              <TD width=17% height=25 align=right><span class="STYLE1"></span></TD>
              <TD width=83% height=25 align=left style="border-bottom:1px solid #cccccc; "><INPUT id=btn_post type=submit value=发表留言 name=Submit> 
              </TD>
            </TR>
</form>
            <TR align="center"  valign="bottom"> 
              <TD height=10 colSpan=2></TD>
            </TR>
          </TBODY>
        </TABLE>
        <table width="90%" border="0" align="center" cellpadding="6" cellspacing="0" bordercolor="#111111" 
      style="BORDER-COLLAPSE: collapse">
          <tbody>
            <tr align="left">
              <td height="13" colspan="2" style="border-bottom:1px solid red; ">
                <div class="tablehead"><b class="tableheadr">查看评论 </b></div></td>
            </tr>
<%set rs=server.createobject("adodb.recordset")
sql="select * from "&WebSqlType&"_book where "&WebSqlType&"_key=1 and "&WebSqlType&"_userid="&id&" order by "&WebSqlType&"_id desc"
rs.open sql,conn,1,1
do while not rs.eof
%>
			
            <tr>
              <td width="17%" height="25" align="right" ><span class="STYLE1"><A 
href="index.asp?id=<%=rs(""&WebSqlType&"_user")%> " target=_blank><%=rs(""&WebSqlType&"_username")%></A> 说：</span></td>
              <td height="25" align="left" style="border-bottom:1px solid #cccccc; "><%=rs(""&WebSqlType&"_book")%></td>
            </tr>
<%
rs.movenext
loop
rs.close%>

            <tr align="center"  valign="bottom">
              <td height="10" colspan="2">
              </td>
            </tr>
          </tbody>
        </table>

</DIV>
<DIV class=box-bot>
<DIV></DIV></DIV></DIV></DIV>
<DIV id=bot><!--#include file="../bottom.asp" --></DIV>
<DIV id=wrap-bot>
<DIV></DIV></DIV></DIV>
</BODY></HTML>
<%rs3.close%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -