js.asp

来自「新闻发布系统」· ASP 代码 · 共 64 行

<!--#include file="conn.asp" -->
<!--#include file="Fsmanage/inc/function.asp" -->
<!--#include file="Fsmanage/INC/config.asp" -->
<!--#include file = "Fsmanage/INC/ReplaceMake.asp"-->
<%
function HTMLEncode(fString)
    fString = replace(fString, ">", "&gt;")
    fString = replace(fString, "<", "&lt;")
    fString = replace(fString, ";", "；")
    fString = replace(fString, "'", "‘")
	fString = replace(fString, chr(34), "&quot;")
    fString = Replace(fString, CHR(13), "")
    fString = Replace(fString, CHR(10) & CHR(10), "；")
    fString = Replace(fString, CHR(10), "，")
    HTMLEncode = fString
end function

const re=false '只能在本站调用 如果等于1则任何站点均可调用

ClassID=request.querystring("ClassID")
Num=request.querystring("Num")
tm=request.querystring("tm")
time=request.querystring("time")

sqlword="select top  10 * from news"
if re=true then
	propath="http://"&request.servervariables("http_HOST")&request.servervariables("script_NAME")
else
	propath=""
end if 

if not isnumeric(""&Num&"") then n=10
if not isnumeric(""&tm&"") then tm=24'中文占２个字符

sql=sqlword&" order by Newsid desc"
set rs = server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
i=0
while not rs.eof and i<n
    if time=true then
	if rs("BiaotiNews")=true then
	aspjava=aspjava+"· <a href="&rs("UBiaotiNews")&" target=_blank>"&HTMLEncode(CovtTitle(gotTopic(rs("title"),tm)))&"</a><font size=1> "&formatdatetime(rs("date"),2)&"</font><br>"
	else
	aspjava=aspjava+"· <a href="&propath&rs("lpath")&rs("FileName")&".html target=_blank>"&HTMLEncode(CovtTitle(gotTopic(rs("title"),tm)))&"</a><font size=1> "&formatdatetime(rs("date"),2)&"</font><br>"
	end if
	else
	if rs("BiaotiNews")=true then
	aspjava=aspjava+"· <a href="&rs("UBiaotiNews")&" target=_blank>"&HTMLEncode(CovtTitle(gotTopic(rs("title"),tm)))&"</a><br>"
	else
	aspjava=aspjava+"· <a href="&propath&rs("lpath")&rs("FileName")&".html target=_blank>"&HTMLEncode(CovtTitle(gotTopic(rs("title"),tm)))&"</a><br>"
	end if
	end if
	rs.movenext
	i=i+1
wend

rs.close   
set rs=nothing   
conn.close   
set conn=nothing
%> 
var javastr=""
javastr=javastr+"<%=aspjava%>"
document.write (javastr)