📄 admin_htmlsc.asp
字号:
<%
Server.ScriptTimeOut = 600
%>
<!--#include file = admin_chk.asp -->
<!--#include file = admin_conn.asp -->
<!--#include file = titleb.asp -->
<html>
<head>
<!--#include file = language.asp -->
<STYLE type="text/css">
<!--
a:link {text-decoration: none; font-family: AdobeSm; color: #000000 }
a:visited {text-decoration: none; color: #000000 }
A:hover {COLOR: green; FONT-FAMILY: "宋体,MingLiU"; TEXT-DECORATION: underline}
body {font-size: 9pt; font-family: 宋体,MingLiU, Arial;color: #000000}
TD {FONT-SIZE: 9pt; FONT-FAMILY: "宋体,MingLiU, Arial";color: #000000;table-layout:fixed;word-break:break-all}
input {FONT-SIZE: 9pt; FONT-FAMILY: "宋体,MingLiU, Arial";color: #000000}
body {margin-top: 0; margin-bottom: 0;margin-left:0;margin-right:0; color: #000000}
select {FONT-SIZE: 9PT;}
option {FONT-SIZE: 9pt;}
textarea {FONT-SIZE: 9pt;}
-->
</STYLE>
</head>
<body>
<%
lm=chkhtm(trim(request("lm")))
html=1
iii=0
NewsID=trim(request("NewsID"))
if (not isNumeric(NewsID)) then
NewsID=0
end if
if (not isNumeric(lm)) then
LM=0
end if
path=config("path")
conn.Execute "update [news] set [zz]=' ' where zz='' or zz=' ' or zz is null "
conn.Execute "update [news] set [laiyuan]=' ' where laiyuan='' or laiyuan=' ' or laiyuan is null "
conn.Execute "update [news] set [piczz]=' ' where piczz='' or piczz=' ' or piczz is null "
SQL="select * from [News] where sh=1 "
if LM<>"0" then SQL=SQL&" and ( LM='"&lm&"' or lm2='"&lm&"' or lm3='"&lm&"' ) "
if NewsID<>"0" then sql=sql&" and ID="&NewsID&" "
SQL=SQL&" order by id desc"
set rshtml = Server.CreateObject("ADODB.RecordSet")
rshtml.Open SQL,conn,1,1
while not rshtml.eof
piczz=""
zz=""
title=""
laiyuan=""
Response.Cookies ("html")="1"
dddd=year(rshtml("time"))&"/"&month(rshtml("time"))
an=rshtml("ID")
aaahtml=an
content=rshtml("content")
lm3=rshtml("lm3")
lm2=rshtml("lm2")
lm1=rshtml("lm")
title=rshtml("title")
addtime=rshtml("time")
laiyuan=rshtml("laiyuan")
piczz=rshtml("piczz")
zz=rshtml("zz")
url=rshtml("url")
newsid=rshtml("id")
yurl=rshtml("yurl")
NewsWordKey=","&config("NewsWordKey")&","
aabb=split(NewsWordKey,",")
for jjj=0 to ubound(aabb)
content=replace(content,aabb(jjj),"<a target=_blank title='查看更多' href="&path&"so/?word="&aabb(jjj)&"><u>"&aabb(jjj)&"</u></a>")
next
if yurl<>"" then
content=content&" <BR><div align=right><a href="&yurl&" target=_blank>原贴地址</a></div>"
end if
'Response.end
if len(trim(laiyuan))=0 then laiyuan=" "
if zz="" then zz=" "
if piczz="" then piczz=" "
if rshtml("filename")<>"0" then
filename=rshtml("filename")
else
filename="html/"&dddd&"/"&aaahtml&".htm"
end if
bbbhtml="html/"&dddd
schtml
conn.Execute "update [news] set [filename]='"&filename&"',[html]=1 where id="&clng(rshtml("id"))
iii=iii+1
rshtml.movenext
wend
rshtml.close:set rshtml=nothing
Response.Write "<BR><BR><Center>共生成新闻"&iii&"条<BR><BR><input type='button' value='确定' onclick=""javascript:window.history.go(-1);""></center> "
%>
</body>
</html>
<%
conn.close:set conn=nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -