📄 wz1.asp
字号:
<%@LANGUAGE="VBScript" codepage="936"%>
<!--#include file="conn.asp"-->
<!-- #include file="bh.asp" -->
<!-- #include file="ubbcode.asp" -->
<%
Function HTMLEncode(Str)
Str=Replace(Str,"<","<")
Str=Replace(Str,">",">")
Str=Replace(Str," "," ")
HTMLEncode=Str
End Function
'**********************************************************
' RanRan 1.0 Free Power by 21wan.cn
' Email:shiluo@lianluo.com OICQ：1019257
' 网站: http://www.21wan.cn 演示：http://www.21wan.cn
'**********************************************************
set rs=server.createobject("adodb.recordset")
id=Request.QueryString("id")
sqlrenqi="update wz set renqi=renqi+1 where id="&id
conn.execute(sqlrenqi)
sql="select * from wz where id="&id
rs.open sql,conn,2,3
%>
<html>
<head>
<script language=javascript>
var currentpos,timer;
function initialize()
{
timer=setInterval("scrollwindow()",90);
}
function sc(){
clearInterval(timer);
}
function scrollwindow()
{
currentpos=document.body.scrollTop;
window.scroll(0,++currentpos);
if (currentpos != document.body.scrollTop)
sc();
}
document.onmousedown=sc
document.ondblclick=initialize
</script>
<meta http-equiv="Page-Exit" content="revealTrans(Duration=0.8,Transition=<%response.write web_dim(13)%>)">
<link href="skin_1.css" rel="stylesheet" type="text/css">
<title>RanRan</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
.te1 {
background-color: #F9F9F9;
margin: 4px;
padding: 4px;
border: 1px dotted #006699;
}
-->
</style>
</head>
<body>
<p><img src="../Images/apperceive.jpg" alt="1" width="353" height="40" /></p>
<table width="610" border="0" cellspacing="0">
<tr>
<td width="520"><table width="604" border="0" align="center" cellspacing="0">
<tr>
<td width="602"><p> </p>
<p>当前位置：<A href="blog.asp" target="index_1">感悟心灵</A> - <a href="javascript:history.go(-1)"><%=rs("fenlei")%></a> - <font color="#006699"><%=rs("title")%></font></p></td>
</tr>
</table></td>
</tr>
<tr>
<td><table width="611" border="0" align="center" cellpadding="3" cellspacing="0">
<tr>
<td background="images/heng-dian.gif" height="1"></td>
</tr>
<tr>
<td width="396" height="3"></td>
</tr>
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="5" style="table-layout:fixed">
<tr>
<td class="xndyk"><pre style="word-break:break-all; word-wrap:break-word; width:600px;"><%=UBBCode(HTMLEncode(rs("text")))%></pre></td>
</tr>
<tr>
<td height="8"></td>
</tr>
</table></td>
</tr>
<tr>
<td><div align="right">
<table width="100%" border="0" cellspacing="0" cellpadding="1">
<tr>
<td class="xndyk"><table width="108%" border="0" cellspacing="0" cellpadding="2">
<tr bgcolor="#FFFFFF">
<td width="9%"> <div align="right">标题：</div></td>
<td width="91%"><font color="#006699"><b><%=rs("title")%></b></font></td>
</tr>
<tr>
<td colspan="2" height="1" background="images/heng-dian.gif"></td>
</tr>
<tr>
<td><div align="right">作者：</div></td>
<td><%=rs("user")%></td>
</tr>
<tr>
<td colspan="2" height="1" background="images/heng-dian.gif"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td> <div align="right">人气：</div></td>
<td><table width="150" border="0" cellpadding="1" cellspacing="1" bgcolor="#333333">
<tr>
<td bgcolor="#FFFFFF"><img src="images/vb3.gif" width="<%=rs("renqi")/20%>" alt="<%=rs("renqi")%>" height="8"></td>
</tr>
</table></td>
</tr>
<tr>
<td colspan="2" height="1" background="images/heng-dian.gif"></td>
</tr>
<tr>
<td><div align="right">日期：</div></td>
<td><%=rs("data")%></td>
</tr>
</table></td>
</tr>
<tr>
<td height="8"></td>
</tr>
</table>
</div></td>
</tr>
</table></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="2" cellpadding="2" style="table-layout:fixed">
<tr>
<td><strong> <img src="images/003.gif" width="9" height="9"> 发 表 评 论</strong></td>
</tr>
<tr>
<td height="1" background="images/heng-dian.gif"></td>
</tr>
<tr>
<td height="50%" style="padding-left:10 " valign="top">
<form name="form2" method="post" action="save.asp?action=p_add">
用户：
<input type="text" name="user" class="xndyk" value="<%=session("user")%>">
<br>
标题：
<input type="text" name="title" class="xndyk">
<br>
评论：
<textarea name="text" cols="30" rows="4" class="xndyk"></textarea>
<input type="hidden" name="id" value="<%=rs("id")%>">
<input type="hidden" name="fl" value="news">
<br>
<input type="submit" name="p_add" class="xndyk" value="发 表 评 论">
</div>
</form>
</div></td>
</tr>
<tr>
<td height="1" background="images/heng-dian.gif"></td>
</tr>
<%
sqlpl="select * from pl where id="&request("id")&" order by p_id desc"
Set rspl=Server.CreateObject("ADODB.RecordSet")
rspl.Open sqlpl,conn,1,1
n=0
if rspl.eof then
%>
<tr>
<td align="center"><b>暂无相关评论...</b></td>
</tr>
<% else
do while not rspl.eof
%>
<tr>
<td><b><%=rspl("title")%></b> (<%=rspl("user")%>)<br>
<%=rspl("text")%> <font color="#666666"><%=rspl("data")%></font></td>
</tr>
<%
n=n+1
rspl.movenext
if n>=5 then exit do
loop
rspl.close
set rspl=nothing
end if
%>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -