Function showlink(a)

	For i = 1 To 4
		
		Set objlink = document.getelementbyid("link0"&i)
		If objlink.title = a.innertext Then
			objlink.style.display = ""
		Else
			objlink.style.display = "none"
		End If
		
	Next
End Function

Function shownewgif(a)
	If DateDiff("d", Now, a.d) >-3 Then
		If InStr(a.src,"null.gif") Then
			a.src = replace(a.src,"null.gif","new1.gif")
		End If
	End If
End Function

Sub window_onload()
	set contentobj = document.all.tags("center")
	'alert contentobj(contentobj.length-1).innerhtml
	contentobj(contentobj.length-1).innerhtml = contentobj(contentobj.length-1).innerhtml & "<br/>网站技术支持，请联系QQ：1317155514"
End Sub