📄 addreriew.asp
字号:
<%
'设计：潘树文
'开发时间：2001.12
%>
<!--#include file="../include/odbc.asp" -->
<!--#include file="../include/killStr.asp" -->
<!--#include file="../include/checkUser.asp" -->
<!--#include file="../include/checkServer.asp" -->
<%set rs=server.CreateObject("adodb.recordset")
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Qinhp NetModel Generator">
<link rel="stylesheet" href="../script/style.css" type="text/css">
<title>新闻推荐表管理</title>
<base target=_self>
<script language='JavaScript'>
function check(form1){
if (isNaN(form1.issue.value))
{alert('期号必须是数字!');
form1.issue.focus();
form1.issue.select();
return (false);
}
if (form1.issue.value<20000000)
{alert('期号必须大于20000000 ！');
form1.issue.focus();
form1.issue.select();
return (false);
}
if (isNaN(form1.webnum.value))
{alert('WEB上条目必须是数字!');
form1.webnum.focus();
form1.webnum.select();
return (false);
}
if (form1.webnum.value<1)
{alert('WEB上条目必须大于1!');
form1.webnum.focus();
form1.webnum.select();
return (false);
}
if (form1.webnum.value>10)
{alert('WEB上条目不能大于10!');
form1.webnum.focus();
form1.webnum.select();
return (false);
}
}
</script>
</head>
<% '***********************产生commendid
set rs2=server.CreateObject("adodb.recordset")
sqll="select * from news2_review order by commendid desc"
rs2.open sqll,conn,3,3
if rs2.eof then
tempno=1
else
tempno=clng(rs2("commendid"))
end if
rs2.close
'**********************
if trim(request("submit"))<>"" then '处理web条数
sql="select * from news2_review where menuid='"&request("menuid")&"'and issue='"&request("issue")&"' order by infoindex "
rs.open sql,conn,3,3
nwebcount=clng(request("webnum"))
rsRecordCount=rs.RecordCount
if rsRecordCount<nwebcount then
for i=1 to nwebcount-rsRecordCount
rs.AddNew
tempno=tempno+1
this1Id=right("00000000000000000000"&cstr(tempno),10)
rs("commendId")= this1Id
rs("issue")=request("issue")
rs("menuid")=trim(request("menuid"))
rs("infoid")="0000000000"
rs("newstitle")="新增加文章标题"
rs("infoindex")=rsRecordCount+i
rs("visible")="0"
rs.Update
next
else
' Response.Write
sqqq="delete from news2_review where menuid='"&trim(request("menuid"))&"' and issue='"&trim(request("issue"))&"'and infoindex >"&cstr(nwebcount)
conn.execute sqqq
end if
rs.Close
end if
'********************************产生自动排行************************************************
if request("autoreview")<>"" then
sql="select * from news2_review where menuid='"&request("menuid")&"'and issue='"&request("issue")&"' order by infoindex "
rs.open sql,conn,3,3
if left(request("menuid"),3)="012" then '首页排行榜单独处理
sql2="select * from news2_info where regtime < '"&now&"' and regtime > '"&dateadd("d",-7,now)&"' order by clicknum desc"
else
if request("menuid")="007014" or request("menuid")="007015" or request("menuid")="008016" then
'叱姹乐坛金曲榜 美国票房尽爆榜 热门软件下载排行榜 单独处理
sql2="select * from news2_info where menuid='"&request("menuid")&"' order by clicknum desc"
else
sql2="select * from news2_info where left(menuid,3)='"&left(request("menuid"),3)&"' and regtime < '"&now&"' and regtime > '"&dateadd("d",-7,now)&"' order by clicknum desc"
end if
end if
rs2.open sql2,conn,3,3
for i=1 to rs.RecordCount
if rs2.EOF then exit for
if not rs.EOF then
rs("infoid")=rs2("infoid")
rs("newstitle")=rs2("newstitle")
rs("infoindex")=i
rs("visible")="0"
rs.Update
rs.movenext
rs2.MoveNext
end if
next
if rs.RecordCount <=0 then '判断是否有排行
countnum=1
else
countnum=rs.RecordCount+1
end if
for ii=countnum to 10
if rs2.Eof then exit for
'if countnum+ii>10 then exit for
rs.addnew
tempno=tempno+1
this1Id=right("00000000000000000000"&cstr(tempno),10)
rs("commendId")= this1Id
rs("issue")=request("issue")
rs("menuid")=trim(request("menuid"))
rs("infoid")=rs2("infoid")
rs("newstitle")=rs2("newstitle")
rs("infoindex")=countnum +ii
rs("visible")="0"
rs.Update
rs2.MoveNext
next
rs.Close
rs2.Close
end if
'********************************产生自动排行完毕************************************************
if request("visible")<>"" then
set rs3=server.CreateObject("adodb.recordset")
'检查本期是否有信息
sql3="select * from news2_review where menuid='"&request("menuid")&"' and issue='"&request("issue")&"' and infoid<>'0000000000' order by infoindex "
rs3.Open sql3,conn,3,3
if rs3.EOF then
Response.Write "本期还没有推荐新闻信息，不能致有效！<a href=javascript:history.back()>按此返回</a>"
Response.End
end if
'清除上期有效性
sql="select * from news2_review where menuid='"&request("menuid")&"' and visible='1' and infoid<>'0000000000' order by infoindex "
rs.Open sql,conn,3,3
for i=1 to rs.RecordCount
rs("visible")="0"
rs.Update
rs.MoveNext
next
rs.Close
'致本期有效
for i=1 to rs3.RecordCount
rs3("visible")="1"
rs3.Update
rs3.MoveNext
next
rs3.Close
%><script language=javascript>
alert("本期置有效完成！");
//location.href =history.back();
</script><%
end if
if request("issue")="" then
issue=cstr(year(now())) '自动生成surveyid(新期号)
issue=issue&right("00"&cstr(month(now())),2)
issue=issue&right("00"&cstr(day(now())),2)
sql="select * from news2_review where menuid='"&request("menuid")&"' and issue='"&issue&"' order by infoindex "
else
sql="select * from news2_review where menuid='"&request("menuid")&"' and issue='"&request("issue")&"' order by infoindex "
end if
rs.open sql,conn,3,3
%>
<body bgcolor="#FFFFE0"><p align=center><b><font size=4 color=#0000FF>回顾/排行信息</font></b></p>
<form method=POST action=<%=request.servervariables("path_info")%> name=add onsubmit="return check(this);">
<table width="70%" align=center style="border: 1 solid #0000FF">
<td style="border: 1 solid #0000FF">期号:
<%
issue=cstr(year(now())) '自动生成surveyid
issue=issue&right("00"&cstr(month(now())),2)
issue=issue&right("00"&cstr(day(now())),2)
if request("issue")="" then%>
<input type=Text name=issue size=8 value=<%=issue%> maxLength=8 readonly>
<%else
if not rs.EOF then%>
<input type=Text name=issue size=8 value=<%=rs("issue")%> maxLength=8 readonly>
<%else%>
<input type=Text name=issue size=8 value=<%=issue%> maxLength=8 readonly>
<%
end if
end if%>
<input type=submit name=visible value="立即生效"></td><td style="border: 1 solid #0000FF"><input type=submit name=刷新 value="刷新"></td>
<%'显示推荐新闻
for i2=1 to rs.RecordCount %>
<tr><td style="border: 1 solid #0000FF" width='80%'> <%=i2%> <%=rs("newstitle")%></td>
<td style="border: 1 solid #0000FF"><a href="srch.asp?menuid=<%=request("menuid")%>&commendid=<%=rs("commendid")%>" target="right">更新</A></td></tr>
<%
rs.MoveNext
next
%>
<tr>
<td style="border: 1 solid #0000FF" colspan=2>WEB条目:
<input type=Text name=webnum size=3 value=<% if rs.RecordCount<=0 then
Response.Write "1"
else
Response.Write rs.RecordCount
end if
%> maxLength=2> <input type=submit name=submit value="修改WEB条目">
<input type=submit name="autoreview" value="自动产生排行">
</td></tr></table>
<input type=hidden name=menuid value=<%=request("menuid")%> >
</form>注：推荐完成后点击“立即生效”，前台才能显示。<br>“自动排行”只能自动排出7日内点击数最多的十条新闻。
<p>[<a href=../user/loginProcess.asp target=_top>返回</a>][<a href=../user/logout.asp target=_top>退出</a>]</p></body></html>
<%rs.Close
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -