📄 index.asp

📁 九酷网络个人主页系统破解版
💻 ASP
字号:
<!--#include file="../conn.asp"-->
<%
dim username
if request("username")<>empty then Response.Cookies("gbuser")=request("username")
username=Request.Cookies("gbuser")
If conn.Execute("select * from [gbuser] where username='"&username&"' and state=True" ).eof Then
response.write "<script language=javascript>alert( ""没有这个用户，或者此用户留言本已经关闭！"");;location.href='javascript:history.back()'</script>"
response.end
end if
%>
<HTML><HEAD><TITLE><%=conn.Execute("select sitename from [gbuser] where username='"&username&"'")(0)%>——留言本</TITLE>
<META http-equiv=content-type content="text/html; charset=gb2312">
<LINK href="images/style.css" type=text/css rel=stylesheet>
<script language="javascript" src="../js/title.js"></script>
</HEAD>
<BODY leftMargin=0 topMargin=0 marginwidth="0" marginheight="0">
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
  <TBODY>
  <TR>
    <TD width=54><IMG src="images/topleft.gif"></A></TD>
    <TD width=296><IMG 
      src="images/logo.gif" border=0></TD>
    <TD background=images/topright.gif>&nbsp;<%=Conn.Execute("select uphtml from [gbuser] where username='"&username&"'")(0)%></TD>
  </TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=6 width="99%" align=center bgColor=#ffffff 
border=0>
  <TBODY>
    <TR>
      <TD><A href="index.asp?username=<%=username%>"><%=username%>的留言本</A></TD>
    </TR>
  </TBODY>
</TABLE>
<%
sql="select * from [gbook] where username='"&username&"' order by id desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
	response.Write "<table border=0 height=60 align=center><tr><td align=center>当前还没有留言，<a href=post.asp>按此给我留言！</a></td></tr></table>"
else
session("pagegb")="username="&username&""
pagesetup=15 '设定每页的显示数量
rs.pagesize=pagesetup
TotalPage=rs.pagecount  '总页数
PageCount = cint(Request.QueryString("ToPage"))
if PageCount <1 then PageCount = 1
if PageCount > TotalPage then PageCount = TotalPage
if TotalPage>0 then rs.absolutepage=PageCount '跳转到指定页数
%>
<TABLE cellSpacing=1 cellPadding=4 width="99%" align=center bgColor=#41b1e3 
border=0>
  <TR height=24>
    <TD align=middle width="4%" background=images/tablehead.gif>表情</TD>
    <TD align=middle width="50%" background=images/tablehead.gif>主题</TD>
    <TD align=middle width="10%" 
background=images/tablehead.gif>留言人</TD>
    <TD align=middle width="5%" background=images/tablehead.gif>人气</TD>
    <TD align=middle width="5%" background=images/tablehead.gif>长度</TD>
    <TD align=middle width="20%" 
    background=images/tablehead.gif>留言时间</TD></TR>
	<%
i=0
Do While Not RS.EOF and i<pagesetup
i=i+1 %>
  <TBODY>
  <TR align=middle bgColor=#ffffff>
    <TD><img src="images/icon<%=rs("face")%>.gif" width="19" height="19" border="0"></TD>
    <TD align=left><table width="100%"  border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td width="90%"><a href="read.asp?id=<%=rs("id")%>"><%=rs("title")%></a></td>
        <td width="10%" align="center"><%if Request.Cookies("9cool_username")=username then
		Response.Write("<a href='del.asp?id="&rs("id")&"' onClick=""return confirm('确定要删除此条留言吗？');""><img src=../images/delete.gif border=0></a><a href='reply.asp?id="&rs("id")&"'><img src=../images/reply.gif border=0></a>")
		end if%></td>
      </tr>
    </table></TD>
    <TD align=left><%=rs("name")%></TD>
    <TD align=middle><%=rs("hits")%></TD>
    <TD align=middle><%=len(rs("content"))%></TD>
    <TD align=middle><%=rs("posttime")%></TD></TR>
  </TBODY>
  <%
rs.movenext
loop
rs.close
set rs=nothing
%></TABLE>

<table width="99%" border="0" cellspacing="0" cellpadding="4" align="center">
  <tr bgcolor="#ffffff">
    <td>[<b>共有
<font color="990000"><%=TotalPage%></font> 页
<script>
ShowPage(<%=TotalPage%>,<%=PageCount%>,"<%=session("pagegb")%>")
</script>
</b>]</td>
  </tr>
</table>
<%
end if
%>
<TABLE cellSpacing=1 cellPadding=4 width="99%" align=center border=0>
  <TBODY>
  <TR height=5>
    <TD colSpan=2></TD></TR>
  <TR height=43>
    <TD background=images/tabletail.gif height=43>&nbsp; </TD>
    <TD align=right background=images/tabletail.gif><a href="post.asp"><IMG 
      src="images/buttonpost.gif" border=0></A> </TD>
  </TR></TBODY>
<TABLE>
  <TBODY></TBODY></TABLE>
  <TBODY></TBODY></TABLE>
<TABLE cellSpacing=1 cellPadding=4 width="99%" align=center border=0>
  <TBODY>
  <TR>
    <TD align=center><%=Conn.Execute("Select downhtml From [gbuser] where username='"&username&"'")(0)%></TD>
  </TR></TBODY></TABLE>
<TABLE>
  <TBODY></TBODY></TABLE>
</BODY></HTML>
⌨️ 快捷键说明

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