<% On Error Resume Next Dim Fname,Hits Fname=Request("FileName") Fname=Trim(Fname) Fname=Replace(Fname,"'","''") Hits=MNBoard.Execute("Select Hits From [i_Upfile] where FileName='"&Fname&"'")(0) If Hits="" Then Hits="δ֪" Response.Write "document.write('ÏÂÔØ´ÎÊý: "&Hits&" ');" Set MNBoard=Nothing %>