📄 read.asp

📁 九酷网络个人主页系统破解版
💻 ASP
字号:
<!--#include file="../conn.asp"-->
<%
username=Request.Cookies("gbuser")
id=cint(request("id"))
if username="" or id="" then
response.write "<script language=javascript>alert( ""程序出错！"");location.href='javascript:history.back()'</script>"
		response.end
	end if
sql="select * from [gbook] where username='"&username&"' and  id="&id
rs.open sql,conn,1,3
	if rs.bof then
		response.write "<script language=javascript>alert( ""找不到此留言，或者留言记录已经删除！"");location.href='javascript:history.back()'</script>"
		response.end
	end if
rs("hits")=rs("hits")+1
rs.update
%>
<HTML><HEAD><TITLE>查看留言</TITLE>
<META http-equiv=content-type content="text/html; charset=gb2312"><LINK 
href="images/style.css" type=text/css rel=stylesheet>
</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> 
      -&gt; 查看留言 </TD>
</TR></TBODY></TABLE>
<TABLE cellSpacing=1 cellPadding=8 width="99%" align=center bgColor=#41b1e3 
border=0>
  <TBODY>
  <TR >
    <TD colSpan=2 align=left background="images/tabletail.gif">留言主题: <%=rs("title")%></TD>
  </TR>
  <TR align=left bgColor=#ffffff>
    <TD width="15%" align=middle vAlign=top bgcolor="#ffffff">留言人:<%=rs("name")%><BR>
      <BR>
      <%
	  select case rs("sex")
	  case 1
	  Response.Write("<img src=images/boy.gif border-0")
	  case 0
	  Response.Write("<img src=images/girl.gif border-0")
	  end select
	  %>
	  <BR><BR>
      IP: <%
if username=Request.Cookies("9cool_username") then
Response.Write rs("postip")
else
getip=split(rs("postip"),".")
for i=0 to 2
Response.Write getip(i)&"."
next
Response.Write "*"
end if
%><BR>
    <BR></TD>
    <TD align=left>
      <TABLE cellPadding=30 width="100%">
        <TBODY>
        <TR>
          <TD align=left><img src="images/icon<%=rs("face")%>.gif" width="19" height="19" border="0"> 
            <%=rs("content")%><BR>
            <BR>
            <HR width="30%" color=#41b1e3 SIZE=1>
            留言时间: <%=rs("posttime")%><BR>
            站长回复：<font color=red><%if rs("recontent")<>"" then
		  Response.Write rs("recontent")
		  else
		  Response.Write("暂未回复")
		  end if
		  %></font></TD>
        <TR></TR></TBODY></TABLE></TD></TR>
  </TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="99%" align=center border=0>
  <TBODY>
  <TR height=6>
    <TD></TD></TR>
  <TR height=43>
    <TD width="60%" background=images/tabletail.gif>&nbsp;&nbsp; </TD>
    <TD align=right background=images/tabletail.gif><%
	if username=Request.Cookies("9cool_username") then
	Response.Write "<a href=reply.asp?id="&rs("id")&"><img src=images/replying.gif border=0></a>"
	end if%> <A 
      href="index.asp?username=<%=rs("username")%>"><IMG 
      src="images/return.gif" border=0></A> </TD>
  </TR></TBODY></TABLE>
<TABLE cellSpacing=1 cellPadding=4 width="99%" align=center border=0>
  <TBODY>
    <TR>
      <TD align=center>&nbsp;<%=Conn.Execute("Select downhtml From [gbuser] where username='"&username&"'")(0)%></TD>
    </TR>
  </TBODY>
</TABLE>
</BODY></HTML>
⌨️ 快捷键说明

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