book.asp

设计考虑校园电子商务模式

<%
'****************************************************
' 多多校园                      Power by ddtaobao.com
' Email:[e-mail]               OICQ:136465584 
' Web: http://www.ddtaobao.com              作者:多多
' 校园、企业、医院、公司程序定做，系统开发，网站制作!
' Copyright (C) 2007 ddtaobao.com All Rights Reserved
'****************************************************
%><!--#include file="top.asp"--><TABLE width=778 border=0 cellpadding="0" cellspacing="0" align=center> 
  <TBODY>
    <TR align="center">    <TD vAlign=top  width=182>
<TABLE cellSpacing=0 cellPadding=0 width="182" border=0>
          <TBODY>
            <TR> 
              <TD class=right_title_bs06 align=center>会　员　登　陆</TD>
            </TR>
            <TR> 
              <TD> <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
                  <TBODY>
                    <TR> 
                      <TD >

  <% call ShowUserLogin() %>
</TD>
                    </TR>
                  </TBODY>
                </TABLE></TD>
            </TR>
           
        
            
             
            </TABLE>
         </TD><td class=line></td>
         <td width=*>
<%
With Response
.Write"<table cellpadding=0 cellspacing=1 class=tableborder1 align='center'>" & Vbcrlf
.Write"	<tr >" & Vbcrlf
.Write"		<td width='100%' height='25' class=tablebody1>&nbsp;您现在的位置：<a href='default.asp'>网站首页</a>&gt;&gt;<a href='book.asp'>意见留言</a></td>" & Vbcrlf
.Write"	</tr>" & Vbcrlf
.Write"</table>" & Vbcrlf
.Write"<table border='0' width='100%' cellspacing='0' cellpadding='0'>" & Vbcrlf
.Write"	<tr>" & Vbcrlf
.Write"		<td class=tablebody1>" & Vbcrlf
.Write"		<p align='right'>" & Vbcrlf
.Write"		<a href=write.asp><img border='0' src='images/write.gif' ></a></td>" & Vbcrlf
.Write"	</tr>" & Vbcrlf
.Write"</table>" & Vbcrlf
set rs=server.CreateObject("adodb.recordset")
sql="select * from [dd_book] where userid=0 and bookfont=1 order by ID desc"
rs.open sql,conn,1,1
  if rs.bof then
.Write"<table cellpadding=0 cellspacing=0 class=tableborder1 align='center'>" & Vbcrlf
.Write"	<tr >" & Vbcrlf
.Write"		<td width='100%' height='25' class=tablebody1>" & Vbcrlf
.Write"		<p align='center'>暂时没有留言 </td>" & Vbcrlf
.Write"	</tr>" & Vbcrlf
.Write"</table><br>" & Vbcrlf
else
rs.pagesize=10
currentpage=Clng(request("page"))
if currentpage<1 then currentpage=1
if currentpage>rs.pagecount then currentpage=rs.pagecount
rs.absolutepage=currentpage
Do While Not rs.Eof

