±àÊÖÃÇ¿´¿´Ò»Ð¡¶Î½ØÈ¡³ÌÐò£¬ÎªÊ²Ã´Ã»Äܳɹ¦£¿£¿£¿Ð»Ð»£¡

¼Åį

Äõ½Ò»¶Î³ÌÐò£¬ÊǽØÈ¡±êÌⳤ¶ÈµÄ³ÌÐò¡£¡£¡£¡£µ«ÊÇûÓÐÄܽØÈ¡³É¹¦¡£¡£¡£ÎÒ¿´²»³öÓÐʲôÎÊÌâ¡£¡£Âé·³ÐÖµÜÃǸøÖ¸µãÖ¸µã¡£¡£¡£


Ò²¾ÍÊÇ˵....ÎÒÓÃ<script src="my_news.asp?²ÎÊýÒ»&²ÎÊý¶þ&....&²ÎÊýÊ®"></script>À´µ÷ÓÃÏÂÃæµÄ³ÌÐòµÄʱºò,ÓÃ<script src="my_news.asp?max=20&data=0"></script>´øÉϲÎÊýµÄʱºòûÓÐ×÷ÓÃ,¶¼µÃµ½max=40ºÍDATA=1ÕâÑùµÄĬÈÏЧ¹û.....µ«ÊÇûÓмû³ÌÐòµÄ´íÎóÔÚÄÄÀï...


¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª
<%
Dim strConnString, conn, SQL, RS, strDateType
Dim i, strSubject, strTrueSubject, strNews
Dim strShowLen, strMaxLen, strTime, strClick, StrImg, strToday, strBigclassName, strSmallClassName, strSpecialName, strPath,
strwhat
Dim m_bOverFlow, strTip
strMaxLen = 40
strShowLen = 10
strDate = 1
strTime = 0
strClick = 0
strImg = 0
strToday = 0
strFocusnews = 0
strGoodnews = 0
strhot = 0
strWhat = "NewsID"
strBigClassName = "´óÀàÃû³Æ"
strSmallClassName = "СÀàÃû³Æ"
strSpecialName = "רÌâÃû³Æ"
strDateType = "cnmd"
strPath = WebUrl
if CLng(Request.QueryString("Max")) > 0 then strMaxLen = Request.QueryString("Max")
if CLng(Request.QueryString("Show")) > 0 then strShowLen = Request.QueryString("Show")
if Request.QueryString("Date") <> "" then strDate = 1
if Request.QueryString("Time") <> "" then strTime = 1
if Request.QueryString("Click") <> "" then strClick = 1
if Request.QueryString("Img") <> "" then strImg = 1
if Request.QueryString("Today") <> "" then strToday = 1
if Request.QueryString("hot") <> "" then strhot = 1
if Request.QueryString("GoodNews") <> "" then strGoodNews = 1
if Request.QueryString("FocusNews") <> "" then strFocusNews = 1
if Request.QueryString("What") = "click" then
strWhat = "click"
else
strWhat="NewsID"
end if
if Request.QueryString("DateType") <> "" then strDateType = Request.QueryString("DateType")
if Request.QueryString("BigClassName")<>"" then
strBigClassName = Request.QueryString("BigClassName")
else
strBigClassName = ""
end if
if Request.QueryString("SpecialName") <> "" then
strSpecialName = Request.QueryString("SpecialName")
else
strSpecialName=""
end if
if Request.QueryString("SmallClassName")<>"" then
strSmallClassName = Request.QueryString("SmallClassName")
else
strSmallClassName = ""
end if
if Request.QueryString("Path") <> "" then strPath = Request.QueryString("Path")
if Right(strPath,1)<>"/" then strPath = strPath + "/"
SQL = "SELECT top " & strShowLen & " * FROM news WHERE checked=true"
if strBigClassName<>"" and strSmallClassName="" then SQL = SQL & " and BigClassName = '" & strBigClassName &"'"
if strBigClassName<>"" and strSmallClassName<>"" then SQL = SQL & " and BigClassName = '" & strBigClassName &"' and
SmallClassName = '" & strSmallClassName &"'"
if strBigClassName="" and strSmallClassName<>"" then SQL = SQL & " and SmallClassName = '" & strSmallClassName &"'"
if strSpecialName<>"" then SQL = SQL & " and SpecialName = '" & strSpecialName &"'"
if strhot=1 then SQL = SQL & " and hot=true"
if strGoodNews=1 then SQL = SQL & " and goodnews=true"
if strFocusNews=1 then SQL = SQL & " and Focusnews=true"
Set rs = Server.CreateObject("ADODB.Recordset")
SQL = SQL & " ORDER BY " & strWhat & " DESC"
RS.open sql,Conn,1,1
if RS.EOF or RS.BOF then
Response.Write ("document.write('»¹Ã»ÓÐÐÂÎÅ»ò¸ÃÐÂÎŲ»´æÔÚ£¡');")
else
Response.Write ("document.write('<table width=94% border=0 cellspacing=0 cellpadding=0>');")
Do while Not RS.EOF
strSubject = HTMLDecode(RS("Title"))
strTrueSubject = GetTrueLength(strSubject,strSpaceBar)
m_bOverFlow = CheckOverFlow(strSubject)
if m_bOverFlow = True then
strTip = strSubject
else
strTip = ""
end if

