e_readnews.asp
来自「zheng fu wang zhan gong neng qi quan」· ASP 代码 · 共 923 行 · 第 1/3 页
ASP
923 行
rs4.Open,conn,1,3
if not rs4.eof then%>
<br>
<a class=class href='Special_News.asp?SpecialID=<%=SpecialID%>'>·<%=CutStr(trim(rs4("E_SpecialName")),28)%></a>
<%
end if
rs4.Close
set rs4=nothing
else
Response.Write "<br><font color=red >·专题1信息无</font>"
end if%>
<br>
<br>
<%
set rs4=server.CreateObject("ADODB.RecordSet")
if specialid2<>0 then
rs4.Source="select * from "& db_Special_Table &" where SpecialID=" & SpecialID2
rs4.Open,conn,1,3
if not rs4.eof then %>
<a class=class href='Special_News.asp?SpecialID=<%=SpecialID2%>'>·<%=CutStr(trim(rs4("E_SpecialName")),28)%></a>
<%end if
rs4.Close
set rs4=nothing
else
Response.Write "<font color=red >·专题2信息无</font>"
end if
%> </td>
</tr>
</table></td>
<td width="1%"> </td>
<td width="34%" valign="top" bgcolor="#F5F5F5"><table width="100%" border="0" cellspacing="0" cellpadding="3">
<tr>
<td height="30" background="images/menu_bg.jpg" class="white_link"> <strong> 热门文章：</strong></td>
</tr>
<%
set rs=server.CreateObject("ADODB.RecordSet")
if uselevel=1 then
if Request.cookies("key")="super" or Request.cookies("key")="typemaster" or Request.cookies("key")="bigmaster" or Request.cookies("key")="smallmaster" or Request.cookies("key")="check" then
rs.Source="select top 4 * from "& db_News_Table &" where checkked=1 order by click DESC,newsid desc"
end if
if Request.cookies("key")="" then
rs.Source="select top 4 * from "& db_News_Table &" where (checkked=1 and newslevel=0) order by click DESC,newsid desc"
end if
if Request.cookies("key")="selfreg" then
if Request.cookies("reglevel")=3 then
rs.Source="select top 4 * from "& db_News_Table &" where (checkked=1 ) order by click DESC,newsid desc"
end if
if Request.cookies("reglevel")=2 then
rs.Source="select top 4 * from "& db_News_Table &" where (checkked=1 ) order by click DESC,newsid desc"
end if
if Request.cookies("reglevel")=1 then
rs.Source="select top 4 * from "& db_News_Table &" where (checkked=1 ) order by click DESC,newsid desc"
end if
end if
else
rs.Source="select top 4 * from "& db_News_Table &" where checkked=1 order by click DESC,newsid desc"
end if
rs.Open rs.Source,conn,1,1
while not rs.EOF
title=trim(rs("title"))
title=replace(title,"<br>","")
%>
<tr>
<td> · <a class=middle href="E_ReadNews.asp?NewsID=<%=rs("NewsID")%>" target="_blank" title="<%=title%>"><font color="<%=rs("titlecolor")%>">
<%if len(title)>13 then%>
<%=left(title,13)%>
<%else%>
<%=title%>
<%end if%>
</font></a>[<%=rs("click")%>] </td>
</tr>
<%
rs.MoveNext
wend
rs.close
%>
</table></td>
<td width="1%"> </td>
<td width="32%" valign="top" bgcolor="#F5F5F5">
<table width="100%" border="0" cellspacing="0" cellpadding="3">
<tr>
<td height="30" background="images/menu_bg.jpg" class="white_link"> <B>相关文章：</b></td>
</tr>
<%
Response.Write ""
Response.Write ""
if about<>"" then
sql="select top 4 * from "& db_News_Table &" where (about like '%" & about & "%' or title like '%" & about & "%') and checkked=1 order by newsid desc"
set rs=conn.execute(sql)
do while not rs.eof
title=htmlencode4(trim(rs("title")))
%>
<tr>
<td> <img src=images/goxp.gif> <a class=middle target=_top href='E_ReadNews.asp?NewsID=<%=rs("NewsID")%>'><%=Title%></a>
<!--<font color=#666666>(<%=month(trim(rs("updateTime")))%>月<%=day(trim(rs("updateTime")))%>日)-->
[<font color=#666666><%=rs("click")%></font>] </td>
</tr>
<% rs.movenext
loop
Response.Write "<tr><td align='right'><a class=lift href='Result.asp?keyword=" & about &"'><img src='images/more.gif' border='0'></a></td></tr>"
rs.close
set rs=nothing
else
Response.write "<tr><td><font color=red ><br>·没有相关文章</font></td></tr>"
end if
%>
</table></td>
</tr>
</table></td>
</tr>
<%
set rs1=server.CreateObject("ADODB.RecordSet")
rs1.Source="select top "&reviewnum&" * from "& db_Review_Table &" where NewsID=" & NewsID & " and passed=1 order by reviewid desc"
rs1.Open rs1.Source,conn,1,1
if rs1.EOF then NoReview=1
Response.Write "<tr><td width=100% ><hr size=1></td></tr><tr><td height=8></td></tr>"
Response.Write "<tr><td width=100% ><B>相关评论:</b>(评论内容只代表网友观点，与本站立场无关！)</td></tr><tr><td height=8></td></tr>"
%>
<tr>
<td width="100%">
<%
if NoReview then
Response.Write "<font color=red ><b>相关评论无</b></font>"
end if
%>
</td>
</tr>
<%
if not NoReview then
while not rs1.EOF
author=server.HTMLEncode(trim(rs1("author")))
email=server.HTMLEncode(trim(rs1("email")))
reviewip=rs1("reviewip")
content=trim(rs1("content"))
content=replace(content,"table","ｔａｂｌｅ")
content=replace(content,"TABLE","ｔａｂｌｅ")
ContentLen=len(Content)
%>
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="5" style="table-layout:fixed; word-break:break-all">
<tr bgcolor="#EFEFEF">
<td width="322">发表人：<%=author%></td>
<td width="270" bgcolor="#EFE8E8">
<p align="right">
<%if Request.cookies(eChuang)("key")="super" or showip="1" then%>
IP：<%=reviewip%>
<%end if%>
</td>
</tr>
<tr>
<td colspan="2">
<table width="100%" border="0" cellspacing="0" cellpadding="0" style="table-layout:fixed; word-break:break-all">
<tr>
<td>发表人邮件：<a href='mailto:<%=email%>'><%=email%></a></td>
<td align="right">发表时间：<%=rs1("updatetime")%></td>
</tr>
</table></td>
</tr>
<tr bgcolor="#FFFFFF">
<td colspan="2"><%
If ContentLen=<50 then
DisplayContent=Content
Response.Write " " & displaycontent
%></td>
</tr>
<%
else
%>
<tr bgcolor="#FFFFFF">
<td colspan="2"><%
DisplayContent=replace(nohtml(trim(Content))," ","",1,-1,1) '获取表格中留言字段内容并替换格式符
DisplayContent=replace(DisplayContent,vbcrlf,"",1,-1,1)
Response.Write " "& CutStr(displaycontent,50) &"<a href='ReadView.asp?ReviewID=" & rs1("ReviewID") &"&NewsID=" & NewsID &"' target=_blank class=class>详细内容</a>"
end if
%></td>
</tr>
</table></td>
</tr>
<%
rs1.MoveNext
wend
end if
rs1.Close
set rs1=nothing
%>
<tr>
<td width="98%" height="28"></td>
</tr>
</table></td>
</tr>
<tr valign="top">
<td>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<%if reviewable="1" then%>
<form method="POST" action="AddReview.asp" name=AddReview onSubmit="return CheckFormAddReview();">
<%if Request.cookies(eChuang)("username")<>"" then
%>
<tr>
<td width="100%" align="center">
<table border="0" cellspacing="0" width="90%" cellpadding="4">
<input type=hidden name=NewsID value=<%=NewsID%>>
<tr>
<td width="15%" align="left"><a name="send"><font color="#FF0000">*</font>用 户 名：</a></td>
<td width="35%"><input type="text" name="Author" size="30" value="<%=Request.cookies(eChuang)("UserName")%>" readonly></td>
<td width="15%" align="left"><font color="#FF0000">*</font>电子邮件：</td>
<td width="35%"><input type="text" name="email" size="30" value="<%=Request.cookies(eChuang)("UserEmail")%>" ></td>
</tr>
<tr>
<td colspan="4" align="left" valign="top"><div align="center"><font color="#FF0000">*</font>评论内容：（100字以内）
<% if M_MAIN=1 then %>
<font color=red >签收文件</font>： <img class=None src="images/watermark.gif" align="absmiddle" border="0" style="cursor:hand;" alt="签收文件" lANGUAGE="javascript" onClick="sign()"></div></td>
<% end if%>
</tr>
<tr>
<td width="70%" colspan="4" align="center" valign="top">
<script language="javascript">
var bTextMode=false;
document.write ('<iframe src="guestbox.asp?action=new" id="message" width="500" height="100" frameborder=yes scrolling=no align=center></iframe>')
frames.message.document.designMode = "On";
</script>
</td>
</tr>
<tr>
<td width="70%" colspan="4" align="center" height="50">
<input type="hidden" name="editor" value="<%=editor%>">
<input name="passed" type="hidden" value="<%if reviewcheck="1" then%>1<%else%>0<%end if%>">
<input type="submit" value="发表评论" name="Submit3" OnClick="document.AddReview.content.value = frames.message.document.body.innerHTML;">
<input name="reset" type=reset value="重新填写">
<input type="hidden" name="content" value="">
<input type="hidden" name="title" value="评论：<%=title%>">
</td>
</tr>
</table></td>
</tr>
<%else%>
<tr>
<td width="100%" align="center">
<table border="0" cellspacing="0" width="90%" cellpadding="4">
<input type=hidden name=NewsID value=<%=NewsID%>>
<tr>
<td width="15%" align="left"><a name="send"><font color="#FF0000">*</font>用 户 名：</a></td>
<td width="35%">
<input type="text" name="Author" size="18">
游客：
<INPUT onclick=changedata() type=checkbox value=true name=none></td>
<td width="15%" align="left"><font color="#FF0000">*</font>电子邮件：</td>
<td width="35%"><input name="email" type="text" size="18" value="">
游客：
<INPUT onclick=changedata1() type=checkbox value=true name=none1></td>
</tr>
<tr>
<td colspan="4" align="left" valign="top" ><div align="center"><font color="#FF0000">*</font>评论内容：（100字以内）</div></td>
</tr>
<tr>
<td width="70%" colspan="4" align="center" valign="top">
<script language="javascript">
document.write ('<iframe src="guestbox.asp?action=new" id="message" width="500" height="100" frameborder=yes scrolling=no align=center></iframe>')
frames.message.document.designMode = "On";
</script>
</td>
</tr>
<tr>
<td width="70%" colspan="4" align="center" height="50">
<input type="hidden" name="editor" value="<%=editor%>">
<input name="passed" type="hidden" value="<%if reviewcheck="1" then%>1<%else%>0<%end if%>">
<input type="submit" value="发表评论" name="Submit3" OnClick="document.AddReview.content.value = frames.message.document.body.innerHTML;">
<input name="reset2" type=reset value="重新填写">
<input type="hidden" name="content" value="">
<input type="hidden" name="title" value="评论：<%=title%>">
</td>
</tr>
</table></td>
</tr>
<%end if%>
</form>
<%end if%>
</table>
<table width="98%" height="30" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="20"></td>
<td width="255" height="20"> <a href=Review.asp?NewsID=<%=NewsID%> target="_blank" class=bottom><img src="images/icon1.gif" border="0">发表、查看更多关于该信息的评论</a> </td>
<td width="214" height="25"> <a href=send.asp?NewsID=<%=NewsID%> target=_blank class=bottom><img src="images/mail.gif" border="0">将本信息发给好友</a> </td>
<td width="168"><a href="javascript:window.print()" class=bottom><img src="images/printer.gif" border="0">打印本页</a></td>
<td width="90"><input type="button" name="close2" value="关闭窗口" onClick="window.close();return false;"></td>
</tr>
</table>
</td>
</tr>
</table>
<!--#include file=bottom.asp -->
</body>
</html>
<%end if%>
<%
conn.close
set conn=nothing
%> ⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?