.Write"<table cellpadding=0 cellspacing=1 class=tableborder1 align='center'>" & Vbcrlf
.Write"	<tr >" & Vbcrlf
.Write"		<td width='15%' rowspan='2' valign='top' class=tablebody1>" & Vbcrlf
.Write"		<table border='0' width='100' cellspacing='0'align='center' cellpadding='0'>" & Vbcrlf
.Write"			<tr>" & Vbcrlf
.Write"				<td align='center' colspan='2' height=100>" & Vbcrlf
.Write"				<img border='0' src='"&rs("face")&"' ></td>" & Vbcrlf
.Write"			</tr>" & Vbcrlf
.Write"			<tr>" & Vbcrlf
.Write"				<td align='center' height='25' width='50%'>" & Vbcrlf
.Write"				<img border='0' src='images/home.gif' ></td>" & Vbcrlf
.Write"				<td align='left' height='25' width='50%'>" & Vbcrlf
.Write"				<a href="&rs("home")&" target=_blank>我的主页</a></td>" & Vbcrlf
.Write"			</tr>" & Vbcrlf
.Write"			<tr>" & Vbcrlf
.Write"				<td align='center' height='25' width='50%'>" & Vbcrlf
.Write"				<img border='0' src='images/email.gif'></td>" & Vbcrlf
.Write"				<td align='left' height='25' width='50%'>" & Vbcrlf
.Write"				<a href='mailto:"&rs("email")&"'>写信给我</a></td>" & Vbcrlf
.Write"			</tr>" & Vbcrlf
.Write"			<tr>" & Vbcrlf
.Write"				<td align='center' height='25' width='50%'>" & Vbcrlf
.Write"				<img border='0' src='images/qq.gif' ></td>" & Vbcrlf
.Write"				<td align='left' height='25' width='50%'>" & Vbcrlf&rs("qq")&"</td>" & Vbcrlf
.Write"			</tr>" & Vbcrlf
.Write"		</table>" & Vbcrlf
.Write"		</td>" & Vbcrlf
.Write"		<td width='79%' height='79' valign='top' class=tablebody1>" & Vbcrlf
.Write"		<table border='0' width='100%' cellspacing='0' cellpadding='0' height='24'>" & Vbcrlf
.Write"			<tr>" & Vbcrlf
.Write"				<td>&nbsp;"&rs("write")&" ("&rs("date")&")&nbsp;的留言</td>" & Vbcrlf
.Write"			</tr>" & Vbcrlf
.Write"		</table>" & Vbcrlf
.Write"		<table border='0' width='100%' cellspacing='0' cellpadding='0' height='25'>" & Vbcrlf
.Write"			<tr>" & Vbcrlf
.Write"				<td height='1' valign='top'>" & Vbcrlf
.Write"				<hr color='"&table&"' size='1' width='99%'></td>" & Vbcrlf
.Write"			</tr>" & Vbcrlf
.Write"			<tr>" & Vbcrlf
.Write"				<td>&nbsp;<img border='0' src='"&rs("emot")&"'> "
.Write"				"&rs("title")&"</td>" & Vbcrlf
.Write"			</tr>" & Vbcrlf
.Write"		</table>" & Vbcrlf
.Write"		<table border='0' width='100%' cellspacing='0' cellpadding='0' height='25'>" & Vbcrlf
.Write"			<tr>" & Vbcrlf
.Write"				<td class=tablebody1>&nbsp;"
if rs("show")=1 then
.Write"<font color=red>秘密留言</font>" & Vbcrlf
else
.Write""&rs("content")&""
end if
.Write"			</td></tr>" & Vbcrlf
.Write"		</table>" & Vbcrlf
if rs("admincontent")<>" & Vbcrlf" then
.Write"		<table border='0' width='100%' cellspacing='0' cellpadding='0' height='25'>" & Vbcrlf
.Write"			<tr>" & Vbcrlf
.Write"				<td class=tablebody1>&nbsp;<font color=red>回复：</font>" & Vbcrlf&rs("admincontent")&"</td>" & Vbcrlf
.Write"			</tr>" & Vbcrlf
.Write"		</table>" & Vbcrlf
end if
.Write"		</td>" & Vbcrlf
.Write"	</tr>" & Vbcrlf
.Write"	<tr >" & Vbcrlf
.Write"		<td width='79%' height='25' class=tablebody1>&nbsp;<img border='0' src='images/ip.gif'  >&nbsp;"&rs("ip")&" </td>" & Vbcrlf
.Write"	</tr>" & Vbcrlf
.Write"</table>" & Vbcrlf
.Write"<br>" & Vbcrlf
i=i+1
rs.MoveNext
If i>=rs.pagesize Then Exit Do
Loop 
end if 
.Write"	<table cellpadding=0 cellspacing=1  class=tableborder1 align='center'>" & Vbcrlf
.Write"		<tr >" & Vbcrlf
.Write"			<td width='100%' height='25' colspan='3' class=tablebody1><form name='form1' method='post' action='book.asp'>" & Vbcrlf
.Write"			<p align=center>共有:<font color=red>" & Vbcrlf&rs.recordcount&"</font>信息 &nbsp;&nbsp;<a href=book.asp>首页</a>&nbsp; " 
.Write"	         <a href=book.asp?page="&currentpage-1&"> 上一页</a>&nbsp; <a href=book.asp?page="&currentpage+1&"> "
.Write"	         下一页</a>&nbsp;  <a href=book.asp?page="&rs.pagecount&">尾页</a>&nbsp;&nbsp;&nbsp;&nbsp;转到 "  
.Write"	         <input name='page' type='text' id='page' value='"&currentpage&"' size='4'> "
.Write"	         &nbsp; <input type='submit' name='Submit' value='GO'> <input name='search' type='hidden' id='search' value='"&search&"'> " 
.Write"	          <input name='key' type='hidden' id='key' value='"&key&"'>" & Vbcrlf		
.Write"			　</td>" & Vbcrlf
.Write"		</tr> </form> "
.Write"	</table>" & Vbcrlf
rs.close
end with
%></td></tr></TBODY>
        </TABLE>
     
<!--#include file="bottom.asp"-->