<%if (date()-rs("datel"))<5 then
%>
<img src="image/hot.gif" width="26" height="10"></img>
<%
end if %>
date1是新闻的添加时间
[此贴子已经被作者于2005-10-19 11:31:31编辑过]
把这段代码加在哪里??
已经写好了哇。。这得用到asp 页面里头。。
我也正需要这个呢？说说具体怎么改？？？
[em02]<%if (date()-rs("datel"))<5 then
%>
<img src="image/hot.gif" width="26" height="10"></img>
<%
end if %>
这是那个文件你想改那?
<% Option Explicit %>
<!--#include file="../../../Inc/Function.asp" -->
<!--#include file="../../../Inc/Const.asp" -->
<!--#include file="../../../Inc/Cls_DB.asp" -->
<!--#include file="RefreshFunction.asp" -->
<!--#include file="SelectFunction.asp" -->
<%
Dim DBC,Conn
Set DBC = New DataBaseClass
Set Conn = DBC.OpenConnection()
Set DBC = Nothing
%>
<!--#include file="Function.asp" -->
<!--#include file="../../../Inc/Session.asp" -->
<!--#include file="../../../Inc/CheckPopedom.asp" -->
<%
if Not JudgePopedomTF(Session("Name"),"P030100") then Call ReturnError1()
Dim SaveFilePath,FSOObj,FSOObj1,PromptInfo,FileStreamObj,FileContent,FileObj,TempletFileName,RefreshTempFileName
PromptInfo = ""
if SysRootDir = "" then
TempletFileName = Server.MapPath("/" & TempletDir) & "\Index.htm"
SaveFilePath = "/index."&confimsn("IndexExtName")&""
else
TempletFileName = Server.MapPath("/" & SysRootDir & "/" & TempletDir) & "\Index.htm"
SaveFilePath = "/" & SysRootDir & "/index."&confimsn("IndexExtName")&""
end if
Set FSOObj = Server.CreateObject(G_FS_FSO)
if FSOObj.FileExists(TempletFileName) = False then
PromptInfo = "Ê×ҳģ°åIndex.htm²»´æÔÚ£¬ÇëÌí¼ÓÊ×ҳģ°åºóÔÙÉú³É£¡"
Call PromptFunction
else
'On Error Resume Next
SetRefreshValue "Index",""
GetAvailableDoMain
Set FileObj = FSOObj.GetFile(TempletFileName)
Set FileStreamObj = FileObj.OpenAsTextStream(1)
if Not FileStreamObj.AtEndOfStream then
FileContent = FileStreamObj.ReadAll
FileContent = ReplaceAllServerFlag(ReplaceAllLable(FileContent))
else
FileContent = "Ä£°åÄÚÈÝΪ¿Õ"
end if
Set FileStreamObj = Nothing
Select Case AvailableRefreshType
Case 0
FSOSaveFile FileContent,SaveFilePath
Case 1
SaveFile FileContent,SaveFilePath
Case Else
FSOSaveFile FileContent,SaveFilePath
End Select
PromptInfo = "Éú³É³É¹¦"
Call PromptFunction
end if
Set FSOObj = Nothing
Sub PromptFunction()
Set Conn = Nothing
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>ÐÂÎÅÊ×Ò³Éú³É¹ÜÀí</title>
</head>
<link rel="stylesheet" href="../../../CSS/FS_css.css">
<body topmargin="2" leftmargin="2" oncontextmenu="return false;">
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="28" class="ButtonListLeft">
<div align="center"><strong>ÐÂÎÅÊ×Ò³Éú³É¹ÜÀí</strong></div></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td><div align="center"><font color="#FF0000">·µ»ØÐÅÏ¢: <a href="<%=AvailableDoMain%>/index.<%=confimsn("IndexExtName")%>" target="_blank">ä¯ÀÀÊ×Ò³</a></font></div></td>
</tr>
<tr>
<td><div align="center">
<% = PromptInfo %>
</div></td>
</tr>
</table>
</body>
</html>
<%
End Sub
%>
可能是改RefreshFunction.asp的892行
<%if (date()-rs("datel"))<5 then
%>
<img src="image/hot.gif" width="26" height="10"></img>
<%
end if %>
酷哥，再问一下，是在哪个文件里！！谢谢！
还是没有人来救我。5555
我想知道如何改?帮忙一下吧.
搜索了几个相关的帖子，包括修改RefreshFunction文件的，都没看明白到底应该如何修改，很多人需要的！