📄 article.asp
字号:
<td width=100% ><hr size=1></td>
</tr>
<tr>
<td height=25>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="32%" valign="top" bgcolor="#EFEFEF">
<table width="100%" border="0" cellspacing="0" cellpadding="3">
<tr>
<td height="22" bgcolor="#768896"> <B>相关专题：</b></td>
</tr>
<tr>
<td><%set rs4=server.CreateObject("ADODB.RecordSet")
if SpecialID<>0 then
rs4.Source="select * from "& db_Special_Table &" where SpecialID=" & SpecialID
rs4.Open,conn,1,3
if not rs4.eof then%>
<br><a class=class href='Special_News.asp?SpecialID=<%=SpecialID%>'>·<%=CutStr(trim(rs4("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("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="#EFEFEF"><table width="100%" border="0" cellspacing="0" cellpadding="3">
<tr>
<td height="22" bgcolor="#768896"> <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="Article.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="#EFEFEF">
<table width="100%" border="0" cellspacing="0" cellpadding="3">
<tr>
<td height="22" bgcolor="#768896"> <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='Article.asp?NewsID=<%=rs("NewsID")%>'><%=Title%></a><!--<font color=#666666>(<%=month(trim(rs("updateTime")))%>月<%=day(trim(rs("updateTime")))%>日)-->[<font color=#666666><%=rs("click")%></font>]</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><div style='border-top:1px dashed #cccccc;height: 1px;overflow:hidden'></div>"
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">
<p align="right">
<%if Request.cookies(Forcast_SN)("key")="super" or showip="1" then%>
IP：<%=reviewip%>
<%end if%>
</td>
</tr>
<tr bgcolor="#EFEFEF">
<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,100) &"<a href='ReadView.asp?ReviewID=" & rs1("ReviewID") &"&NewsID=" & NewsID &"' target=_blank class=classP>......详细内容</a>"
end if
%><div style='border-top:1px dashed #cccccc;height: 1px;overflow:hidden'></div></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>
</table>
</td>
</tr>
<tr>
<td height="4" background="IMAGES/WmCms_Read3.jpg"></td>
</tr>
<%if reviewable="1" then%>
<form method="POST" action="AddReview.asp" name=AddReview onSubmit="return CheckFormAddReview();" onReset="return ResetForm();">
<%if Request.cookies(Forcast_SN)("name")<>"" 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(Forcast_SN)("name")%>" 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(Forcast_SN)("UserEmail")%>" ></td>
</tr>
<tr>
<td colspan="4" align="left" valign="top"><div align="left"><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="730" height="100" frameborder=yes scrolling=auto align=center></iframe>')
frames.message.document.designMode = "On";
</script>
<script>
message.document.write("<body style='border:1 solid #434141'>")
</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" name="Submit" value="签收文件" style="font-size: 9pt; color: #000000; background-color: #ffffff; solid #EAEAF4" onMouseOver ="this.style.backgroundColor='#cd0000'" onMouseOut ="this.style.backgroundColor='#ffffff'" OnClick="document.AddReview.content.value = frames.message.document.body.innerHTML;">
<input name="reset" type=reset value="重新填写" style="font-size: 9pt; color: #000000; background-color: #ffffff; solid #EAEAF4" onMouseOver ="this.style.backgroundColor='#cd0000'" onMouseOut ="this.style.backgroundColor='#ffffff'" OnClick="document.AddReview.content.value = frames.message.document.body.innerHTML;">
<input type="hidden" name="content" value="">
<input type="hidden" name="title1" value="评论：<%=title%>">
<input type="hidden" name="qs" value=1>
</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="left"><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="97%" height="100" frameborder=yes scrolling=auto align=center></iframe>')
frames.message.document.designMode = "On";
</script>
<script>
message.document.write("<body style='border:1 solid #434141'>")
</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" name="Submit" value="发表评论" style="font-size: 9pt; color: #000000; background-color: #ffffff; solid #EAEAF4" onMouseOver ="this.style.backgroundColor='#cd0000'" onMouseOut ="this.style.backgroundColor='#ffffff'" OnClick="document.AddReview.content.value = frames.message.document.body.innerHTML;">
<input name="reset" type=reset value="重新填写" style="font-size: 9pt; color: #000000; background-color: #ffffff; solid #EAEAF4" onMouseOver ="this.style.backgroundColor='#cd0000'" onMouseOut ="this.style.backgroundColor='#ffffff'" OnClick="document.AddReview.content.value = frames.message.document.body.innerHTML;">
<input type="hidden" name="content" value="">
<input type="hidden" name="title1" value="评论：<%=title%>">
<input type="hidden" name="qs" value=2>
</td>
</tr>
</table>
</td>
</tr>
<%end if%>
</form>
<%end if%>
</table>
</td>
<!--#include file="WmCms_Rbcs.asp"-->
</tr>
</table>
<!--#include file=bottom.asp -->
</body>
</html>
<%end if%>
<%
conn.close
set conn=nothing
%> ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -