editlabel.asp

PDA,若你死昂师傅你说的附件是打开附件上课的附件四度空间就大方快速减肥

<!--#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 & ""
%>?