gbook.asp

青岛分类信息网整合企业名录.供大家分享

email=""                                                                                                                                           
qq=""                                                                                                                                           
web=""                                                                                                                                           
come=""                                                                                                                                           
if rs("email")="" then                                                                                                                                           
email=rs("name") & " 没有留下电子邮件"                                                                                                                                           
else                                                                                                                                           
email=rs("name") & " 的电子邮件是: "&rs("email")                                                                                                                                           
end if                                                                                                                                           
                                                                                                                      
if rs("web")="" or rs("web")="http://" then                                                                                                                                           
web=rs("name") & " 暂时没有主页"                                                                                                                                           
else                                                                                                                                           
web=rs("name") & " 的主页是: "&rs("web")                                                                                                                                           
end if                                                                                                                                           
      
if rs("qq")="" or len(rs("qq"))<4 then                                                                                                                                           
qq=rs("name") & "&nbsp;没有留下QQ号"                                                                                                                                           
else                                                                                                                                           
qq=rs("name") & "&nbsp;的QQ号是:&nbsp;"&rs("qq")                                                                                                                                           
end if                                                                                                                                           
                                                                                                                     
  words=rs("words")                                                                                                                                           
  if rs("reply")<>"" then reply=rs("reply")                                
  If Session("Admin") = "Login" Then                               
  theip=Rs("ip")                                
  else                               
  shuzu=split(Rs("ip"),".")                                
  theip=shuzu(0)&"."&shuzu(1)&"."&shuzu(2)&".xxx"                               
  end if                                                                                                                                          
  %>                                                                                                                                           
<table width="700" border="1" align="center" cellspacing="0" style="border-collapse:collapse" bordercolor="#006699">                                                                                                                                           
  <tr>                                                                                                                                            
    <td width="100%" height="59" colspan="2" valign="top">                                                                                                                                            
      <table width="100%" border="0" cellpadding="0" cellspacing="0">                                                                                                                                           
        <tr>                                                                                                                                            
          <td width="39%" height="22" background="images/menu_bj.gif">&nbsp; <!--【<%=lou %>】--><font style="font-size:14px"><b>访客：</b></font><font color="#006699"><%=rs("name")%></font></td>                                                                                                                                            
          <td width="61%" height="22" background="images/menu_bj.gif"> <div align="right"> <font color="#006699"><%=Rs("date")%><!--&nbsp;&nbsp;&nbsp;IP:<%=theip%>--></font>&nbsp;&nbsp;                                                                                                                                                
              <% If Session("Admin") = "Login" Then %>                                                                                                                                               
                <a href="gbook.asp?action=Edit&id=<%=Rs("id")%>"><img src="images/reply.gif" alt="编辑回复" width="16" height="16" border="0"></a>                                                                                                                                               
              <a href="gbook.asp?action=Delete&id=<%=Rs("id")%>" onClick="return confirm('确定要删除吗？\n\n该操作不可恢复！')"><img src="images/del.gif" alt="删除留言" width="15" height="15" border="0"></a>                                                                                                                                                
              <% end if %>                                                                                                                                               
            </div></td>                                                                                                                                               
        </tr>                                                                                                                                               
        <tr>                                                                                                                                                
          <td colspan="2" background="images/textbg.jpg"> <table width="98%" border="0" align="center" cellpadding="0" cellspacing="0" height="60">                                                                                                                                               
              <tr>                                                                                                                                                
                <td width="15%">                                                                                                                                                
                  <p align="center">                                                                                                                                               
                  <%if rs("sex")="1" then %>                                                                               
                   <img src="images/male.gif" <%if rs("come")<>"" then %>alt="<%=rs("come")%>"<% end if %>>                                                                                                                                            
                  <% else %>                                                                                
                  <img src="images/female.gif">                                                                                                                                              
                  <% end if %>                                                                                                                                               
                  </p>                                                                               
                </td>                                                                                                                                               
                <td width="85%" valign="top">                                                                                                                                                
                  <p style="margin-top: 8">                                                                                                                                               
                  <% if webyn=1 and rs("view")=1 then %>                                                                                                                                              
                  <%=Ubb(unHtml(words))%>                                                                                                                                               
                  <% if reply<>"" then%>                                                                                                                       
                  <!--<br><font color="#919191">-------------------------------------------------------------------------------------------------------------------</font>-->                                                                                                                                           
                  <p style="margin-top: 8"><font color="#800000">回复：                                                                                                                                             
                  <%=Ubb(unHtml(reply))%></font>                                                                                                                                               
                  <%end if %>                                                                                                                                               
                  <%end if %>                                                                                                                                               
                  <% if webyn<>1 then %>                                                                                                                                               
                  <font color="#800000"><%=Ubb(unHtml(words))%></font>                                                                                                                                                
                  <% if reply<>"" then%>                                                                                                                                               
                  <!--<br><font color="#919191">-------------------------------------------------------------------------------------------------------------------</font>-->                                                                                                                                            
                  <p style="margin-top: 8"><font color="#800000">回复：                                                                                                                                              
                  <%=Ubb(unHtml(reply))%></font>                                                                                                                                                
                  <%end if %>                                                                                                                                               
                  <%end if %>                                                                                                                                               
                  <% if webyn=1 and rs("view")=0 then %>                                                                                                                                               
                  恭喜您留言成功，请等待我们的答复。                                                                                                                                                
                  <%end if %>                                                                                                                                               
                  </p>                                                                                                              
                </td>                                                                                                                                               
              </tr>                                                                                                                                               
            </table></td>                                                                                                                                               
        </tr>                                                                                                                                               
      </table> </td>                                                                                                                                               
  </tr>                                                                                                                                               
</table>                                                                                                                                               
<br>                                                                                                                                               
<%                                                                                                                                               
	    lou=lou-1	                                                                                                                                                
		rs.movenext                                                                                                                                               
    	loop                                                                                                                                               
		Rs.Close                                                                                                                                               
		Set Rs = Nothing                                                                                                                                               
		%>                                                                                                                                               
<table width="700" border="0" cellspacing="0" cellpadding="0" align="center">                                                                                                                                               
  <tr>                                                                                                                                                
    <td height="20" align="right"> <div align="right">有<%=gbcount %>条留言 共<%=y %>页 分页                                                                                                                                                
        <% if page2>1 then %>                                                                                                                                               
        <a href="gbook.asp?page=<%=((page2-1)*x)-(x-1) %>&k=<%=page2-1%>">前<%=x%>页</a>                                                                                                                                                
        <% end if %>                                                                                                                                               
        <% For m =((page2)*x)-(x-1) To k %>                                                                                                                                               
        [<a href="gbook.asp?page=<%=m%>&k=<%=page2%>"><%=m%></a>]                                                                                                                                                
        <%                                                                                                                                               
    Next                                                                                                                                               
    %>