editfunctionlabel.asp

来自「SK信息采集2.0功能介绍: 1.可针对任何静态网页,动态网页进行采集。包括h」· ASP 代码 · 共 27 行

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%Option Explicit%>
<!--#include file="../../Conn.asp"-->
<!--#include file="../../SysCls/KS_CommonCls.asp"-->
<!--#include file="../inc/Session.asp"-->
<%
Dim LabelID,LabelRS,Str,LabelContent,FileName
LabelID=Trim(Request.QueryString("LabelID"))
Set LabelRS=Server.CreateObject("Adodb.Recordset")
 Str="SELECT LabelContent FROM KS_Label Where ID='" & LabelID &"'"
 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&LabelID=" & LabelID
 Set LabelRS=Nothing
 Response.WRITE "<script>"
 Response.Write "location.href='Label/" & FILENAME & "';"
 Response.Write "</script>"
%>