📄 makedetail.asp
字号:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>生成以行业资讯信息详细页</title>
<style type="text/css">
<!--
check {
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
background-color: #E4EDF9;
}
body,td,th {
font-size: 12px;
}
body {
background-color: #E4EDF9;
}
-->
</style>
</head>
<body>
<%
data_path="../../../" 'ACC连接数据库路径，对SQL无效
dir="no"
numid="no"
%>
<!--#include file="../../../conn/conn.asp"-->
<!--#include file="../../../inc/safe.asp"-->
<!--#include file="../../../inc/filesystem.asp"-->
<!--#include file="../../../inc/classcount.asp"-->
<!--#include file="../index/temp_inc.asp"-->
<!--#include file="../makerole.asp"-->
<%
Set rs=Server.CreateObject("adodb.recordSet")
rs.Open ("select info_detail from [Websen_worldec_Temp] where yx_selected=1"),conn,1,1
If rs.Eof Then
Response.Write("<br><br> <font color=red>对不起！该模版不存在！</font><a href='#' onclick='javascript:window.close();'>关闭</a>")
Response.End()
End If
If Not rs.Eof Then
pencat=rs("info_detail")
rs.Close
End If
If Request("page")<>"" Then
If Cint(Request("page"))<1 Then
currentPage=1
Else
currentPage=Cint(Request("page"))
End If
Else
currentPage=1
End If
If Request("TopNew")>"" Then
If ChkRequest(Request("TopNew")) Then
TopNew=Request("TopNew")
Else
Response.Redirect ("/login/chklogin.asp?login=4")
End If
End If
MaxPerPage=1
Set rs=Server.CreateObject("adodb.recordSet")
If Request("all")="all" Then
rs.Open ("select * from Websen_news order by dateandtime asc"),conn,1,1
ElseIf Request("all")="update" Then
If Request("schtml")="开始生成从未生成的" Then
rs.Open ("select * from Websen_news where html_pass=0 order by dateandtime asc"),conn,1,1
Else
id1=Replace(Request("id1"),"'","")
id2=Replace(Request("id2"),"'","")
If Isnumeric(id2)=false or Isnumeric(id2)=false Then Response.Write " " :Response.End
rs.Open ("select * from Websen_news where newsid between "&id1&" and "&id2&" order by dateandtime asc"),conn,1,1
End If
End If
If Not rs.Eof Then
rs.pagesize=MaxPerPage
mpage=rs.pagecount
If currentPage>mpage Then
Response.Write "生成完毕 完成时间："&now()
Response.End
End If
If TopNew>"" Then
currentPage=mpage-TopNew
End If
rs.move (currentPage-1)*MaxPerPage
If mpage>=currentPage Then
ttid=rs("newsid")
typeid=rs("typeid")
End If
Else
Response.Write "没有数据"
Response.End
End If
HOPE_Todayadd=rs("dateandtime")
HOPE_Hit=rs("hits")
tyid=Request("id2")
HOPE_Tyid=tyid
HOPE_body=HOPE_body&"<script type='text/javascript' src='/check.js'></script><script language='vbscript'>sub window_onload() AjaxSearchmsg("&rs("newsid")&") end sub </script><input type='text' id='installurlmsg' style='display:none; width:12;height:1' value='/'/>"
HOPE_body=HOPE_body&"<table width=""100%"" border=""0"" cellspacing=""0"">"&VbCrLf
HOPE_body=HOPE_body&" <tr>"&VbCrLf
HOPE_body=HOPE_body&" <td colspan=""2"" align=""left"" class=""lh15"">"&VbCrLf
HOPE_body=HOPE_body&""&rs("content")&""&VbCrLf
HOPE_body=HOPE_body&" </td>"&VbCrLf
HOPE_body=HOPE_body&" </tr>"&VbCrLf
HOPE_body=HOPE_body&" </table>"&VbCrLf
HOPE_div=HOPE_div&"<script>function autoResize(){try{document.all['test'].style.height=test.document.body.scrollHeight}catch(e){}}</script>"&VbCrLf
HOPE_div=HOPE_div&"<IFRAME id=""test"" style=""height:expression(1); aho:expression(autoResize())"" WIDTH=""99%"" height=""120"" MARGINWIDTH=""0"" MARGINHEIGHT=""0"" FRAMEBORDER=""0"" SCROLLING=""no"" SRC=""../../"&lujing&"Review/asb.asp?id="&rs("newsid")&"""></IFRAME>"&VbCrLf
HOPE_div=HOPE_div&" "&VbCrLf
HOPE_check=HOPE_check&"<script type='text/javascript' src='/check.js'></script><script language='vbscript'>sub window_onload() AjaxSearchmsg() end sub </script><input type='text' id='installurlmsg' style='display:none; width:12;height:1' value='/'/>"&VbCrLf
HOPE_check=HOPE_check&"<input type='text' id='action' style='display:none; width:12;height:1' value='"&rs("qx")&"'/>"&VbCrLf
HOPE_check=HOPE_check&"<input type='text' id='newsid' style='display:none; width:12;height:1' value='"&rs("newsid")&"'/>"
sqltype="select * from Websen_newstype where typeid="&typeid&""
Set rstype=Server.CreateObject("ADODB.Recordset")
rstype.Open sqltype,conn,1,1
If rstype.Eof Then typeid="0"
If typeid="0" Then
HOPE_Type=HOPE_Type&"所有咨讯信息"
Else
HOPE_Type=HOPE_Type&"<a href='"&HOPE_InstallDir&"info/community/"&rstype("typeid")&".html'>"&rstype("type")&"资讯</a>"
End If
rstype.Close
'标志此条信息为已经生存HTML
conn.execute("update Websen_news Set html_pass=1 where newsid="&ttid&"")
Response.Write "<b>已生成/要生成的页面条数:<font color=#FF0000>"¤tPage-1&"</font>/<font color=#FF0000><b>"&mpage&"</b></font>个"
If mpage<currentPage Then
Response.Write ",完成时间"&Now()&"</b> "
Else
newsid=ttid
HOPE_Title=rs("title")
HOPE_TTID=ttid
HOPE_TypeID=typeid
pencat=Hope_HtmlResult(pencat)
Set fso = YXFSO
Set sort_save = fso.CreateTextFile(Server.Mappath(HOPE_InstallDir&"info/detail/"&typeid&"-"&ttid&".html"))
sort_save.Write pencat
sort_save.Close
If Request("other")=1 Then Response.End()
Response.Write "<meta http-equiv=Refresh content='0; URL=makedetail.asp?all="&Request("all")&"&id1="&id1&"&id2="&id2&"&page="¤tPage+1&"&schtml="&Request("schtml")&"'>"
End If
Set rs=Nothing
conn.Close
Set conn=Nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -