<!--#include file="../ACT.Function.asp"-->
<% ConnectionDatabase
Dim ID,LabelRS,Str,LabelContent,FileName
ID=clng(Request.QueryString("ID"))
Set LabelRS=Server.CreateObject("Adodb.Recordset")
 Str="SELECT LabelContent FROM  Label_Act Where ID=" & ID &""
 LabelRS.Open Str,Conn,1,1
IF LabelRS.Eof and LabelRS.Bof THEN
 LabelRS.Close
 Set LabelRS=Nothing
 Response.Write("<Script>alert('²ÎÊý´«µÝ³ö´í!');window.close();</Script>")
 Response.End
End if
 LabelContent=LabelRS(0)
 LabelRS.Close
 Str=mid(LabelContent, InStrrev(LabelContent, "("))
 FileName=Replace(Replace(LabelContent,Str,""),"{$","")
 FileName=FileName & ".asp?Action=Edit&ID=" & ID
 Set LabelRS=Nothing
 response.Redirect "Label/" & FILENAME & ""
%>?