📄 eof.asp

📁 网络书生留言本单用户 v1.0 正式版源码,大家下了就知道怎么用了!
💻 ASP
字号:
<%   
dim u_name,u_email,u_oicq,u_page,u_pageurl,u_news,u_style,u_pagenum,u_ipset
set rs=server.createobject("adodb.recordset")
rs.open "select u_name,u_email,u_oicq,u_page,u_pageurl,u_news,u_style,u_pagenum,u_ipset from [user]",conn,1,1
if not(rs.eof and rs.bof) then
u_name=rs("u_name")
u_email=rs("u_email")
u_oicq=rs("u_oicq")
u_page=rs("u_page")
u_pageurl=rs("u_pageurl")
u_news=rs("u_news")
u_style=rs("u_style")
u_pagenum=rs("u_pagenum")
u_ipset=rs("u_ipset")
rs.close
else
response.Redirect("error.htm")
end if
if u_style="" or not isNumeric(u_style) then
u_style=0
end if
%>
<HTML>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>欢迎光临◆网络书生◆留言本</title>
<LINK rel="stylesheet" href="styles/<%=Cint(u_style)%>.css" type="text/css">
<META name="qzenet" content="◆网络书生◆">
</head>

<BODY leftmargin="0">
<table width="600" border="0" align="center" cellpadding="0" cellspacing="0" class="tablee1">
  <tr> 
    <td height="20" valign="bottom"> <table width="100%" border="0" cellpadding="1" cellspacing="1">
        <tr align="center"> 
          <td width="100" class="s_eof"><img src="images/page.gif" width="16" height="18">
		  <a href="/" class="e" title="◆网络书生◆欢迎您" target="_blank">书生首页</a></td>
          <td width="100" class="s_eof"><img src="images/gbhome.gif" width="12" height="12"> 
            <a href="guestbook.asp" class="e" title="<%=u_page%>的留言本首页">留言首页</a></td>
          <td width="100" class="s_eof"><img src="images/admin.gif" width="12" height="12"> 
            <%if request.Cookies("qzenetgbuser")<>"" then
		  response.Write("<a href='gbset.asp' class='e' title='系统信息设置、模板选择等'>系统设置</a>")
		  else
		  response.Write("<a href='login.asp' class='e' title='登陆管理您的留言本'>管理登陆</a>")
		  end if%>
          </td>
          <td width="100" class="s_eof"> 
            <%if request.Cookies("qzenetgbuser")<>"" then
			response.Write("<img src='images/edit.gif' width='12' height='12'>")
		    response.Write("&nbsp;<a href='edit.asp' class='e' title='修改您注册时填写的个人资料'>修改资料</a>")
		     end if%>
          </td>
          <td width="100" align="center" class="s_eof"> 
            <%if request.Cookies("qzenetgbuser")<>"" then
			response.Write("<img src='images/out.gif' width='12' height='12'>")
		  response.Write("&nbsp;<a href='exit.asp' class='e' title='安全退出您的留言本管理！'>退出管理</a>")
		  end if%>
          </td>
          <td align="right" class="s_eof"> 
            <%response.Write("·<a href='"&u_pageurl&"' target='_blank' class='e' title='欢迎访问："&u_page&"'>"&u_page&"</a>·")%>
          </td>
        </tr>
      </table></td>
  </tr>
</table>
<table width="600" height="20" border="0" align="center" cellpadding="0" cellspacing="0" class="tablee2">
  <tr> 
    <td width="60" align="center" class="s_in"><strong>公告：</strong></td>
    <td class="gg">
	<marquee scrollamount="2" width="480" direction="left">
      <%response.Write(u_news)%>
      </marquee> </td>
    <td width="60" align="center" class="s_in"> 
      <%if request.Cookies("qzenetgbuser")<>"" then
		  response.Write("<b><a href='gg.asp' class='i' title='有什么新的事情要公布的话就马上写哦^-^'>写公告</a></b>")
		  end if
		  %>
    </td>
  </tr>
</table>
⌨️ 快捷键说明

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