movenews.asp

新闻发布系统

  <%
    Sub MoveNews()
      session("FilePath")=""
	  set myfile=Server.CreateObject("Scripting.FileSystemObject")
      set rs=Server.CreateObject("adodb.recordset")
	  sql="Select * from NewsClass Where ClassEN='"&request.form("objectclass")&"'"
	  rs.open sql,conn,1,1
	  objectclassEN=rs("ClassEN")
	  objectclassCN=rs("ClassCN")
	  for i=1 to request.form("DelID").count
	    set rs1=conn.execute("select * from News where NewsID="&request.form("DelID")(i))
	    FileName=rs1("FileName")
		Lpath=rs1("Lpath")
        for u=1 to 40		   
		 conn.execute("Update News set ClassEN='"&objectclassEN&"' Where NewsID="&request.form("DelID")(i))
		 conn.execute("Update News set ClassCN='"&objectclassCN&"' Where NewsID="&request.form("DelID")(i))
		next
	  next
  End Sub
  %>