⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 liyu_txt.asp

📁 一个用jsp 编写的个人主页网站哦。希望对大家有所帮助啊
💻 ASP
字号:
<!--#include file="conn.asp" -->
<!--#include file="ubbcode.asp" -->
<%
id=Trim(Request.QueryString("id"))
action=Trim(Request.QueryString("action"))
sql="select * from dairy where id="&id
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,3
if action="" then
%>
<HTML>
<HEAD>
<TITLE><%=liyutitle%></TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META content="MSHTML 6.00.2900.3059" name=GENERATOR>
<link href="diary.css" rel="stylesheet" type="text/css">
</HEAD>

<BODY bgColor=#ffffff background="LY2LF/bg.gif" text=#787878 leftMargin=0 topMargin=0 marginwidth="0" marginheight="0">
<TABLE cellSpacing=0 cellPadding=0 width=590 align=center border=0>
<TBODY>
<TR>
<TD height=558 valign="top"> 
<TABLE height="160" cellSpacing=0 cellPadding=0 width=11 border=0>
<TBODY>
<TR>
<TD bgColor=#f4f4f4 height=160> 
<DIV id=menu><UL class=9ptvsh>
<br>写<br>给<br>一<br>个<br>人<br>de<br>日<br>记<br>|<br>|<br>梦<br>想<br>不<br>死<BR><br>
</UL></DIV>
</TD></TR></TBODY></TABLE>
</TD>
<TD width=590 rowSpan=2><TABLE cellSpacing=0 cellPadding=0 width=590 align=center background="LY2LF/bg1.png" border=0>
<TBODY>
<TR> 
 <TD height=57>
<TABLE cellSpacing=0 cellPadding=0 width="100%" align=center border=0><TBODY><TR><TD></TD></TR></TBODY>
</TABLE>

<DIV align=center> 

<TABLE height=32 cellSpacing=0 cellPadding=0 width=430 align=center border=0>
<TBODY>
<TR> 
<TD> 
<DIV align=center><IMG height=85 src="LY2LF/clover.png"border=0 ></DIV></TD>
</TR>
</TBODY>
</TABLE>
</DIV>

</TD>
</TR>
<TR> 
<TD>
<DIV align=center> 
                  <TABLE height=420 cellSpacing=0 cellPadding=0 width=480 align=center border=0>
                    <TBODY>
<TR> 
                        <TD height=167 valign="top"> 
                          <DIV align=center>
                            <table height="20" border="0" cellpadding="0" cellspacing="0" bgcolor="#93C9FF">
                              <tr>
                                <td align="center"><font color=#FF6600><img src=<%= rs("xq") %> alt="主题" width="19" height="19" border="0" align="absmiddle"></font><font color="#FFCCcc" size="3"><b><%=rs("title")%></b></font><font color=#FF6600><img src=<%= rs("xq") %> alt="主题" width="19" height="19" border="0" align="absmiddle"></font></td>
                              </tr>
                            </table>
                          </DIV>


<DIV align=right> 
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="70"><%= rs("dateandtime") %> | <img src="<%= rs("tianqi") %>" alt="天气" border="0" align="absmiddle"> | <img src=LY2LF/<%= rs("userid") %>.gif alt="我们" width="19" height="19" border="0" align="absmiddle"><br>
</td>
</tr>
</table>

<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr> 
<td>
<%
If Rs("sdk")=1 then
if session("admin")="liyu" then
	                     content=rs("content")
		   CONTENT=htmlcode(CONTENT)
		   CONTENT=UBBCODE(CONTENT)
		   
		   'content=replace(content,chr(13),"<br>")
		   'content=replace(content,chr(32),"&nbsp;")
		   Response.Write(content)
end if
	        response.Write("此日记是保密日记,未登陆不得查阅!")
Else
	                     content=rs("content")
		   CONTENT=htmlcode(CONTENT)
		   CONTENT=UBBCODE(CONTENT)
		   
		   'content=replace(content,chr(13),"<br>")
		   'content=replace(content,chr(32),"&nbsp;")
		   Response.Write(content)
End If 
%>
</td>
</tr>
</table>
</DIV>

</TD></TR></TBODY></TABLE></DIV>
                <DIV align=center>
<script>
function autoResize()
{
	try
	{
		document.all["test"].style.height=test.document.body.scrollHeight
	}
	catch(e){}
}
</script> <iframe id=test style="height:expression(1); aho:expression(autoResize())" valign=top frameborder=no scrolling="no" src="plugin/pl/pinglun.html?id=<%=rs("id")%>" width=540></iframe> 
<img src="images/txtbg.gif" width=555></DIV></TD></TR>
</TBODY></TABLE>
</TD></TR><TR><TD></TD></TR>
</TBODY></TABLE>
</BODY>
</HTML>
<%end if%>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>

⌨️ 快捷键说明

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