admin_htmlsc.asp 学校共青团组织网站源代码 - ASP源码程序

www.gusucode.com > 学校共青团组织网站源代码 > 学校共青团组织网站源代码/626/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='&nbsp;' or zz is null "
		conn.Execute "update [news] set [laiyuan]=' ' where laiyuan='' or laiyuan='&nbsp;' or laiyuan is null "
		conn.Execute "update [news] set [piczz]=' ' where piczz='' or piczz='&nbsp;' 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="&nbsp;"
			if zz="" then zz="&nbsp;"
			if piczz="" then piczz="&nbsp;"
			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
%>