strFaceURL = "" 'Èç¹û±êÌâÇ°Ïë·ÅͼƬ£¬¾ÍÔÚ¡°¡±ÄÚ¼ÓÉÏ£º<img src=" & strPath & "images/go.gif width=10 height=9>&nbsp;
if strFaceURL = "" then strFaceURL="<li>"
strNews = strFaceURL & "<a href=" & strPath & "shownews.asp?NewsID=" & RS("NewsID") & " title=""" & strTip & """
target=""_blank"">" & strTrueSubject & "</a>" & strSpaceBar

if strDate=1 then
if strTime=1 then
strNews = strNews & "(" & ChkDate(RS("updatetime")) & " " & TimeValue(RS("updatetime")) & ")"
else
strNews = strNews & "(" & ChkDate(RS("updatetime")) & ")"
end if
else
if strTime=1 then strNews = strNews & "(" & TimeValue(RS("updatetime")) & ")"
end if

if strClick = 1 then strNews = strNews & " <font color=red>" & RS("Click") & "</font>"
if strImg = 1 and rs("image")>0 then strNews = strNews & " <img src=" & strPath & "images/img.gif height=9>"
if strToday = 1 and DateValue(rs("updatetime"))=DateValue(date()) then strNews = strNews & " <img src=" & strPath &
"images/new.gif height=9>"
Response.Write ("document.write('<tr><td style=""FONT-SIZE: 12px; LINE-HEIGHT: 140%"">" & strNews & "<br></td></tr>');")
RS.MoveNext
Loop
Response.Write ("document.write('</table>');")
End if
Response.End
RS.close
SET RS = Nothing
conn.close
SET Conn = Nothing
function ChkDate(fDate)
if fDate = "" or vartype(fDate) = vbNull then
exit function
end if
select case strDateType
case "cnymd"
ChkDate = year(RS("updatetime")) &"Äê"& Month(RS("UpdateTime")) &"ÔÂ"& Day(RS("UpdateTime")) &"ÈÕ"
case "cnmd"
ChkDate = Month(RS("UpdateTime")) &"ÔÂ"& Day(RS("UpdateTime")) &"ÈÕ"
case "ymd"
ChkDate = DateValue(RS("UpdateTime"))
case "ydm"
ChkDate = Year(RS("UpdateTime")) &"/"& Day(RS("UpdateTime"))&"/"& Month(RS("UpdateTime"))
case "dmy"
ChkDate = Day(RS("UpdateTime")) &"/"& Month(RS("UpdateTime"))&"/"& year(RS("UpdateTime"))
case "mdy"
ChkDate = Month(RS("UpdateTime")) &"/"& Day(RS("UpdateTime"))&"/"& year(RS("UpdateTime"))
case "dm"
ChkDate = Day(RS("UpdateTime")) &"/"& Month(RS("UpdateTime"))
case else
ChkDate = Month(RS("UpdateTime")) &"/"& Day(RS("UpdateTime"))
End Select
end function
function CheckOverFlow(strChinese)
'ÅжÏ×Ö·û³¤¶ÈÊÇ·ñÒç³ö
dim i, lenTotal, strWord
if strChinese = "" or vartype(strChinese) = vbNull or CLng(strMaxLen) <= 0 then
CheckOverFlow = False
exit function
end if
lenTotal = 0
for i=1 to Len(strChinese)
strWord = mid(strChinese, i, 1)
if asc(strWord) < 0 or asc(strWord) > 127 then
lenTotal = lenTotal + 2
else
lenTotal = lenTotal + 1
end if
next
'ÅжÏ×Ö·ûÊÇ·ñÒç³ö
if lenTotal > strMaxLen then
CheckOverFlow = True
else
CheckOverFlow = False
end if
end function
function GetTrueLength(strChinese,strSpaceBar)
'½ØÈ¡ÕýÈ·µÄÓ¢ÎÄ/ºº×Ö³¤¶È
dim i, j, strTail, lenTotal, lenWord, strWord, bOverFlow, RetString
if strChinese = "" or vartype(strChinese) = vbNull or CLng(strMaxLen) <= 0 then
GetTrueLength = ""
exit function
end if
strTail = "..."
bOverFlow = False
lenTotal = 0
for i=1 to Len(strChinese)
strWord = mid(strChinese, i, 1)
if asc(strWord) < 0 or asc(strWord) > 127 then
lenTotal = lenTotal + 2
else
lenTotal = lenTotal + 1
end if
next
'ÅжÏ×Ö·ûÊÇ·ñÒç³ö
if lenTotal > strMaxLen then bOverFlow = True
strSpaceBar = ""
if bOverFlow = True then
'×Ö·ûÒç³ö,ȥβ
lenWord = 0
RetString = ""
for i=1 to Len(strChinese)
strWord = mid(strChinese, i, 1)
if asc(strWord) < 0 or asc(strWord) > 127 then
lenNow = 2
else
lenNow = 1
end if
lenWord = lenWord + lenNow
'½Øµô¶àÓಿ·Ö
if lenWord <= (strMaxLen - Len(strTail)) then
RetString = RetString + strWord
else
RetString = RetString + strTail
lenWord = lenWord + Len(strTail) - lenNow
if (strMaxLen-lenWord)>0 then
for j =1 to strMaxLen-lenWord
strSpaceBar = strSpaceBar + "&nbsp;"
next
end if
GetTrueLength = RetString
exit for
end if
next
else
'×Ö·û²»Òç³ö,Ìî³ä¿Õλ
RetString = strChinese
if (strMaxLen-lenTotal)>0 then
for i =1 to strMaxLen-lenTotal
strSpaceBar = strSpaceBar + "&nbsp;"
next
end if
GetTrueLength = RetString
end if
end function
function HTMLDecode(fString)
fString = replace(fString, "&amp;", "&")
fString = replace(fString, "&gt;", ">")
fString = replace(fString, "&lt;", "<")
fString = replace(fString, "&quot;", Chr(34))
fString = Replace(fString, "¡­", "...")
HTMLDecode = fString
end function
%>


¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª